Searched refs:isubforce_eval (Results 1 – 2 of 2) sorted by relevance
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
| H A D | f77_interface.F | 566 INTEGER :: handle, i, ierr2, iforce_eval, isubforce_eval, k, method_name_id, my_group, & local
732 isubforce_eval = iforce_eval - 1
734 IF (MODULO(isubforce_eval - 1, ngroups) /= my_group) CYCLE
745 isubforce_eval = iforce_eval - 1
747 IF (MODULO(isubforce_eval - 1, ngroups) /= my_group) CYCLE
|
| /dports/science/cp2k-data/cp2k-7.1.0/src/ |
| H A D | f77_interface.F | 568 INTEGER :: handle, i, ierr2, iforce_eval, isubforce_eval, k, method_name_id, my_group, & local
734 isubforce_eval = iforce_eval - 1
736 IF (MODULO(isubforce_eval - 1, ngroups) /= my_group) CYCLE
747 isubforce_eval = iforce_eval - 1
749 IF (MODULO(isubforce_eval - 1, ngroups) /= my_group) CYCLE
|