Searched refs:iiShift2 (Results 1 – 2 of 2) sorted by relevance
| /dports/science/cp2k-data/cp2k-7.1.0/src/ |
| H A D | gauss_colloc.F | 193 INTEGER :: grad, i, i0, ii, iiShift, iiShift2, iistart, iistart2, ij, & local
617 iiShift2 = shiftPos(0)+istart2-l_bounds(1, 0)
618 IF (iiShift2 < 0) iiShift2 = iiShift2-ndim(0)+1
619 iiShift2 = (iiShift2/ndim(0))*ndim(0)-shiftPos(0)
621 istart2 = MIN(iiShift2+l_bounds(2, 0), istart2)
622 iistart2 = istart2-iiShift2-l_bounds(1, 0)+l_shift(0)
675 iend2 = MAX(iiShift2+l_bounds(1, 0), imin)
|
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/grid/ |
| H A D | gauss_colloc.F | 186 INTEGER :: grad, i, i0, ii, iiShift, iiShift2, iistart, iistart2, ij, & local
604 iiShift2 = shiftPos(0) + istart2 - l_bounds(1, 0)
605 IF (iiShift2 < 0) iiShift2 = iiShift2 - ndim(0) + 1
606 iiShift2 = (iiShift2/ndim(0))*ndim(0) - shiftPos(0)
608 istart2 = MIN(iiShift2 + l_bounds(2, 0), istart2)
609 iistart2 = istart2 - iiShift2 - l_bounds(1, 0) + l_shift(0)
662 iend2 = MAX(iiShift2 + l_bounds(1, 0), imin)
|