Lines Matching refs:KK
110 INTEGER I,INFO,IX,J,JX,K,KK,KX
168 KK = (N* (N+1))/2
172 IF (NOUNIT) X(J) = X(J)/AP(KK)
174 K = KK - 1
180 KK = KK - J
186 IF (NOUNIT) X(JX) = X(JX)/AP(KK)
189 DO 30 K = KK - 1,KK - J + 1,-1
195 KK = KK - J
199 KK = 1
203 IF (NOUNIT) X(J) = X(J)/AP(KK)
205 K = KK + 1
211 KK = KK + (N-J+1)
217 IF (NOUNIT) X(JX) = X(JX)/AP(KK)
220 DO 70 K = KK + 1,KK + N - J
226 KK = KK + (N-J+1)
235 KK = 1
239 K = KK
245 IF (NOUNIT) TEMP = TEMP/AP(KK+J-1)
251 IF (NOUNIT) TEMP = TEMP/CONJG(AP(KK+J-1))
254 KK = KK + J
262 DO 120 K = KK,KK + J - 2
266 IF (NOUNIT) TEMP = TEMP/AP(KK+J-1)
268 DO 130 K = KK,KK + J - 2
272 IF (NOUNIT) TEMP = TEMP/CONJG(AP(KK+J-1))
276 KK = KK + J
280 KK = (N* (N+1))/2
284 K = KK
290 IF (NOUNIT) TEMP = TEMP/AP(KK-N+J)
296 IF (NOUNIT) TEMP = TEMP/CONJG(AP(KK-N+J))
299 KK = KK - (N-J+1)
308 DO 180 K = KK,KK - (N- (J+1)),-1
312 IF (NOUNIT) TEMP = TEMP/AP(KK-N+J)
314 DO 190 K = KK,KK - (N- (J+1)),-1
318 IF (NOUNIT) TEMP = TEMP/CONJG(AP(KK-N+J))
322 KK = KK - (N-J+1)
