Searched refs:iatom8 (Results 1 – 3 of 3) sorted by relevance
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
| H A D | qs_fb_com_tasks_types.F | 849 INTEGER(KIND=int_8) :: iatom8, jatom8, natoms8 local
852 iatom8 = INT(iatom, int_8)
855 ind = (iatom8 - 1_int_8)*natoms8 + (jatom8 - 1_int_8)
875 INTEGER(KIND=int_8) :: iatom8, jatom8, natoms8 local
878 iatom8 = ind/natoms8 + 1_int_8
880 iatom = INT(iatom8, int_4)
|
| /dports/science/cp2k-data/cp2k-7.1.0/src/ |
| H A D | qs_fb_com_tasks_types.F | 849 INTEGER(KIND=int_8) :: iatom8, jatom8, natoms8 local
852 iatom8 = INT(iatom, int_8)
855 ind = (iatom8 - 1_int_8)*natoms8 + (jatom8 - 1_int_8)
875 INTEGER(KIND=int_8) :: iatom8, jatom8, natoms8 local
878 iatom8 = ind/natoms8 + 1_int_8
880 iatom = INT(iatom8, int_4)
|
| H A D | task_list_methods.F | 865 INTEGER(KIND=int_8) :: iatom8, ijatom, ijset, img, ipgf8, iset8, jatom8, jpgf8, jset8, & local
880 iatom8 = ijatom/natom8 + 1
891 iatom = INT(iatom8); jatom = INT(jatom8); iset = INT(iset8); jset = INT(jset8)
|