/external/eigen/blas/fortran/ |
H A D | ctbmv.f | 147 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 D | dtbmv.f | 147 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 D | stbmv.f | 147 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 D | ztbmv.f | 147 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 D | dspmv.f | 106 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 D | sspmv.f | 106 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 D | chbmv.f | 144 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 D | chpmv.f | 110 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 D | dsbmv.f | 138 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...] |
H A D | ssbmv.f | 140 INTEGER I,INFO,IX,IY,J,JX,JY,KPLUS1,KX,KY,L local in subroutine:SSBMV 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 [all...] |
H A D | zhbmv.f | 144 INTEGER I,INFO,IX,IY,J,JX,JY,KPLUS1,KX,KY,L local in subroutine:ZHBMV 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 D | zhpmv.f | 110 INTEGER I,INFO,IX,IY,J,JX,JY,K,KK,KX,KY local in subroutine:ZHPMV 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...] |
/external/cblas/testing/ |
H A D | c_cblat2.f | 2479 INTEGER I, INCXL, INCYL, IY, J, JX, KX, KY, ML, NL local in subroutine:CMVCH 2519 JX = KX 2522 YT( IY ) = YT( IY ) + A( J, I )*X( JX ) 2523 G( IY ) = G( IY ) + ABS1( A( J, I ) )*ABS1( X( JX ) ) 2524 JX = JX + INCXL 2528 YT( IY ) = YT( IY ) + CONJG( A( J, I ) )*X( JX ) 2529 G( IY ) = G( IY ) + ABS1( A( J, I ) )*ABS1( X( JX ) ) 2530 JX = JX [all...] |
H A D | c_dblat2.f | 2663 INTEGER I, INCXL, INCYL, IY, J, JX, KX, KY, ML, NL local in subroutine:DMVCH 2698 JX = KX 2701 YT( IY ) = YT( IY ) + A( J, I )*X( JX ) 2702 G( IY ) = G( IY ) + ABS( A( J, I )*X( JX ) ) 2703 JX = JX + INCXL 2707 YT( IY ) = YT( IY ) + A( I, J )*X( JX ) 2708 G( IY ) = G( IY ) + ABS( A( I, J )*X( JX ) ) 2709 JX = JX [all...] |
H A D | c_sblat2.f | 2663 INTEGER I, INCXL, INCYL, IY, J, JX, KX, KY, ML, NL local in subroutine:SMVCH 2698 JX = KX 2701 YT( IY ) = YT( IY ) + A( J, I )*X( JX ) 2702 G( IY ) = G( IY ) + ABS( A( J, I )*X( JX ) ) 2703 JX = JX + INCXL 2707 YT( IY ) = YT( IY ) + A( I, J )*X( JX ) 2708 G( IY ) = G( IY ) + ABS( A( I, J )*X( JX ) ) 2709 JX = JX [all...] |
H A D | c_zblat2.f | 2485 INTEGER I, INCXL, INCYL, IY, J, JX, KX, KY, ML, NL local in subroutine:ZMVCH 2525 JX = KX 2528 YT( IY ) = YT( IY ) + A( J, I )*X( JX ) 2529 G( IY ) = G( IY ) + ABS1( A( J, I ) )*ABS1( X( JX ) ) 2530 JX = JX + INCXL 2534 YT( IY ) = YT( IY ) + DCONJG( A( J, I ) )*X( JX ) 2535 G( IY ) = G( IY ) + ABS1( A( J, I ) )*ABS1( X( JX ) ) 2536 JX = JX [all...] |
/external/eigen/blas/testing/ |
H A D | cblat2.f | 2898 INTEGER I, INCXL, INCYL, IY, J, JX, KX, KY, ML, NL local in subroutine:CMVCH 2938 JX = KX 2941 YT( IY ) = YT( IY ) + A( J, I )*X( JX ) 2942 G( IY ) = G( IY ) + ABS1( A( J, I ) )*ABS1( X( JX ) ) 2943 JX = JX + INCXL 2947 YT( IY ) = YT( IY ) + CONJG( A( J, I ) )*X( JX ) 2948 G( IY ) = G( IY ) + ABS1( A( J, I ) )*ABS1( X( JX ) ) 2949 JX = JX [all...] |
H A D | zblat2.f | 2906 INTEGER I, INCXL, INCYL, IY, J, JX, KX, KY, ML, NL local in subroutine:ZMVCH 2946 JX = KX 2949 YT( IY ) = YT( IY ) + A( J, I )*X( JX ) 2950 G( IY ) = G( IY ) + ABS1( A( J, I ) )*ABS1( X( JX ) ) 2951 JX = JX + INCXL 2955 YT( IY ) = YT( IY ) + DCONJG( A( J, I ) )*X( JX ) 2956 G( IY ) = G( IY ) + ABS1( A( J, I ) )*ABS1( X( JX ) ) 2957 JX = JX [all...] |
H A D | dblat2.f | 2812 INTEGER I, INCXL, INCYL, IY, J, JX, KX, KY, ML, NL local in subroutine:DMVCH 2847 JX = KX 2850 YT( IY ) = YT( IY ) + A( J, I )*X( JX ) 2851 G( IY ) = G( IY ) + ABS( A( J, I )*X( JX ) ) 2852 JX = JX + INCXL 2856 YT( IY ) = YT( IY ) + A( I, J )*X( JX ) 2857 G( IY ) = G( IY ) + ABS( A( I, J )*X( JX ) ) 2858 JX = JX [all...] |
H A D | sblat2.f | 2812 INTEGER I, INCXL, INCYL, IY, J, JX, KX, KY, ML, NL local in subroutine:SMVCH 2847 JX = KX 2850 YT( IY ) = YT( IY ) + A( J, I )*X( JX ) 2851 G( IY ) = G( IY ) + ABS( A( J, I )*X( JX ) ) 2852 JX = JX + INCXL 2856 YT( IY ) = YT( IY ) + A( I, J )*X( JX ) 2857 G( IY ) = G( IY ) + ABS( A( I, J )*X( JX ) ) 2858 JX = JX [all...] |