Searched refs:ij_marker (Results 1 – 2 of 2) sorted by relevance
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
| H A D | mp2_ri_gpw.F | 1137 INTEGER, ALLOCATABLE, DIMENSION(:, :) :: ij_marker local
1167 ALLOCATE (ij_marker(homo, homo))
1168 ij_marker = 0
1177 ij_marker(iiB:iiB + block_size - 1, jjB:jjB + block_size - 1) = 1
1186 IF (ij_marker(iiB, jjB) == 0) THEN
1195 DEALLOCATE (ij_marker)
|
| /dports/science/cp2k-data/cp2k-7.1.0/src/ |
| H A D | mp2_ri_gpw.F | 1137 INTEGER, ALLOCATABLE, DIMENSION(:, :) :: ij_marker local
1167 ALLOCATE (ij_marker(homo, homo))
1168 ij_marker = 0
1177 ij_marker(iiB:iiB + block_size - 1, jjB:jjB + block_size - 1) = 1
1186 IF (ij_marker(iiB, jjB) == 0) THEN
1195 DEALLOCATE (ij_marker)
|