Home
last modified time | relevance | path

Searched refs:ikShift2 (Results 1 – 4 of 4) sorted by relevance

/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/grid/
H A Dcolloc_int_kloop.fypp60 ikShift2=shiftPos(2)+kstart2-l_bounds(1,2)
61 IF (ikShift2<0) ikShift2=ikShift2-ndim(2)+1
62 ikShift2=(ikShift2/ndim(2))*ndim(2)-shiftPos(2)
63 !ikShift2=FLOOR(REAL(shiftPos(2)+kstart2-l_bounds(1,2))/REAL(ndim(2)))*ndim(2)-shiftPos(2)
64 kstart2=MIN(ikShift2+l_bounds(2,2),kstart2)
65 kend2=MAX(ikShift2+l_bounds(1,2),kmin)
66 ikstart2=kstart2-ikShift2-l_bounds(1,2)+l_shift(2)
H A Dgauss_colloc.F187 ijShift, iJump, ik, ikShift, ikShift2, ikstart, ikstart2, iend, iend2, & local
/dports/science/cp2k-data/cp2k-7.1.0/src/
H A Dcolloc_int_kloop.fypp60 ikShift2=shiftPos(2)+kstart2-l_bounds(1,2)
61 IF (ikShift2<0) ikShift2=ikShift2-ndim(2)+1
62 ikShift2=(ikShift2/ndim(2))*ndim(2)-shiftPos(2)
63 !ikShift2=FLOOR(REAL(shiftPos(2)+kstart2-l_bounds(1,2))/REAL(ndim(2)))*ndim(2)-shiftPos(2)
64 kstart2=MIN(ikShift2+l_bounds(2,2),kstart2)
65 kend2=MAX(ikShift2+l_bounds(1,2),kmin)
66 ikstart2=kstart2-ikShift2-l_bounds(1,2)+l_shift(2)
H A Dgauss_colloc.F194 ijShift, iJump, ik, ikShift, ikShift2, ikstart, ikstart2, iend, iend2, & local