Lines Matching refs:J
96 INTEGER I,INFO,IX,J,JX,K,KK,KX local
145 DO 20 J = 1,N
146 IF (X(J).NE.ZERO) THEN
147 TEMP = ALPHA*DCONJG(X(J))
149 DO 10 I = 1,J - 1
153 AP(KK+J-1) = DBLE(AP(KK+J-1)) + DBLE(X(J)*TEMP)
155 AP(KK+J-1) = DBLE(AP(KK+J-1))
157 KK = KK + J
161 DO 40 J = 1,N
165 DO 30 K = KK,KK + J - 2
169 AP(KK+J-1) = DBLE(AP(KK+J-1)) + DBLE(X(JX)*TEMP)
171 AP(KK+J-1) = DBLE(AP(KK+J-1))
174 KK = KK + J
182 DO 60 J = 1,N
183 IF (X(J).NE.ZERO) THEN
184 TEMP = ALPHA*DCONJG(X(J))
185 AP(KK) = DBLE(AP(KK)) + DBLE(TEMP*X(J))
187 DO 50 I = J + 1,N
194 KK = KK + N - J + 1
198 DO 80 J = 1,N
203 DO 70 K = KK + 1,KK + N - J
211 KK = KK + N - J + 1