Lines Matching refs:J
107 INTEGER I,INFO,IX,J,JX,K,KK,KX local
167 DO 20 J = 1,N
168 IF (X(J).NE.ZERO) THEN
169 TEMP = X(J)
171 DO 10 I = 1,J - 1
175 IF (NOUNIT) X(J) = X(J)*AP(KK+J-1)
177 KK = KK + J
181 DO 40 J = 1,N
185 DO 30 K = KK,KK + J - 2
189 IF (NOUNIT) X(JX) = X(JX)*AP(KK+J-1)
192 KK = KK + J
198 DO 60 J = N,1,-1
199 IF (X(J).NE.ZERO) THEN
200 TEMP = X(J)
202 DO 50 I = N,J + 1,-1
206 IF (NOUNIT) X(J) = X(J)*AP(KK-N+J)
208 KK = KK - (N-J+1)
213 DO 80 J = N,1,-1
217 DO 70 K = KK,KK - (N- (J+1)),-1
221 IF (NOUNIT) X(JX) = X(JX)*AP(KK-N+J)
224 KK = KK - (N-J+1)
235 DO 110 J = N,1,-1
236 TEMP = X(J)
240 DO 90 I = J - 1,1,-1
246 DO 100 I = J - 1,1,-1
251 X(J) = TEMP
252 KK = KK - J
256 DO 140 J = N,1,-1
261 DO 120 K = KK - 1,KK - J + 1,-1
267 DO 130 K = KK - 1,KK - J + 1,-1
274 KK = KK - J
280 DO 170 J = 1,N
281 TEMP = X(J)
285 DO 150 I = J + 1,N
291 DO 160 I = J + 1,N
296 X(J) = TEMP
297 KK = KK + (N-J+1)
301 DO 200 J = 1,N
306 DO 180 K = KK + 1,KK + N - J
312 DO 190 K = KK + 1,KK + N - J
319 KK = KK + (N-J+1)