Lines Matching refs:J
107 INTEGER I,INFO,IX,J,JX,K,KK,KX local
163 DO 20 J = 1,N
164 IF (X(J).NE.ZERO) THEN
165 TEMP = X(J)
167 DO 10 I = 1,J - 1
171 IF (NOUNIT) X(J) = X(J)*AP(KK+J-1)
173 KK = KK + J
177 DO 40 J = 1,N
181 DO 30 K = KK,KK + J - 2
185 IF (NOUNIT) X(JX) = X(JX)*AP(KK+J-1)
188 KK = KK + J
194 DO 60 J = N,1,-1
195 IF (X(J).NE.ZERO) THEN
196 TEMP = X(J)
198 DO 50 I = N,J + 1,-1
202 IF (NOUNIT) X(J) = X(J)*AP(KK-N+J)
204 KK = KK - (N-J+1)
209 DO 80 J = N,1,-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)
231 DO 100 J = N,1,-1
232 TEMP = X(J)
235 DO 90 I = J - 1,1,-1
239 X(J) = TEMP
240 KK = KK - J
244 DO 120 J = N,1,-1
248 DO 110 K = KK - 1,KK - J + 1,-1
254 KK = KK - J
260 DO 140 J = 1,N
261 TEMP = X(J)
264 DO 130 I = J + 1,N
268 X(J) = TEMP
269 KK = KK + (N-J+1)
273 DO 160 J = 1,N
277 DO 150 K = KK + 1,KK + N - J
283 KK = KK + (N-J+1)