Lines Matching refs:KK
107 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY
162 KK = 1
172 K = KK
177 AP(KK+J-1) = DBLE(AP(KK+J-1)) +
180 AP(KK+J-1) = DBLE(AP(KK+J-1))
182 KK = KK + J
191 DO 30 K = KK,KK + J - 2
196 AP(KK+J-1) = DBLE(AP(KK+J-1)) +
199 AP(KK+J-1) = DBLE(AP(KK+J-1))
203 KK = KK + J
215 AP(KK) = DBLE(AP(KK)) +
217 K = KK + 1
223 AP(KK) = DBLE(AP(KK))
225 KK = KK + N - J + 1
232 AP(KK) = DBLE(AP(KK)) +
236 DO 70 K = KK + 1,KK + N - J
242 AP(KK) = DBLE(AP(KK))
246 KK = KK + N - J + 1
