Lines Matching refs:KK
106 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY
182 KK = 1
191 K = KK
197 Y(J) = Y(J) + TEMP1*AP(KK+J-1) + ALPHA*TEMP2
198 KK = KK + J
208 DO 70 K = KK,KK + J - 2
214 Y(JY) = Y(JY) + TEMP1*AP(KK+J-1) + ALPHA*TEMP2
217 KK = KK + J
228 Y(J) = Y(J) + TEMP1*AP(KK)
229 K = KK + 1
236 KK = KK + (N-J+1)
244 Y(JY) = Y(JY) + TEMP1*AP(KK)
247 DO 110 K = KK + 1,KK + N - J
256 KK = KK + (N-J+1)
