Lines Matching refs:J
144 INTEGER I,INFO,IX,IY,J,JX,JY,KPLUS1,KX,KY,L local
233 DO 60 J = 1,N
234 TEMP1 = ALPHA*X(J)
236 L = KPLUS1 - J
237 DO 50 I = MAX(1,J-K),J - 1
238 Y(I) = Y(I) + TEMP1*A(L+I,J)
239 TEMP2 = TEMP2 + CONJG(A(L+I,J))*X(I)
241 Y(J) = Y(J) + TEMP1*REAL(A(KPLUS1,J)) + ALPHA*TEMP2
246 DO 80 J = 1,N
251 L = KPLUS1 - J
252 DO 70 I = MAX(1,J-K),J - 1
253 Y(IY) = Y(IY) + TEMP1*A(L+I,J)
254 TEMP2 = TEMP2 + CONJG(A(L+I,J))*X(IX)
258 Y(JY) = Y(JY) + TEMP1*REAL(A(KPLUS1,J)) + ALPHA*TEMP2
261 IF (J.GT.K) THEN
272 DO 100 J = 1,N
273 TEMP1 = ALPHA*X(J)
275 Y(J) = Y(J) + TEMP1*REAL(A(1,J))
276 L = 1 - J
277 DO 90 I = J + 1,MIN(N,J+K)
278 Y(I) = Y(I) + TEMP1*A(L+I,J)
279 TEMP2 = TEMP2 + CONJG(A(L+I,J))*X(I)
281 Y(J) = Y(J) + ALPHA*TEMP2
286 DO 120 J = 1,N
289 Y(JY) = Y(JY) + TEMP1*REAL(A(1,J))
290 L = 1 - J
293 DO 110 I = J + 1,MIN(N,J+K)
296 Y(IY) = Y(IY) + TEMP1*A(L+I,J)
297 TEMP2 = TEMP2 + CONJG(A(L+I,J))*X(IX)