Lines Matching refs:J
107 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY local
168 DO 20 J = 1,N
169 IF ((X(J).NE.ZERO) .OR. (Y(J).NE.ZERO)) THEN
170 TEMP1 = ALPHA*DCONJG(Y(J))
171 TEMP2 = DCONJG(ALPHA*X(J))
173 DO 10 I = 1,J - 1
177 AP(KK+J-1) = DBLE(AP(KK+J-1)) +
178 + DBLE(X(J)*TEMP1+Y(J)*TEMP2)
180 AP(KK+J-1) = DBLE(AP(KK+J-1))
182 KK = KK + J
185 DO 40 J = 1,N
191 DO 30 K = KK,KK + J - 2
196 AP(KK+J-1) = DBLE(AP(KK+J-1)) +
199 AP(KK+J-1) = DBLE(AP(KK+J-1))
203 KK = KK + J
211 DO 60 J = 1,N
212 IF ((X(J).NE.ZERO) .OR. (Y(J).NE.ZERO)) THEN
213 TEMP1 = ALPHA*DCONJG(Y(J))
214 TEMP2 = DCONJG(ALPHA*X(J))
216 + DBLE(X(J)*TEMP1+Y(J)*TEMP2)
218 DO 50 I = J + 1,N
225 KK = KK + N - J + 1
228 DO 80 J = 1,N
236 DO 70 K = KK + 1,KK + N - J
246 KK = KK + N - J + 1