| /external/eigen/blas/ |
| ctpmv.f | 107 INTEGER I,INFO,IX,J,JX,K,KK,KX
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) THE
[all...] |
| ctpsv.f | 110 INTEGER I,INFO,IX,J,JX,K,KK,KX
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 = K
[all...] |
| dtpmv.f | 107 INTEGER I,INFO,IX,J,JX,K,KK,KX
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) THE
[all...] |
| dtpsv.f | 110 INTEGER I,INFO,IX,J,JX,K,KK,KX
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 = K
[all...] |
| stpmv.f | 107 INTEGER I,INFO,IX,J,JX,K,KK,KX
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) THE
[all...] |
| stpsv.f | 110 INTEGER I,INFO,IX,J,JX,K,KK,KX
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 = K
[all...] |
| ztpmv.f | 107 INTEGER I,INFO,IX,J,JX,K,KK,KX
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) THE
[all...] |
| ztpsv.f | 110 INTEGER I,INFO,IX,J,JX,K,KK,KX
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 = K
[all...] |
| ctbmv.f | 147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L
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) THE
[all...] |
| dtbmv.f | 147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L
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) THE
[all...] |
| stbmv.f | 147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L
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) THE
[all...] |
| ztbmv.f | 147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L
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) THE
[all...] |
| dspr.f | 93 INTEGER I,INFO,IX,J,JX,K,KK,KX
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...] |
| sspr.f | 93 INTEGER I,INFO,IX,J,JX,K,KK,KX
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...] |
| chpr.f | 96 INTEGER I,INFO,IX,J,JX,K,KK,KX
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...] |
| zhpr.f | 96 INTEGER I,INFO,IX,J,JX,K,KK,KX
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...] |
| chpr2.f | 107 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY
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
[all...] |
| zhpr2.f | 107 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY
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
[all...] |
| dspr2.f | 104 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY
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 + INC
[all...] |
| sspr2.f | 104 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY
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 + INC
[all...] |
| chbmv.f | 144 INTEGER I,INFO,IX,IY,J,JX,JY,KPLUS1,KX,KY,L
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 + INC
[all...] |
| chpmv.f | 110 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY
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 + INC
[all...] |
| dsbmv.f | 138 INTEGER I,INFO,IX,IY,J,JX,JY,KPLUS1,KX,KY,L
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 + INC
[all...] |
| dspmv.f | 106 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY
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 + INC
[all...] |
| ssbmv.f | 140 INTEGER I,INFO,IX,IY,J,JX,JY,KPLUS1,KX,KY,L
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 + INC
[all...] |
