/external/eigen/blas/ |
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 | dspr.f | 1 SUBROUTINE DSPR(UPLO,N,ALPHA,X,INCX,AP) 4 INTEGER INCX,N local in subroutine:DSPR 47 * ( 1 + ( n - 1 )*abs( INCX ) ). 52 * INCX - INTEGER. 53 * On entry, INCX specifies the increment for the elements of 54 * X. INCX must not be zero. 110 ELSE IF (INCX.EQ.0) THEN 124 IF (INCX.LE.0) THEN 125 KX = 1 - (N-1)*INCX 126 ELSE IF (INCX [all...] |
H A D | sspr.f | 1 SUBROUTINE SSPR(UPLO,N,ALPHA,X,INCX,AP) 4 INTEGER INCX,N local in subroutine:SSPR 47 * ( 1 + ( n - 1 )*abs( INCX ) ). 52 * INCX - INTEGER. 53 * On entry, INCX specifies the increment for the elements of 54 * X. INCX must not be zero. 110 ELSE IF (INCX.EQ.0) THEN 124 IF (INCX.LE.0) THEN 125 KX = 1 - (N-1)*INCX 126 ELSE 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...] |
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 | 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 | ctpmv.f | 1 SUBROUTINE CTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) 3 INTEGER INCX,N local in subroutine:CTPMV 78 * ( 1 + ( n - 1 )*abs( INCX ) ). 83 * INCX - INTEGER. 84 * On entry, INCX specifies the increment for the elements of 85 * X. INCX must not be zero. 133 ELSE IF (INCX.EQ.0) THEN 149 * will be ( N - 1 )*INCX too small for descending loops. 151 IF (INCX.LE.0) THEN 152 KX = 1 - (N-1)*INCX [all...] |
H A D | ctpsv.f | 1 SUBROUTINE CTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) 3 INTEGER INCX,N local in subroutine:CTPSV 81 * ( 1 + ( n - 1 )*abs( INCX ) ). 86 * INCX - INTEGER. 87 * On entry, INCX specifies the increment for the elements of 88 * X. INCX must not be zero. 136 ELSE IF (INCX.EQ.0) THEN 152 * will be ( N - 1 )*INCX too small for descending loops. 154 IF (INCX.LE.0) THEN 155 KX = 1 - (N-1)*INCX [all...] |
H A D | ztpmv.f | 1 SUBROUTINE ZTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) 3 INTEGER INCX,N local in subroutine:ZTPMV 78 * ( 1 + ( n - 1 )*abs( INCX ) ). 83 * INCX - INTEGER. 84 * On entry, INCX specifies the increment for the elements of 85 * X. INCX must not be zero. 133 ELSE IF (INCX.EQ.0) THEN 149 * will be ( N - 1 )*INCX too small for descending loops. 151 IF (INCX.LE.0) THEN 152 KX = 1 - (N-1)*INCX [all...] |
H A D | ztpsv.f | 1 SUBROUTINE ZTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) 3 INTEGER INCX,N local in subroutine:ZTPSV 81 * ( 1 + ( n - 1 )*abs( INCX ) ). 86 * INCX - INTEGER. 87 * On entry, INCX specifies the increment for the elements of 88 * X. INCX must not be zero. 136 ELSE IF (INCX.EQ.0) THEN 152 * will be ( N - 1 )*INCX too small for descending loops. 154 IF (INCX.LE.0) THEN 155 KX = 1 - (N-1)*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 | 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 | dtpmv.f | 1 SUBROUTINE DTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) 3 INTEGER INCX,N local in subroutine:DTPMV 78 * ( 1 + ( n - 1 )*abs( INCX ) ). 83 * INCX - INTEGER. 84 * On entry, INCX specifies the increment for the elements of 85 * X. INCX must not be zero. 130 ELSE IF (INCX.EQ.0) THEN 145 * will be ( N - 1 )*INCX too small for descending loops. 147 IF (INCX.LE.0) THEN 148 KX = 1 - (N-1)*INCX [all...] |
H A D | dtpsv.f | 1 SUBROUTINE DTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) 3 INTEGER INCX,N local in subroutine:DTPSV 81 * ( 1 + ( n - 1 )*abs( INCX ) ). 86 * INCX - INTEGER. 87 * On entry, INCX specifies the increment for the elements of 88 * X. INCX must not be zero. 133 ELSE IF (INCX.EQ.0) THEN 148 * will be ( N - 1 )*INCX too small for descending loops. 150 IF (INCX.LE.0) THEN 151 KX = 1 - (N-1)*INCX [all...] |
H A D | stpmv.f | 1 SUBROUTINE STPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) 3 INTEGER INCX,N local in subroutine:STPMV 78 * ( 1 + ( n - 1 )*abs( INCX ) ). 83 * INCX - INTEGER. 84 * On entry, INCX specifies the increment for the elements of 85 * X. INCX must not be zero. 130 ELSE IF (INCX.EQ.0) THEN 145 * will be ( N - 1 )*INCX too small for descending loops. 147 IF (INCX.LE.0) THEN 148 KX = 1 - (N-1)*INCX [all...] |
H A D | stpsv.f | 1 SUBROUTINE STPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) 3 INTEGER INCX,N local in subroutine:STPSV 81 * ( 1 + ( n - 1 )*abs( INCX ) ). 86 * INCX - INTEGER. 87 * On entry, INCX specifies the increment for the elements of 88 * X. INCX must not be zero. 133 ELSE IF (INCX.EQ.0) THEN 148 * will be ( N - 1 )*INCX too small for descending loops. 150 IF (INCX.LE.0) THEN 151 KX = 1 - (N-1)*INCX [all...] |
H A D | chpr.f | 1 SUBROUTINE CHPR(UPLO,N,ALPHA,X,INCX,AP) 4 INTEGER INCX,N local in subroutine:CHPR 47 * ( 1 + ( n - 1 )*abs( INCX ) ). 52 * INCX - INTEGER. 53 * On entry, INCX specifies the increment for the elements of 54 * X. INCX must not be zero. 116 ELSE IF (INCX.EQ.0) THEN 130 IF (INCX.LE.0) THEN 131 KX = 1 - (N-1)*INCX 132 ELSE IF (INCX [all...] |
H A D | chpr2.f | 1 SUBROUTINE CHPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) 4 INTEGER INCX,INCY,N local in subroutine:CHPR2 47 * ( 1 + ( n - 1 )*abs( INCX ) ). 52 * INCX - INTEGER. 53 * On entry, INCX specifies the increment for the elements of 54 * X. INCX must not be zero. 127 ELSE IF (INCX.EQ.0) THEN 144 IF ((INCX.NE.1) .OR. (INCY.NE.1)) THEN 145 IF (INCX.GT.0) THEN 148 KX = 1 - (N-1)*INCX [all...] |
H A D | dspr2.f | 1 SUBROUTINE DSPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) 4 INTEGER INCX,INCY,N local in subroutine:DSPR2 47 * ( 1 + ( n - 1 )*abs( INCX ) ). 52 * INCX - INTEGER. 53 * On entry, INCX specifies the increment for the elements of 54 * X. INCX must not be zero. 121 ELSE IF (INCX.EQ.0) THEN 138 IF ((INCX.NE.1) .OR. (INCY.NE.1)) THEN 139 IF (INCX.GT.0) THEN 142 KX = 1 - (N-1)*INCX [all...] |
H A D | sspr2.f | 1 SUBROUTINE SSPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) 4 INTEGER INCX,INCY,N local in subroutine:SSPR2 47 * ( 1 + ( n - 1 )*abs( INCX ) ). 52 * INCX - INTEGER. 53 * On entry, INCX specifies the increment for the elements of 54 * X. INCX must not be zero. 121 ELSE IF (INCX.EQ.0) THEN 138 IF ((INCX.NE.1) .OR. (INCY.NE.1)) THEN 139 IF (INCX.GT.0) THEN 142 KX = 1 - (N-1)*INCX [all...] |
H A D | zhpr.f | 1 SUBROUTINE ZHPR(UPLO,N,ALPHA,X,INCX,AP) 4 INTEGER INCX,N local in subroutine:ZHPR 47 * ( 1 + ( n - 1 )*abs( INCX ) ). 52 * INCX - INTEGER. 53 * On entry, INCX specifies the increment for the elements of 54 * X. INCX must not be zero. 116 ELSE IF (INCX.EQ.0) THEN 130 IF (INCX.LE.0) THEN 131 KX = 1 - (N-1)*INCX 132 ELSE IF (INCX [all...] |
H A D | zhpr2.f | 1 SUBROUTINE ZHPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) 4 INTEGER INCX,INCY,N local in subroutine:ZHPR2 47 * ( 1 + ( n - 1 )*abs( INCX ) ). 52 * INCX - INTEGER. 53 * On entry, INCX specifies the increment for the elements of 54 * X. INCX must not be zero. 127 ELSE IF (INCX.EQ.0) THEN 144 IF ((INCX.NE.1) .OR. (INCY.NE.1)) THEN 145 IF (INCX.GT.0) THEN 148 KX = 1 - (N-1)*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 | 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...] |