| /external/eigen/blas/fortran/ |
| H A D | complexdots.f | 1 COMPLEX FUNCTION CDOTC(N,CX,INCX,CY,INCY)
2 INTEGER INCX,INCY,N local in function:CDOTC
7 CALL CDOTCW(N,CX,INCX,CY,INCY,RES)
12 COMPLEX FUNCTION CDOTU(N,CX,INCX,CY,INCY)
13 INTEGER INCX,INCY,N local in function:CDOTU
18 CALL CDOTUW(N,CX,INCX,CY,INCY,RES)
23 DOUBLE COMPLEX FUNCTION ZDOTC(N,CX,INCX,CY,INCY)
24 INTEGER INCX,INCY,N local in function:ZDOTC
29 CALL ZDOTCW(N,CX,INCX,CY,INCY,RES)
34 DOUBLE COMPLEX FUNCTION ZDOTU(N,CX,INCX,C
35 INTEGER INCX local in function:ZDOTU
[all...] |
| H A D | chbmv.f | 1 SUBROUTINE CHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
4 INTEGER INCX,INCY,K,LDA,N local in subroutine:CHBMV
99 * ( 1 + ( n - 1 )*abs( INCX ) ).
104 * INCX - INTEGER.
105 * On entry, INCX specifies the increment for the elements of
106 * X. INCX must not be zero.
168 ELSE IF (INCX.EQ.0) THEN
184 IF (INCX.GT.0) THEN
187 KX = 1 - (N-1)*INCX
232 IF ((INCX
[all...] |
| H A D | chpmv.f | 1 SUBROUTINE CHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY)
4 INTEGER INCX,INCY,N local in subroutine:CHPMV
63 * ( 1 + ( n - 1 )*abs( INCX ) ).
68 * INCX - INTEGER.
69 * On entry, INCX specifies the increment for the elements of
70 * X. INCX must not be zero.
130 ELSE IF (INCX.EQ.0) THEN
146 IF (INCX.GT.0) THEN
149 KX = 1 - (N-1)*INCX
194 IF ((INCX
[all...] |
| H A D | drotm.f | 1 SUBROUTINE DROTM(N,DX,INCX,DY,INCY,DPARAM)
3 INTEGER INCX,INCY,N local in subroutine:DROTM
17 * DX(LX+I*INCX), I = 0 TO N-1, WHERE LX = 1 IF INCX .GE. 0, ELSE
18 * LX = (-INCX)*N, AND SIMILARLY FOR SY USING LY AND INCY.
37 * INCX (input) INTEGER
65 IF (.NOT. (INCX.EQ.INCY.AND.INCX.GT.0)) GO TO 70
67 NSTEPS = N*INCX
72 DO 20 I = 1,NSTEPS,INCX
[all...] |
| H A D | dsbmv.f | 1 SUBROUTINE DSBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
4 INTEGER INCX,INCY,K,LDA,N local in subroutine:DSBMV
97 * ( 1 + ( n - 1 )*abs( INCX ) ).
102 * INCX - INTEGER.
103 * On entry, INCX specifies the increment for the elements of
104 * X. INCX must not be zero.
162 ELSE IF (INCX.EQ.0) THEN
178 IF (INCX.GT.0) THEN
181 KX = 1 - (N-1)*INCX
226 IF ((INCX
[all...] |
| H A D | dspmv.f | 1 SUBROUTINE DSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY)
4 INTEGER INCX,INCY,N local in subroutine:DSPMV
61 * ( 1 + ( n - 1 )*abs( INCX ) ).
66 * INCX - INTEGER.
67 * On entry, INCX specifies the increment for the elements of
68 * X. INCX must not be zero.
123 ELSE IF (INCX.EQ.0) THEN
139 IF (INCX.GT.0) THEN
142 KX = 1 - (N-1)*INCX
187 IF ((INCX
[all...] |
| H A D | dtbmv.f | 1 SUBROUTINE DTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
3 INTEGER INCX,K,LDA,N local in subroutine:DTBMV
118 * ( 1 + ( n - 1 )*abs( INCX ) ).
123 * INCX - INTEGER.
124 * On entry, INCX specifies the increment for the elements of
125 * X. INCX must not be zero.
177 ELSE IF (INCX.EQ.0) THEN
192 * will be ( N - 1 )*INCX too small for descending loops.
194 IF (INCX.LE.0) THEN
195 KX = 1 - (N-1)*INCX
[all...] |
| H A D | srotm.f | 1 SUBROUTINE SROTM(N,SX,INCX,SY,INCY,SPARAM)
3 INTEGER INCX,INCY,N local in subroutine:SROTM
17 * SX(LX+I*INCX), I = 0 TO N-1, WHERE LX = 1 IF INCX .GE. 0, ELSE
18 * LX = (-INCX)*N, AND SIMILARLY FOR SY USING USING LY AND INCY.
38 * INCX (input) INTEGER
66 IF (.NOT. (INCX.EQ.INCY.AND.INCX.GT.0)) GO TO 70
68 NSTEPS = N*INCX
73 DO 20 I = 1,NSTEPS,INCX
[all...] |
| H A D | ssbmv.f | 1 SUBROUTINE SSBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
4 INTEGER INCX,INCY,K,LDA,N local in subroutine:SSBMV
97 * ( 1 + ( n - 1 )*abs( INCX ) ).
102 * INCX - INTEGER.
103 * On entry, INCX specifies the increment for the elements of
104 * X. INCX must not be zero.
164 ELSE IF (INCX.EQ.0) THEN
180 IF (INCX.GT.0) THEN
183 KX = 1 - (N-1)*INCX
228 IF ((INCX
[all...] |
| H A D | sspmv.f | 1 SUBROUTINE SSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY)
4 INTEGER INCX,INCY,N local in subroutine:SSPMV
61 * ( 1 + ( n - 1 )*abs( INCX ) ).
66 * INCX - INTEGER.
67 * On entry, INCX specifies the increment for the elements of
68 * X. INCX must not be zero.
123 ELSE IF (INCX.EQ.0) THEN
139 IF (INCX.GT.0) THEN
142 KX = 1 - (N-1)*INCX
187 IF ((INCX
[all...] |
| H A D | stbmv.f | 1 SUBROUTINE STBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
3 INTEGER INCX,K,LDA,N local in subroutine:STBMV
118 * ( 1 + ( n - 1 )*abs( INCX ) ).
123 * INCX - INTEGER.
124 * On entry, INCX specifies the increment for the elements of
125 * X. INCX must not be zero.
177 ELSE IF (INCX.EQ.0) THEN
192 * will be ( N - 1 )*INCX too small for descending loops.
194 IF (INCX.LE.0) THEN
195 KX = 1 - (N-1)*INCX
[all...] |
| H A D | zhbmv.f | 1 SUBROUTINE ZHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
4 INTEGER INCX,INCY,K,LDA,N local in subroutine:ZHBMV
99 * ( 1 + ( n - 1 )*abs( INCX ) ).
104 * INCX - INTEGER.
105 * On entry, INCX specifies the increment for the elements of
106 * X. INCX must not be zero.
168 ELSE IF (INCX.EQ.0) THEN
184 IF (INCX.GT.0) THEN
187 KX = 1 - (N-1)*INCX
232 IF ((INCX
[all...] |
| H A D | zhpmv.f | 1 SUBROUTINE ZHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY)
4 INTEGER INCX,INCY,N local in subroutine:ZHPMV
63 * ( 1 + ( n - 1 )*abs( INCX ) ).
68 * INCX - INTEGER.
69 * On entry, INCX specifies the increment for the elements of
70 * X. INCX must not be zero.
130 ELSE IF (INCX.EQ.0) THEN
146 IF (INCX.GT.0) THEN
149 KX = 1 - (N-1)*INCX
194 IF ((INCX
[all...] |
| H A D | ctbmv.f | 1 SUBROUTINE CTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
3 INTEGER INCX,K,LDA,N local in subroutine:CTBMV
118 * ( 1 + ( n - 1 )*abs( INCX ) ).
123 * INCX - INTEGER.
124 * On entry, INCX specifies the increment for the elements of
125 * X. INCX must not be zero.
177 ELSE IF (INCX.EQ.0) THEN
193 * will be ( N - 1 )*INCX too small for descending loops.
195 IF (INCX.LE.0) THEN
196 KX = 1 - (N-1)*INCX
[all...] |
| H A D | ztbmv.f | 1 SUBROUTINE ZTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
3 INTEGER INCX,K,LDA,N local in subroutine:ZTBMV
118 * ( 1 + ( n - 1 )*abs( INCX ) ).
123 * INCX - INTEGER.
124 * On entry, INCX specifies the increment for the elements of
125 * X. INCX must not be zero.
177 ELSE IF (INCX.EQ.0) THEN
193 * will be ( N - 1 )*INCX too small for descending loops.
195 IF (INCX.LE.0) THEN
196 KX = 1 - (N-1)*INCX
[all...] |
| /external/eigen/lapack/ |
| H A D | clacgv.f | 21 * SUBROUTINE CLACGV( N, X, INCX )
24 * INTEGER INCX, N
51 *> (1+(N-1)*abs(INCX))
56 *> \param[in] INCX
58 *> INCX is INTEGER
75 SUBROUTINE CLACGV( N, X, INCX )
83 INTEGER INCX, N local in subroutine:CLACGV
99 IF( INCX.EQ.1 ) THEN
105 IF( INCX.LT.0 )
106 $ IOFF = 1 - ( N-1 )*INCX
[all...] |
| H A D | zlacgv.f | 21 * SUBROUTINE ZLACGV( N, X, INCX )
24 * INTEGER INCX, N
51 *> (1+(N-1)*abs(INCX))
56 *> \param[in] INCX
58 *> INCX is INTEGER
75 SUBROUTINE ZLACGV( N, X, INCX )
83 INTEGER INCX, N local in subroutine:ZLACGV
99 IF( INCX.EQ.1 ) THEN
105 IF( INCX.LT.0 )
106 $ IOFF = 1 - ( N-1 )*INCX
[all...] |
| H A D | dlarfg.f | 21 * SUBROUTINE DLARFG( N, ALPHA, X, INCX, TAU )
24 * INTEGER INCX, N
77 *> (1+(N-2)*abs(INCX))
82 *> \param[in] INCX
84 *> INCX is INTEGER
85 *> The increment between elements of X. INCX > 0.
107 SUBROUTINE DLARFG( N, ALPHA, X, INCX, TAU )
115 INTEGER INCX, N local in subroutine:DLARFG
149 XNORM = DNRM2( N-1, X, INCX )
170 CALL DSCAL( N-1, RSAFMN, X, INCX )
[all...] |
| H A D | slarfg.f | 21 * SUBROUTINE SLARFG( N, ALPHA, X, INCX, TAU )
24 * INTEGER INCX, N
77 *> (1+(N-2)*abs(INCX))
82 *> \param[in] INCX
84 *> INCX is INTEGER
85 *> The increment between elements of X. INCX > 0.
107 SUBROUTINE SLARFG( N, ALPHA, X, INCX, TAU )
115 INTEGER INCX, N local in subroutine:SLARFG
149 XNORM = SNRM2( N-1, X, INCX )
170 CALL SSCAL( N-1, RSAFMN, X, INCX )
[all...] |
| H A D | clarfg.f | 21 * SUBROUTINE CLARFG( N, ALPHA, X, INCX, TAU )
24 * INTEGER INCX, N
77 *> (1+(N-2)*abs(INCX))
82 *> \param[in] INCX
84 *> INCX is INTEGER
85 *> The increment between elements of X. INCX > 0.
107 SUBROUTINE CLARFG( N, ALPHA, X, INCX, TAU )
115 INTEGER INCX, N local in subroutine:CLARFG
150 XNORM = SCNRM2( N-1, X, INCX )
174 CALL CSSCAL( N-1, RSAFMN, X, INCX )
[all...] |
| H A D | zlarfg.f | 21 * SUBROUTINE ZLARFG( N, ALPHA, X, INCX, TAU )
24 * INTEGER INCX, N
77 *> (1+(N-2)*abs(INCX))
82 *> \param[in] INCX
84 *> INCX is INTEGER
85 *> The increment between elements of X. INCX > 0.
107 SUBROUTINE ZLARFG( N, ALPHA, X, INCX, TAU )
115 INTEGER INCX, N local in subroutine:ZLARFG
150 XNORM = DZNRM2( N-1, X, INCX )
174 CALL ZDSCAL( N-1, RSAFMN, X, INCX )
[all...] |
| /external/cblas/testing/ |
| H A D | c_cblat1.f | 9 INTEGER ICASE, INCX, INCY, MODE, N variable in program:CCBLAT1
17 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS local in program:CCBLAT1
26 * Initialize PASS, INCX, INCY, and MODE for a new case.
27 * The value 9999 for INCX, INCY or MODE will appear in the
32 INCX = 9999
53 INTEGER ICASE, INCX, INCY, MODE, N local in subroutine:HEADER
58 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS local in subroutine:HEADER
83 INTEGER ICASE, INCX, INCY, MODE, N local in subroutine:CHECK1
103 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS local in subroutine:CHECK1
200 DO 60 INCX
284 INTEGER ICASE, INCX local in subroutine:CHECK2
301 COMMON /COMBLA/ICASE, N, INCX local in subroutine:CHECK2
540 INTEGER ICASE, INCX local in subroutine:STEST
551 COMMON /COMBLA/ICASE, N, INCX local in subroutine:STEST
656 INTEGER ICASE, INCX local in subroutine:ITEST1
661 COMMON /COMBLA/ICASE, N, INCX local in subroutine:ITEST1
[all...] |
| H A D | c_dblat1.f | 9 INTEGER ICASE, INCX, INCY, MODE, N variable in program:DCBLAT1
17 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS local in program:DCBLAT1
26 * .. Initialize PASS, INCX, INCY, and MODE for a new case. ..
27 * .. the value 9999 for INCX, INCY or MODE will appear in the ..
32 INCX = 9999
59 INTEGER ICASE, INCX, INCY, MODE, N local in subroutine:HEADER
64 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS local in subroutine:HEADER
89 INTEGER ICASE, INCX, INCY, MODE, N local in subroutine:CHECK0
100 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS local in subroutine:CHECK0
150 INTEGER ICASE, INCX, INC local in subroutine:CHECK1
167 COMMON /COMBLA/ICASE, N, INCX local in subroutine:CHECK1
244 INTEGER ICASE, INCX local in subroutine:CHECK2
263 COMMON /COMBLA/ICASE, N, INCX local in subroutine:CHECK2
399 INTEGER ICASE, INCX local in subroutine:CHECK3
417 COMMON /COMBLA/ICASE, N, INCX local in subroutine:CHECK3
616 INTEGER ICASE, INCX local in subroutine:STEST
627 COMMON /COMBLA/ICASE, N, INCX local in subroutine:STEST
701 INTEGER ICASE, INCX local in subroutine:ITEST1
706 COMMON /COMBLA/ICASE, N, INCX local in subroutine:ITEST1
[all...] |
| H A D | c_sblat1.f | 9 INTEGER ICASE, INCX, INCY, MODE, N variable in program:SCBLAT1
17 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS local in program:SCBLAT1
26 * .. Initialize PASS, INCX, INCY, and MODE for a new case. ..
27 * .. the value 9999 for INCX, INCY or MODE will appear in the ..
32 INCX = 9999
59 INTEGER ICASE, INCX, INCY, MODE, N local in subroutine:HEADER
64 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS local in subroutine:HEADER
89 INTEGER ICASE, INCX, INCY, MODE, N local in subroutine:CHECK0
100 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS local in subroutine:CHECK0
150 INTEGER ICASE, INCX, INC local in subroutine:CHECK1
167 COMMON /COMBLA/ICASE, N, INCX local in subroutine:CHECK1
244 INTEGER ICASE, INCX local in subroutine:CHECK2
263 COMMON /COMBLA/ICASE, N, INCX local in subroutine:CHECK2
399 INTEGER ICASE, INCX local in subroutine:CHECK3
417 COMMON /COMBLA/ICASE, N, INCX local in subroutine:CHECK3
616 INTEGER ICASE, INCX local in subroutine:STEST
627 COMMON /COMBLA/ICASE, N, INCX local in subroutine:STEST
701 INTEGER ICASE, INCX local in subroutine:ITEST1
706 COMMON /COMBLA/ICASE, N, INCX local in subroutine:ITEST1
[all...] |
| H A D | c_zblat1.f | 9 INTEGER ICASE, INCX, INCY, MODE, N variable in program:ZCBLAT1
17 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS local in program:ZCBLAT1
26 * Initialize PASS, INCX, INCY, and MODE for a new case.
27 * The value 9999 for INCX, INCY or MODE will appear in the
32 INCX = 9999
53 INTEGER ICASE, INCX, INCY, MODE, N local in subroutine:HEADER
58 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS local in subroutine:HEADER
83 INTEGER ICASE, INCX, INCY, MODE, N local in subroutine:CHECK1
103 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS local in subroutine:CHECK1
200 DO 60 INCX
284 INTEGER ICASE, INCX local in subroutine:CHECK2
301 COMMON /COMBLA/ICASE, N, INCX local in subroutine:CHECK2
540 INTEGER ICASE, INCX local in subroutine:STEST
551 COMMON /COMBLA/ICASE, N, INCX local in subroutine:STEST
656 INTEGER ICASE, INCX local in subroutine:ITEST1
661 COMMON /COMBLA/ICASE, N, INCX local in subroutine:ITEST1
[all...] |