openkim-api-v1.1.1/KIM_API/KIM_API_F.F90

805 …subroutine kim_api_setm_data_f(kimmdl,error, nm1,sz1,dt1,k1, nm2,sz2,dt2,k2, nm3,sz3,dt3,k3, nm4,s…  argument
814             character(len=*),optional:: nm2;   integer(kind=kim_intptr),optional:: sz2, dt2  local
842 …         if( present(nm2 ).and.(.not.present(sz2 ).or..not.present(dt2 ).or..not.present(k2))) then
843                 if(errcheck_mltpl(error,msg,2, nm2 ).lt.KIM_STATUS_OK) return
874                 if(errcheck_mltpl(error,msg,2, nm2 ).lt.KIM_STATUS_OK) return
905  if(present(nm2).and.k2.eq.1) error=kim_api_set_data_f(kimmdl,nm2,sz2,dt2);
906             if(errcheck_mltpl(error,msg,2,nm2).lt.KIM_STATUS_OK) return
935 …subroutine kim_api_setm_data_by_index_f(kimmdl,error,nm1,sz1,dt1,k1, nm2,sz2,dt2,k2, nm3,sz3,dt3,k…  argument
945             integer,optional:: nm2;   integer(kind=kim_intptr),optional:: sz2, dt2  local
973             if( present(nm2 ).and.(.not.present(sz2 ).or..not.present(dt2 ))) then
974                 if(errcheck_mltpl(error,msg,2,"", nm2 ).lt.KIM_STATUS_OK) return
1005                 if(errcheck_mltpl(error,msg,2,"", nm2 ).lt.KIM_STATUS_OK) return
1036  if(present(nm2).and.k2.eq.1) error = kim_api_set_data_by_index_f(kimmdl,nm2,sz2,dt2);
1037             if(errcheck_mltpl(error,msg,2,"",nm2).lt.KIM_STATUS_OK) return
1066 …subroutine kim_api_getm_data_f(kimmdl,error, nm1,dt1,k1, nm2,dt2,k2, nm3,dt3,k3, nm4,dt4,k4, nm5,d…  argument
1075             character(len=*),optional:: nm2;   integer(kind=kim_intptr),optional:: dt2  local
1103             if( present(nm2 ).and.(.not.present(dt2 ))) then
1104                 if(errcheck_mltpl(error,msg,2, nm2 ).lt.KIM_STATUS_OK) return
1135                 if(errcheck_mltpl(error,msg,2, nm2 ).lt.KIM_STATUS_OK) return
1166  if(present(nm2).and.k2.eq.1) dt2= kim_api_get_data_f(kimmdl,nm2,error);
1167             if(errcheck_mltpl(error,msg,2,nm2).lt.KIM_STATUS_OK) return
1196 …subroutine kim_api_getm_data_by_index_f(kimmdl,error, nm1,dt1,k1, nm2,dt2,k2, nm3,dt3,k3, nm4,dt4,…  argument
1205             integer,optional:: nm2;   integer(kind=kim_intptr),optional:: dt2  local
1232             if( present(nm2 ).and.(.not.present(dt2 ))) then
1233                 if(errcheck_mltpl(error,msg,2, "",nm2 ).lt.KIM_STATUS_OK) return
1264                 if(errcheck_mltpl(error,msg,2,"", nm2 ).lt.KIM_STATUS_OK) return
1295  if(present(nm2).and.k2.eq.1) dt2= kim_api_get_data_by_index_f(kimmdl,nm2,error);
1296             if(errcheck_mltpl(error,msg,2,"",nm2).lt.KIM_STATUS_OK) return
1325 …subroutine kim_api_getm_compute_f(kimmdl,error, nm1,dt1,k1, nm2,dt2,k2, nm3,dt3,k3, nm4,dt4,k4, nm…  argument
1334             character(len=*),optional:: nm2;   integer,optional:: dt2  local
1362             if( present(nm2 ).and.(.not.present(dt2 ))) then
1363                 if(errcheck_mltpl(error,msg,2, nm2 ).lt.KIM_STATUS_OK) return
1394                 if(errcheck_mltpl(error,msg,2, nm2 ).lt.KIM_STATUS_OK) return
1425  if(present(nm2).and.k2.eq.1) dt2= kim_api_get_compute_f(kimmdl,nm2,error);
1426             if(errcheck_mltpl(error,msg,2,nm2).lt.KIM_STATUS_OK) return
1455 …subroutine kim_api_getm_compute_by_index_f(kimmdl,error, nm1,dt1,k1, nm2,dt2,k2, nm3,dt3,k3, nm4,d…  argument
1464             integer,optional:: nm2;   integer,optional:: dt2  local
1493             if( present(nm2 ).and.(.not.present(dt2 ))) then
1494                 if(errcheck_mltpl(error,msg,2, "",nm2 ).lt.KIM_STATUS_OK) return
1525                 if(errcheck_mltpl(error,msg,2,"", nm2 ).lt.KIM_STATUS_OK) return
1556  if(present(nm2).and.k2.eq.1) dt2= kim_api_get_compute_by_index_f(kimmdl,nm2,error);
1557             if(errcheck_mltpl(error,msg,2,"",nm2).lt.KIM_STATUS_OK) return
1586 …subroutine kim_api_getm_index_f(kimmdl,error,  nm1,dt1,k1, nm2,dt2,k2, nm3,dt3,k3, nm4,dt4,k4, nm5…  argument
1595             character(len=*),optional:: nm2;   integer,optional:: dt2  local
1623             if( present(nm2 ).and.(.not.present(dt2 ))) then
1624                 if(errcheck_mltpl(error,msg,2, nm2 ).lt.KIM_STATUS_OK) return
1655                 if(errcheck_mltpl(error,msg,2, nm2 ).lt.KIM_STATUS_OK) return
1686  if(present(nm2).and.k2.eq.1) dt2= kim_api_get_index_f(kimmdl,nm2,error);
1687             if(errcheck_mltpl(error,msg,2,nm2).lt.KIM_STATUS_OK) return
1716 …subroutine kim_api_setm_compute_f(kimmdl,error, nm1,dt1,k1, nm2,dt2,k2, nm3,dt3,k3, nm4,dt4,k4, nm…  argument
1725             character(len=*),optional:: nm2;   integer,optional:: dt2  local
1753             if( present(nm2 ).and.(.not.present(dt2 ))) then
1754                 if(errcheck_mltpl(error,msg,2, nm2 ).lt.KIM_STATUS_OK) return
1785                 if(errcheck_mltpl(error,msg,2, nm2 ).lt.KIM_STATUS_OK) return
1816  if(present(nm2).and.k2.eq.1) call kim_api_set_compute_f(kimmdl,nm2,dt2,error);
1817             if(errcheck_mltpl(error,msg,2,nm2).lt.KIM_STATUS_OK) return
1846 …subroutine kim_api_setm_compute_by_index_f(kimmdl,error, nm1,dt1,k1, nm2,dt2,k2, nm3,dt3,k3, nm4,d…  argument
1855             integer,optional:: nm2;   integer,optional:: dt2  local
1883             if( present(nm2 ).and.(.not.present(dt2 ))) then
1884                 if(errcheck_mltpl(error,msg,2, "",nm2 ).lt.KIM_STATUS_OK) return
1915                 if(errcheck_mltpl(error,msg,2,"", nm2 ).lt.KIM_STATUS_OK) return
1946  if(present(nm2).and.k2.eq.1) call kim_api_set_compute_by_index_f(kimmdl,nm2,dt2,error);
1947             if(errcheck_mltpl(error,msg,2,"",nm2).lt.KIM_STATUS_OK) return