Lines Matching refs:KK
110 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY
189 KK = 1
198 K = KK
204 Y(J) = Y(J) + TEMP1*DBLE(AP(KK+J-1)) + ALPHA*TEMP2
205 KK = KK + J
215 DO 70 K = KK,KK + J - 2
221 Y(JY) = Y(JY) + TEMP1*DBLE(AP(KK+J-1)) + ALPHA*TEMP2
224 KK = KK + J
235 Y(J) = Y(J) + TEMP1*DBLE(AP(KK))
236 K = KK + 1
243 KK = KK + (N-J+1)
251 Y(JY) = Y(JY) + TEMP1*DBLE(AP(KK))
254 DO 110 K = KK + 1,KK + N - J
263 KK = KK + (N-J+1)
