/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,CY,INCY) 35 INTEGER INCX,INCY local in function:ZDOTU [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 77 * ( 1 + ( n - 1 )*abs( INCY ) ). 82 * INCY - INTEGER. 83 * On entry, INCY specifies the increment for the elements of 84 * Y. INCY must not be zero. 125 ELSE IF (INCY.EQ.0) THEN 144 IF (INCY.GT.0) THEN 147 KY = 1 - (N-1)*INCY 156 IF (INCY [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 77 * ( 1 + ( n - 1 )*abs( INCY ) ). 82 * INCY - INTEGER. 83 * On entry, INCY specifies the increment for the elements of 84 * Y. INCY must not be zero. 125 ELSE IF (INCY.EQ.0) THEN 144 IF (INCY.GT.0) THEN 147 KY = 1 - (N-1)*INCY 156 IF (INCY [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 58 * ( 1 + ( n - 1 )*abs( INCY ) ). 63 * INCY - INTEGER. 64 * On entry, INCY specifies the increment for the elements of 65 * Y. INCY must not be zero. 129 ELSE IF (INCY.EQ.0) THEN 144 IF ((INCX.NE.1) .OR. (INCY.NE.1)) THEN 150 IF (INCY.GT.0) THEN 153 KY = 1 - (N-1)*INCY [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 58 * ( 1 + ( n - 1 )*abs( INCY ) ). 63 * INCY - INTEGER. 64 * On entry, INCY specifies the increment for the elements of 65 * Y. INCY must not be zero. 123 ELSE IF (INCY.EQ.0) THEN 138 IF ((INCX.NE.1) .OR. (INCY.NE.1)) THEN 144 IF (INCY.GT.0) THEN 147 KY = 1 - (N-1)*INCY [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 58 * ( 1 + ( n - 1 )*abs( INCY ) ). 63 * INCY - INTEGER. 64 * On entry, INCY specifies the increment for the elements of 65 * Y. INCY must not be zero. 123 ELSE IF (INCY.EQ.0) THEN 138 IF ((INCX.NE.1) .OR. (INCY.NE.1)) THEN 144 IF (INCY.GT.0) THEN 147 KY = 1 - (N-1)*INCY [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 58 * ( 1 + ( n - 1 )*abs( INCY ) ). 63 * INCY - INTEGER. 64 * On entry, INCY specifies the increment for the elements of 65 * Y. INCY must not be zero. 129 ELSE IF (INCY.EQ.0) THEN 144 IF ((INCX.NE.1) .OR. (INCY.NE.1)) THEN 150 IF (INCY.GT.0) THEN 153 KY = 1 - (N-1)*INCY [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 114 * ( 1 + ( n - 1 )*abs( INCY ) ). 118 * INCY - INTEGER. 119 * On entry, INCY specifies the increment for the elements of 120 * Y. INCY must not be zero. 170 ELSE IF (INCY.EQ.0) THEN 189 IF (INCY.GT.0) THEN 192 KY = 1 - (N-1)*INCY 201 IF (INCY [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 112 * ( 1 + ( n - 1 )*abs( INCY ) ). 116 * INCY - INTEGER. 117 * On entry, INCY specifies the increment for the elements of 118 * Y. INCY must not be zero. 164 ELSE IF (INCY.EQ.0) THEN 183 IF (INCY.GT.0) THEN 186 KY = 1 - (N-1)*INCY 195 IF (INCY [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 112 * ( 1 + ( n - 1 )*abs( INCY ) ). 116 * INCY - INTEGER. 117 * On entry, INCY specifies the increment for the elements of 118 * Y. INCY must not be zero. 166 ELSE IF (INCY.EQ.0) THEN 185 IF (INCY.GT.0) THEN 188 KY = 1 - (N-1)*INCY 197 IF (INCY [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 114 * ( 1 + ( n - 1 )*abs( INCY ) ). 118 * INCY - INTEGER. 119 * On entry, INCY specifies the increment for the elements of 120 * Y. INCY must not be zero. 170 ELSE IF (INCY.EQ.0) THEN 189 IF (INCY.GT.0) THEN 192 KY = 1 - (N-1)*INCY 201 IF (INCY [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 79 * ( 1 + ( n - 1 )*abs( INCY ) ). 84 * INCY - INTEGER. 85 * On entry, INCY specifies the increment for the elements of 86 * Y. INCY must not be zero. 132 ELSE IF (INCY.EQ.0) THEN 151 IF (INCY.GT.0) THEN 154 KY = 1 - (N-1)*INCY 163 IF (INCY [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 79 * ( 1 + ( n - 1 )*abs( INCY ) ). 84 * INCY - INTEGER. 85 * On entry, INCY specifies the increment for the elements of 86 * Y. INCY must not be zero. 132 ELSE IF (INCY.EQ.0) THEN 151 IF (INCY.GT.0) THEN 154 KY = 1 - (N-1)*INCY 163 IF (INCY [all...] |
H A D | drotm.f | 1 SUBROUTINE DROTM(N,DX,INCX,DY,INCY,DPARAM) 3 INTEGER INCX,INCY,N local in subroutine:DROTM 18 * LX = (-INCX)*N, AND SIMILARLY FOR SY USING LY AND INCY. 43 * INCY (input) INTEGER 65 IF (.NOT. (INCX.EQ.INCY.AND.INCX.GT.0)) GO TO 70 105 IF (INCY.LT.0) KY = 1 + (1-N)*INCY 117 KY = KY + INCY 129 KY = KY + INCY 143 KY = KY + INCY [all...] |
H A D | srotm.f | 1 SUBROUTINE SROTM(N,SX,INCX,SY,INCY,SPARAM) 3 INTEGER INCX,INCY,N local in subroutine:SROTM 18 * LX = (-INCX)*N, AND SIMILARLY FOR SY USING USING LY AND INCY. 44 * INCY (input) INTEGER 66 IF (.NOT. (INCX.EQ.INCY.AND.INCX.GT.0)) GO TO 70 106 IF (INCY.LT.0) KY = 1 + (1-N)*INCY 118 KY = KY + INCY 130 KY = KY + INCY 144 KY = KY + INCY [all...] |
/external/eigen/blas/testing/ |
H A D | dblat1.f | 9 INTEGER ICASE, INCX, INCY, MODE, N variable in program:DBLAT1 17 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS local in program:DBLAT1 26 * .. Initialize PASS, INCX, INCY, and MODE for a new case. .. 27 * .. the value 9999 for INCX, INCY or MODE will appear in the .. 33 INCY = 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 151 INTEGER ICASE, INCX, INCY, MOD local in subroutine:CHECK1 168 COMMON /COMBLA/ICASE, N, INCX, INCY local in subroutine:CHECK1 245 INTEGER ICASE, INCX, INCY local in subroutine:CHECK2 264 COMMON /COMBLA/ICASE, N, INCX, INCY local in subroutine:CHECK2 439 INTEGER ICASE, INCX, INCY local in subroutine:CHECK3 457 COMMON /COMBLA/ICASE, N, INCX, INCY local in subroutine:CHECK3 657 INTEGER ICASE, INCX, INCY local in subroutine:STEST 668 COMMON /COMBLA/ICASE, N, INCX, INCY local in subroutine:STEST 742 INTEGER ICASE, INCX, INCY local in subroutine:ITEST1 747 COMMON /COMBLA/ICASE, N, INCX, INCY local in subroutine:ITEST1 [all...] |
H A D | sblat1.f | 9 INTEGER ICASE, INCX, INCY, MODE, N variable in program:SBLAT1 17 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS local in program:SBLAT1 26 * .. Initialize PASS, INCX, INCY, and MODE for a new case. .. 27 * .. the value 9999 for INCX, INCY or MODE will appear in the .. 33 INCY = 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 151 INTEGER ICASE, INCX, INCY, MOD local in subroutine:CHECK1 168 COMMON /COMBLA/ICASE, N, INCX, INCY local in subroutine:CHECK1 245 INTEGER ICASE, INCX, INCY local in subroutine:CHECK2 264 COMMON /COMBLA/ICASE, N, INCX, INCY local in subroutine:CHECK2 439 INTEGER ICASE, INCX, INCY local in subroutine:CHECK3 457 COMMON /COMBLA/ICASE, N, INCX, INCY local in subroutine:CHECK3 657 INTEGER ICASE, INCX, INCY local in subroutine:STEST 668 COMMON /COMBLA/ICASE, N, INCX, INCY local in subroutine:STEST 742 INTEGER ICASE, INCX, INCY local in subroutine:ITEST1 747 COMMON /COMBLA/ICASE, N, INCX, INCY local in subroutine:ITEST1 [all...] |
H A D | cblat2.f | 22 * 4 NUMBER OF VALUES OF INCX AND INCY 23 * 1 2 -1 -2 VALUES OF INCX AND INCY 178 * Values of INCX and INCY 181 WRITE( NOUT, FMT = 9997 )'INCX AND INCY', NINMAX 369 9994 FORMAT( ' ABSOLUTE VALUE OF INCX OR INCY IS 0 OR GREATER THAN ', 375 9990 FORMAT( ' FOR INCX AND INCY ', 7I6 ) 433 INTEGER I, IA, IB, IC, IKU, IM, IN, INCX, INCXS, INCY, local in subroutine:CCHK1 540 INCY = INC( IY ) 541 LY = ABS( INCY )*ML 553 $ YY, ABS( INCY ), 778 INTEGER I, IA, IB, IC, IK, IN, INCX, INCXS, INCY local in subroutine:CCHK2 1487 INTEGER I, IA, IM, IN, INCX, INCXS, INCY local in subroutine:CCHK4 2048 INTEGER I, IA, IC, IN, INCX, INCXS, INCY local in subroutine:CCHK6 2889 INTEGER INCX, INCY local in subroutine:CMVCH [all...] |
H A D | zblat2.f | 22 * 4 NUMBER OF VALUES OF INCX AND INCY 23 * 1 2 -1 -2 VALUES OF INCX AND INCY 179 * Values of INCX and INCY 182 WRITE( NOUT, FMT = 9997 )'INCX AND INCY', NINMAX 370 9994 FORMAT( ' ABSOLUTE VALUE OF INCX OR INCY IS 0 OR GREATER THAN ', 376 9990 FORMAT( ' FOR INCX AND INCY ', 7I6 ) 435 INTEGER I, IA, IB, IC, IKU, IM, IN, INCX, INCXS, INCY, local in subroutine:ZCHK1 542 INCY = INC( IY ) 543 LY = ABS( INCY )*ML 555 $ YY, ABS( INCY ), 781 INTEGER I, IA, IB, IC, IK, IN, INCX, INCXS, INCY local in subroutine:ZCHK2 1492 INTEGER I, IA, IM, IN, INCX, INCXS, INCY local in subroutine:ZCHK4 2055 INTEGER I, IA, IC, IN, INCX, INCXS, INCY local in subroutine:ZCHK6 2897 INTEGER INCX, INCY local in subroutine:ZMVCH [all...] |
H A D | dblat2.f | 22 * 4 NUMBER OF VALUES OF INCX AND INCY 23 * 1 2 -1 -2 VALUES OF INCX AND INCY 173 * Values of INCX and INCY 176 WRITE( NOUT, FMT = 9997 )'INCX AND INCY', NINMAX 364 9994 FORMAT( ' ABSOLUTE VALUE OF INCX OR INCY IS 0 OR GREATER THAN ', 370 9990 FORMAT( ' FOR INCX AND INCY ', 7I6 ) 423 INTEGER I, IA, IB, IC, IKU, IM, IN, INCX, INCXS, INCY, local in subroutine:DCHK1 530 INCY = INC( IY ) 531 LY = ABS( INCY )*ML 543 $ YY, ABS( INCY ), 764 INTEGER I, IA, IB, IC, IK, IN, INCX, INCXS, INCY local in subroutine:DCHK2 1462 INTEGER I, IA, IM, IN, INCX, INCXS, INCY local in subroutine:DCHK4 2001 INTEGER I, IA, IC, IN, INCX, INCXS, INCY local in subroutine:DCHK6 2804 INTEGER INCX, INCY local in subroutine:DMVCH [all...] |
H A D | sblat2.f | 22 * 4 NUMBER OF VALUES OF INCX AND INCY 23 * 1 2 -1 -2 VALUES OF INCX AND INCY 173 * Values of INCX and INCY 176 WRITE( NOUT, FMT = 9997 )'INCX AND INCY', NINMAX 364 9994 FORMAT( ' ABSOLUTE VALUE OF INCX OR INCY IS 0 OR GREATER THAN ', 370 9990 FORMAT( ' FOR INCX AND INCY ', 7I6 ) 423 INTEGER I, IA, IB, IC, IKU, IM, IN, INCX, INCXS, INCY, local in subroutine:SCHK1 530 INCY = INC( IY ) 531 LY = ABS( INCY )*ML 543 $ YY, ABS( INCY ), 764 INTEGER I, IA, IB, IC, IK, IN, INCX, INCXS, INCY local in subroutine:SCHK2 1462 INTEGER I, IA, IM, IN, INCX, INCXS, INCY local in subroutine:SCHK4 2001 INTEGER I, IA, IC, IN, INCX, INCXS, INCY local in subroutine:SCHK6 2804 INTEGER INCX, INCY local in subroutine:SMVCH [all...] |
H A D | cblat1.f | 9 INTEGER ICASE, INCX, INCY, MODE, N variable in program:CBLAT1 17 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS local in program:CBLAT1 26 * Initialize PASS, INCX, INCY, and MODE for a new case. 27 * The value 9999 for INCX, INCY or MODE will appear in the 33 INCY = 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 284 INTEGER ICASE, INCX, INCY, MOD local in subroutine:CHECK2 302 COMMON /COMBLA/ICASE, N, INCX, INCY local in subroutine:CHECK2 539 INTEGER ICASE, INCX, INCY local in subroutine:STEST 550 COMMON /COMBLA/ICASE, N, INCX, INCY local in subroutine:STEST 655 INTEGER ICASE, INCX, INCY local in subroutine:ITEST1 660 COMMON /COMBLA/ICASE, N, INCX, INCY local in subroutine:ITEST1 [all...] |
H A D | zblat1.f | 9 INTEGER ICASE, INCX, INCY, MODE, N variable in program:ZBLAT1 17 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS local in program:ZBLAT1 26 * Initialize PASS, INCX, INCY, and MODE for a new case. 27 * The value 9999 for INCX, INCY or MODE will appear in the 33 INCY = 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 284 INTEGER ICASE, INCX, INCY, MOD local in subroutine:CHECK2 302 COMMON /COMBLA/ICASE, N, INCX, INCY local in subroutine:CHECK2 539 INTEGER ICASE, INCX, INCY local in subroutine:STEST 550 COMMON /COMBLA/ICASE, N, INCX, INCY local in subroutine:STEST 655 INTEGER ICASE, INCX, INCY local in subroutine:ITEST1 660 COMMON /COMBLA/ICASE, N, INCX, INCY local in subroutine:ITEST1 [all...] |