Lines Matching refs:KK
107 INTEGER I,INFO,IX,J,JX,K,KK,KX
161 KK = 1
166 K = KK
171 IF (NOUNIT) X(J) = X(J)*AP(KK+J-1)
173 KK = KK + J
181 DO 30 K = KK,KK + J - 2
185 IF (NOUNIT) X(JX) = X(JX)*AP(KK+J-1)
188 KK = KK + J
192 KK = (N* (N+1))/2
197 K = KK
202 IF (NOUNIT) X(J) = X(J)*AP(KK-N+J)
204 KK = KK - (N-J+1)
213 DO 70 K = KK,KK - (N- (J+1)),-1
217 IF (NOUNIT) X(JX) = X(JX)*AP(KK-N+J)
220 KK = KK - (N-J+1)
229 KK = (N* (N+1))/2
233 IF (NOUNIT) TEMP = TEMP*AP(KK)
234 K = KK - 1
240 KK = KK - J
247 IF (NOUNIT) TEMP = TEMP*AP(KK)
248 DO 110 K = KK - 1,KK - J + 1,-1
254 KK = KK - J
258 KK = 1
262 IF (NOUNIT) TEMP = TEMP*AP(KK)
263 K = KK + 1
269 KK = KK + (N-J+1)
276 IF (NOUNIT) TEMP = TEMP*AP(KK)
277 DO 150 K = KK + 1,KK + N - J
283 KK = KK + (N-J+1)
