Lines Matching refs:J
104 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY local
162 DO 20 J = 1,N
163 IF ((X(J).NE.ZERO) .OR. (Y(J).NE.ZERO)) THEN
164 TEMP1 = ALPHA*Y(J)
165 TEMP2 = ALPHA*X(J)
167 DO 10 I = 1,J
172 KK = KK + J
175 DO 40 J = 1,N
181 DO 30 K = KK,KK + J - 1
189 KK = KK + J
197 DO 60 J = 1,N
198 IF ((X(J).NE.ZERO) .OR. (Y(J).NE.ZERO)) THEN
199 TEMP1 = ALPHA*Y(J)
200 TEMP2 = ALPHA*X(J)
202 DO 50 I = J,N
207 KK = KK + N - J + 1
210 DO 80 J = 1,N
216 DO 70 K = KK,KK + N - J
224 KK = KK + N - J + 1