Searched refs:JX (Results 1 - 25 of 32) sorted by relevance

12

/external/eigen/blas/
H A Ddspr.f93 INTEGER I,INFO,IX,J,JX,K,KK,KX local in subroutine:DSPR
151 JX = KX
153 IF (X(JX).NE.ZERO) THEN
154 TEMP = ALPHA*X(JX)
161 JX = JX + INCX
182 JX = KX
184 IF (X(JX).NE.ZERO) THEN
185 TEMP = ALPHA*X(JX)
186 IX = JX
[all...]
H A Dsspr.f93 INTEGER I,INFO,IX,J,JX,K,KK,KX local in subroutine:SSPR
151 JX = KX
153 IF (X(JX).NE.ZERO) THEN
154 TEMP = ALPHA*X(JX)
161 JX = JX + INCX
182 JX = KX
184 IF (X(JX).NE.ZERO) THEN
185 TEMP = ALPHA*X(JX)
186 IX = JX
[all...]
H A Dctpmv.f107 INTEGER I,INFO,IX,J,JX,K,KK,KX local in subroutine:CTPMV
180 JX = KX
182 IF (X(JX).NE.ZERO) THEN
183 TEMP = X(JX)
189 IF (NOUNIT) X(JX) = X(JX)*AP(KK+J-1)
191 JX = JX + INCX
212 JX = KX
214 IF (X(JX)
[all...]
H A Dctpsv.f110 INTEGER I,INFO,IX,J,JX,K,KK,KX local in subroutine:CTPSV
183 JX = KX + (N-1)*INCX
185 IF (X(JX).NE.ZERO) THEN
186 IF (NOUNIT) X(JX) = X(JX)/AP(KK)
187 TEMP = X(JX)
188 IX = JX
194 JX = JX - INCX
214 JX
[all...]
H A Ddtpmv.f107 INTEGER I,INFO,IX,J,JX,K,KK,KX local in subroutine:DTPMV
176 JX = KX
178 IF (X(JX).NE.ZERO) THEN
179 TEMP = X(JX)
185 IF (NOUNIT) X(JX) = X(JX)*AP(KK+J-1)
187 JX = JX + INCX
208 JX = KX
210 IF (X(JX)
[all...]
H A Ddtpsv.f110 INTEGER I,INFO,IX,J,JX,K,KK,KX local in subroutine:DTPSV
179 JX = KX + (N-1)*INCX
181 IF (X(JX).NE.ZERO) THEN
182 IF (NOUNIT) X(JX) = X(JX)/AP(KK)
183 TEMP = X(JX)
184 IX = JX
190 JX = JX - INCX
210 JX
[all...]
H A Dstpmv.f107 INTEGER I,INFO,IX,J,JX,K,KK,KX local in subroutine:STPMV
176 JX = KX
178 IF (X(JX).NE.ZERO) THEN
179 TEMP = X(JX)
185 IF (NOUNIT) X(JX) = X(JX)*AP(KK+J-1)
187 JX = JX + INCX
208 JX = KX
210 IF (X(JX)
[all...]
H A Dstpsv.f110 INTEGER I,INFO,IX,J,JX,K,KK,KX local in subroutine:STPSV
179 JX = KX + (N-1)*INCX
181 IF (X(JX).NE.ZERO) THEN
182 IF (NOUNIT) X(JX) = X(JX)/AP(KK)
183 TEMP = X(JX)
184 IX = JX
190 JX = JX - INCX
210 JX
[all...]
H A Dztpmv.f107 INTEGER I,INFO,IX,J,JX,K,KK,KX local in subroutine:ZTPMV
180 JX = KX
182 IF (X(JX).NE.ZERO) THEN
183 TEMP = X(JX)
189 IF (NOUNIT) X(JX) = X(JX)*AP(KK+J-1)
191 JX = JX + INCX
212 JX = KX
214 IF (X(JX)
[all...]
H A Dztpsv.f110 INTEGER I,INFO,IX,J,JX,K,KK,KX local in subroutine:ZTPSV
183 JX = KX + (N-1)*INCX
185 IF (X(JX).NE.ZERO) THEN
186 IF (NOUNIT) X(JX) = X(JX)/AP(KK)
187 TEMP = X(JX)
188 IX = JX
194 JX = JX - INCX
214 JX
[all...]
H A Dctbmv.f147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L local in subroutine:CTBMV
222 JX = KX
224 IF (X(JX).NE.ZERO) THEN
225 TEMP = X(JX)
232 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J)
234 JX = JX + INCX
252 JX = KX
254 IF (X(JX)
[all...]
H A Ddtbmv.f147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L local in subroutine:DTBMV
221 JX = KX
223 IF (X(JX).NE.ZERO) THEN
224 TEMP = X(JX)
231 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J)
233 JX = JX + INCX
251 JX = KX
253 IF (X(JX)
[all...]
H A Dstbmv.f147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L local in subroutine:STBMV
221 JX = KX
223 IF (X(JX).NE.ZERO) THEN
224 TEMP = X(JX)
231 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J)
233 JX = JX + INCX
251 JX = KX
253 IF (X(JX)
[all...]
H A Dztbmv.f147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L local in subroutine:ZTBMV
222 JX = KX
224 IF (X(JX).NE.ZERO) THEN
225 TEMP = X(JX)
232 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J)
234 JX = JX + INCX
252 JX = KX
254 IF (X(JX)
[all...]
H A Dchpr.f96 INTEGER I,INFO,IX,J,JX,K,KK,KX local in subroutine:CHPR
160 JX = KX
162 IF (X(JX).NE.ZERO) THEN
163 TEMP = ALPHA*CONJG(X(JX))
169 AP(KK+J-1) = REAL(AP(KK+J-1)) + REAL(X(JX)*TEMP)
173 JX = JX + INCX
197 JX = KX
199 IF (X(JX).NE.ZERO) THEN
200 TEMP = ALPHA*CONJG(X(JX))
[all...]
H A Dzhpr.f96 INTEGER I,INFO,IX,J,JX,K,KK,KX local in subroutine:ZHPR
160 JX = KX
162 IF (X(JX).NE.ZERO) THEN
163 TEMP = ALPHA*DCONJG(X(JX))
169 AP(KK+J-1) = DBLE(AP(KK+J-1)) + DBLE(X(JX)*TEMP)
173 JX = JX + INCX
197 JX = KX
199 IF (X(JX).NE.ZERO) THEN
200 TEMP = ALPHA*DCONJG(X(JX))
[all...]
H A Dchpr2.f107 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY local in subroutine:CHPR2
155 JX = KX
186 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN
188 TEMP2 = CONJG(ALPHA*X(JX))
197 + REAL(X(JX)*TEMP1+Y(JY)*TEMP2)
201 JX = JX + INCX
229 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN
231 TEMP2 = CONJG(ALPHA*X(JX))
233 + REAL(X(JX)*TEMP
[all...]
H A Dzhpr2.f107 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY local in subroutine:ZHPR2
155 JX = KX
186 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN
188 TEMP2 = DCONJG(ALPHA*X(JX))
197 + DBLE(X(JX)*TEMP1+Y(JY)*TEMP2)
201 JX = JX + INCX
229 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN
231 TEMP2 = DCONJG(ALPHA*X(JX))
233 + DBLE(X(JX)*TEMP
[all...]
H A Ddspr2.f104 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY local in subroutine:DSPR2
149 JX = KX
176 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN
178 TEMP2 = ALPHA*X(JX)
187 JX = JX + INCX
211 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN
213 TEMP2 = ALPHA*X(JX)
214 IX = JX
222 JX
[all...]
H A Dsspr2.f104 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY local in subroutine:SSPR2
149 JX = KX
176 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN
178 TEMP2 = ALPHA*X(JX)
187 JX = JX + INCX
211 IF ((X(JX).NE.ZERO) .OR. (Y(JY).NE.ZERO)) THEN
213 TEMP2 = ALPHA*X(JX)
214 IX = JX
222 JX
[all...]
H A Ddspmv.f106 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY local in subroutine:DSPMV
201 JX = KX
204 TEMP1 = ALPHA*X(JX)
215 JX = JX + INCX
239 JX = KX
242 TEMP1 = ALPHA*X(JX)
245 IX = JX
254 JX = JX
[all...]
H A Dsspmv.f106 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY local in subroutine:SSPMV
201 JX = KX
204 TEMP1 = ALPHA*X(JX)
215 JX = JX + INCX
239 JX = KX
242 TEMP1 = ALPHA*X(JX)
245 IX = JX
254 JX = JX
[all...]
H A Dchbmv.f144 INTEGER I,INFO,IX,IY,J,JX,JY,KPLUS1,KX,KY,L local in subroutine:CHBMV
244 JX = KX
247 TEMP1 = ALPHA*X(JX)
259 JX = JX + INCX
284 JX = KX
287 TEMP1 = ALPHA*X(JX)
291 IX = JX
300 JX = JX
[all...]
H A Dchpmv.f110 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY local in subroutine:CHPMV
208 JX = KX
211 TEMP1 = ALPHA*X(JX)
222 JX = JX + INCX
246 JX = KX
249 TEMP1 = ALPHA*X(JX)
252 IX = JX
261 JX = JX
[all...]
H A Ddsbmv.f138 INTEGER I,INFO,IX,IY,J,JX,JY,KPLUS1,KX,KY,L local in subroutine:DSBMV
238 JX = KX
241 TEMP1 = ALPHA*X(JX)
253 JX = JX + INCX
278 JX = KX
281 TEMP1 = ALPHA*X(JX)
285 IX = JX
294 JX = JX
[all...]

Completed in 153 milliseconds

12