Home
last modified time | relevance | path

Searched refs:JX (Results 1 – 25 of 41) sorted by relevance

12

/external/eigen/blas/
Ddtpsv.f110 INTEGER I,INFO,IX,J,JX,K,KK,KX local
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 = KX
212 IF (X(JX).NE.ZERO) THEN
213 IF (NOUNIT) X(JX) = X(JX)/AP(KK)
[all …]
Dstpsv.f110 INTEGER I,INFO,IX,J,JX,K,KK,KX local
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 = KX
212 IF (X(JX).NE.ZERO) THEN
213 IF (NOUNIT) X(JX) = X(JX)/AP(KK)
[all …]
Dstpmv.f107 INTEGER I,INFO,IX,J,JX,K,KK,KX local
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).NE.ZERO) THEN
211 TEMP = X(JX)
217 IF (NOUNIT) X(JX) = X(JX)*AP(KK-N+J)
[all …]
Ddtpmv.f107 INTEGER I,INFO,IX,J,JX,K,KK,KX local
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).NE.ZERO) THEN
211 TEMP = X(JX)
217 IF (NOUNIT) X(JX) = X(JX)*AP(KK-N+J)
[all …]
Ddtbmv.f147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L local
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).NE.ZERO) THEN
254 TEMP = X(JX)
261 IF (NOUNIT) X(JX) = X(JX)*A(1,J)
[all …]
Dstbmv.f147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L local
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).NE.ZERO) THEN
254 TEMP = X(JX)
261 IF (NOUNIT) X(JX) = X(JX)*A(1,J)
[all …]
Dctpmv.f107 INTEGER I,INFO,IX,J,JX,K,KK,KX local
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).NE.ZERO) THEN
215 TEMP = X(JX)
221 IF (NOUNIT) X(JX) = X(JX)*AP(KK-N+J)
[all …]
Dztpsv.f110 INTEGER I,INFO,IX,J,JX,K,KK,KX local
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 = KX
216 IF (X(JX).NE.ZERO) THEN
217 IF (NOUNIT) X(JX) = X(JX)/AP(KK)
[all …]
Dztpmv.f107 INTEGER I,INFO,IX,J,JX,K,KK,KX local
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).NE.ZERO) THEN
215 TEMP = X(JX)
221 IF (NOUNIT) X(JX) = X(JX)*AP(KK-N+J)
[all …]
Dctpsv.f110 INTEGER I,INFO,IX,J,JX,K,KK,KX local
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 = KX
216 IF (X(JX).NE.ZERO) THEN
217 IF (NOUNIT) X(JX) = X(JX)/AP(KK)
[all …]
Dctbmv.f147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L local
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).NE.ZERO) THEN
255 TEMP = X(JX)
262 IF (NOUNIT) X(JX) = X(JX)*A(1,J)
[all …]
Dztbmv.f147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L local
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).NE.ZERO) THEN
255 TEMP = X(JX)
262 IF (NOUNIT) X(JX) = X(JX)*A(1,J)
[all …]
Dchpr.f96 INTEGER I,INFO,IX,J,JX,K,KK,KX local
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))
201 AP(KK) = REAL(AP(KK)) + REAL(TEMP*X(JX))
[all …]
Ddspr.f93 INTEGER I,INFO,IX,J,JX,K,KK,KX local
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
192 JX = JX + INCX
Dsspr.f93 INTEGER I,INFO,IX,J,JX,K,KK,KX local
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
192 JX = JX + INCX
Dzhpr.f96 INTEGER I,INFO,IX,J,JX,K,KK,KX local
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))
201 AP(KK) = DBLE(AP(KK)) + DBLE(TEMP*X(JX))
[all …]
Dzhpr2.f107 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY local
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)*TEMP1+Y(JY)*TEMP2)
234 IX = JX
[all …]
Dchpr2.f107 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY local
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)*TEMP1+Y(JY)*TEMP2)
234 IX = JX
[all …]
Dsspr2.f104 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY local
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 = JX + INCX
Ddspr2.f104 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY local
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 = JX + INCX
Ddspmv.f106 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY local
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 + INCX
Dzhpmv.f110 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY local
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 + INCX
Dsspmv.f106 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY local
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 + INCX
Dchpmv.f110 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY local
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 + INCX
Dssbmv.f140 INTEGER I,INFO,IX,IY,J,JX,JY,KPLUS1,KX,KY,L local
240 JX = KX
243 TEMP1 = ALPHA*X(JX)
255 JX = JX + INCX
280 JX = KX
283 TEMP1 = ALPHA*X(JX)
287 IX = JX
296 JX = JX + INCX

12