Lines Matching refs:J
110 INTEGER I,INFO,IX,J,JX,K,KK,KX local
170 DO 20 J = N,1,-1
171 IF (X(J).NE.ZERO) THEN
172 IF (NOUNIT) X(J) = X(J)/AP(KK)
173 TEMP = X(J)
175 DO 10 I = J - 1,1,-1
180 KK = KK - J
184 DO 40 J = N,1,-1
189 DO 30 K = KK - 1,KK - J + 1,-1
195 KK = KK - J
201 DO 60 J = 1,N
202 IF (X(J).NE.ZERO) THEN
203 IF (NOUNIT) X(J) = X(J)/AP(KK)
204 TEMP = X(J)
206 DO 50 I = J + 1,N
211 KK = KK + (N-J+1)
215 DO 80 J = 1,N
220 DO 70 K = KK + 1,KK + N - J
226 KK = KK + (N-J+1)
237 DO 110 J = 1,N
238 TEMP = X(J)
241 DO 90 I = 1,J - 1
245 IF (NOUNIT) TEMP = TEMP/AP(KK+J-1)
247 DO 100 I = 1,J - 1
251 IF (NOUNIT) TEMP = TEMP/DCONJG(AP(KK+J-1))
253 X(J) = TEMP
254 KK = KK + J
258 DO 140 J = 1,N
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/DCONJG(AP(KK+J-1))
276 KK = KK + J
282 DO 170 J = N,1,-1
283 TEMP = X(J)
286 DO 150 I = N,J + 1,-1
290 IF (NOUNIT) TEMP = TEMP/AP(KK-N+J)
292 DO 160 I = N,J + 1,-1
296 IF (NOUNIT) TEMP = TEMP/DCONJG(AP(KK-N+J))
298 X(J) = TEMP
299 KK = KK - (N-J+1)
304 DO 200 J = N,1,-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/DCONJG(AP(KK-N+J))
322 KK = KK - (N-J+1)