Lines Matching refs:J
147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L local
210 DO 20 J = 1,N
211 IF (X(J).NE.ZERO) THEN
212 TEMP = X(J)
213 L = KPLUS1 - J
214 DO 10 I = MAX(1,J-K),J - 1
215 X(I) = X(I) + TEMP*A(L+I,J)
217 IF (NOUNIT) X(J) = X(J)*A(KPLUS1,J)
222 DO 40 J = 1,N
226 L = KPLUS1 - J
227 DO 30 I = MAX(1,J-K),J - 1
228 X(IX) = X(IX) + TEMP*A(L+I,J)
231 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J)
234 IF (J.GT.K) KX = KX + INCX
239 DO 60 J = N,1,-1
240 IF (X(J).NE.ZERO) THEN
241 TEMP = X(J)
242 L = 1 - J
243 DO 50 I = MIN(N,J+K),J + 1,-1
244 X(I) = X(I) + TEMP*A(L+I,J)
246 IF (NOUNIT) X(J) = X(J)*A(1,J)
252 DO 80 J = N,1,-1
256 L = 1 - J
257 DO 70 I = MIN(N,J+K),J + 1,-1
258 X(IX) = X(IX) + TEMP*A(L+I,J)
261 IF (NOUNIT) X(JX) = X(JX)*A(1,J)
264 IF ((N-J).GE.K) KX = KX - INCX
275 DO 100 J = N,1,-1
276 TEMP = X(J)
277 L = KPLUS1 - J
278 IF (NOUNIT) TEMP = TEMP*A(KPLUS1,J)
279 DO 90 I = J - 1,MAX(1,J-K),-1
280 TEMP = TEMP + A(L+I,J)*X(I)
282 X(J) = TEMP
287 DO 120 J = N,1,-1
291 L = KPLUS1 - J
292 IF (NOUNIT) TEMP = TEMP*A(KPLUS1,J)
293 DO 110 I = J - 1,MAX(1,J-K),-1
294 TEMP = TEMP + A(L+I,J)*X(IX)
303 DO 140 J = 1,N
304 TEMP = X(J)
305 L = 1 - J
306 IF (NOUNIT) TEMP = TEMP*A(1,J)
307 DO 130 I = J + 1,MIN(N,J+K)
308 TEMP = TEMP + A(L+I,J)*X(I)
310 X(J) = TEMP
314 DO 160 J = 1,N
318 L = 1 - J
319 IF (NOUNIT) TEMP = TEMP*A(1,J)
320 DO 150 I = J + 1,MIN(N,J+K)
321 TEMP = TEMP + A(L+I,J)*X(IX)