Home
last modified time | relevance | path

Searched refs:INCX (Results 1 – 25 of 45) sorted by relevance

12

/external/cblas/testing/
Dc_zblat1.f9 INTEGER ICASE, INCX, INCY, MODE, N variable
17 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS local
32 INCX = 9999
53 INTEGER ICASE, INCX, INCY, MODE, N local
58 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS local
83 INTEGER ICASE, INCX, INCY, MODE, N local
103 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS local
200 DO 60 INCX = 1, 2
206 CX(I) = CV(I,NP1,INCX)
210 CALL STEST1(DZNRM2TEST(N,CX,INCX),STRUE2(NP1),
[all …]
Dc_dblat1.f9 INTEGER ICASE, INCX, INCY, MODE, N variable
17 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS local
32 INCX = 9999
59 INTEGER ICASE, INCX, INCY, MODE, N local
64 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS local
89 INTEGER ICASE, INCX, INCY, MODE, N local
100 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS local
150 INTEGER ICASE, INCX, INCY, MODE, N local
167 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS local
202 DO 80 INCX = 1, 2
[all …]
Dc_dblat2.f488 INTEGER I, IA, IB, IC, IKU, IM, IN, INCX, INCXS, INCY, local
589 INCX = INC( IX )
590 LX = ABS( INCX )*NL
596 $ ABS( INCX ), 0, NL - 1, RESET, TRANSL )
599 XX( 1 + ABS( INCX )*( NL/2 - 1 ) ) = ZERO
637 INCXS = INCX
649 $ CTRANS, M, N, ALPHA, LDA, INCX,
654 $ ALPHA, AA, LDA, XX, INCX,
660 $ INCX, BETA, INCY
665 $ INCX, BETA, YY, INCY )
[all …]
Dc_sblat2.f488 INTEGER I, IA, IB, IC, IKU, IM, IN, INCX, INCXS, INCY, local
589 INCX = INC( IX )
590 LX = ABS( INCX )*NL
596 $ ABS( INCX ), 0, NL - 1, RESET, TRANSL )
599 XX( 1 + ABS( INCX )*( NL/2 - 1 ) ) = ZERO
637 INCXS = INCX
649 $ CTRANS, M, N, ALPHA, LDA, INCX,
654 $ ALPHA, AA, LDA, XX, INCX,
660 $ INCX, BETA, INCY
665 $ INCX, BETA, YY, INCY )
[all …]
Dc_zblat2.f498 INTEGER I, IA, IB, IC, IKU, IM, IN, INCX, INCXS, INCY, local
599 INCX = INC( IX )
600 LX = ABS( INCX )*NL
606 $ ABS( INCX ), 0, NL - 1, RESET, TRANSL )
609 XX( 1 + ABS( INCX )*( NL/2 - 1 ) ) = ZERO
647 INCXS = INCX
659 $ CTRANS, M, N, ALPHA, LDA, INCX, BETA,
664 $ ALPHA, AA, LDA, XX, INCX,
670 $ INCX, BETA, INCY
675 $ INCX, BETA, YY, INCY )
[all …]
Dc_cblat2.f497 INTEGER I, IA, IB, IC, IKU, IM, IN, INCX, INCXS, INCY, local
598 INCX = INC( IX )
599 LX = ABS( INCX )*NL
605 $ ABS( INCX ), 0, NL - 1, RESET, TRANSL )
608 XX( 1 + ABS( INCX )*( NL/2 - 1 ) ) = ZERO
646 INCXS = INCX
658 $ CTRANS, M, N, ALPHA, LDA, INCX, BETA,
663 $ ALPHA, AA, LDA, XX, INCX,
669 $ INCX, BETA, INCY
674 $ INCX, BETA, YY, INCY )
[all …]
/external/eigen/blas/testing/
Dzblat1.f9 INTEGER ICASE, INCX, INCY, MODE, N variable
17 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS local
32 INCX = 9999
53 INTEGER ICASE, INCX, INCY, MODE, N local
58 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS local
83 INTEGER ICASE, INCX, INCY, MODE, N local
103 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS local
200 DO 60 INCX = 1, 2
206 CX(I) = CV(I,NP1,INCX)
210 CALL STEST1(DZNRM2(N,CX,INCX),STRUE2(NP1),STRUE2(NP1),
[all …]
Ddblat1.f51 INTEGER ICASE, INCX, INCY, N variable
59 COMMON /COMBLA/ICASE, N, INCX, INCY, PASS local
74 INCX = 9999
100 INTEGER ICASE, INCX, INCY, N local
105 COMMON /COMBLA/ICASE, N, INCX, INCY, PASS local
133 INTEGER ICASE, INCX, INCY, N local
144 COMMON /COMBLA/ICASE, N, INCX, INCY, PASS local
249 INTEGER ICASE, INCX, INCY, N local
266 COMMON /COMBLA/ICASE, N, INCX, INCY, PASS local
301 DO 80 INCX = 1, 2
[all …]
/external/eigen/blas/fortran/
Ddtbmv.f1 SUBROUTINE DTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) argument
3 INTEGER INCX,K,LDA,N local
177 ELSE IF (INCX.EQ.0) THEN
194 IF (INCX.LE.0) THEN
195 KX = 1 - (N-1)*INCX
196 ELSE IF (INCX.NE.1) THEN
209 IF (INCX.EQ.1) THEN
229 IX = IX + INCX
233 JX = JX + INCX
234 IF (J.GT.K) KX = KX + INCX
[all …]
Dstbmv.f1 SUBROUTINE STBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) argument
3 INTEGER INCX,K,LDA,N local
177 ELSE IF (INCX.EQ.0) THEN
194 IF (INCX.LE.0) THEN
195 KX = 1 - (N-1)*INCX
196 ELSE IF (INCX.NE.1) THEN
209 IF (INCX.EQ.1) THEN
229 IX = IX + INCX
233 JX = JX + INCX
234 IF (J.GT.K) KX = KX + INCX
[all …]
Dcomplexdots.f1 COMPLEX FUNCTION CDOTC(N,CX,INCX,CY,INCY)
2 INTEGER INCX,INCY,N local
7 CALL CDOTCW(N,CX,INCX,CY,INCY,RES)
12 COMPLEX FUNCTION CDOTU(N,CX,INCX,CY,INCY)
13 INTEGER INCX,INCY,N local
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
29 CALL ZDOTCW(N,CX,INCX,CY,INCY,RES)
34 DOUBLE COMPLEX FUNCTION ZDOTU(N,CX,INCX,CY,INCY)
[all …]
Dctbmv.f1 SUBROUTINE CTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) argument
3 INTEGER INCX,K,LDA,N local
177 ELSE IF (INCX.EQ.0) THEN
195 IF (INCX.LE.0) THEN
196 KX = 1 - (N-1)*INCX
197 ELSE IF (INCX.NE.1) THEN
210 IF (INCX.EQ.1) THEN
230 IX = IX + INCX
234 JX = JX + INCX
235 IF (J.GT.K) KX = KX + INCX
[all …]
Dztbmv.f1 SUBROUTINE ZTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) argument
3 INTEGER INCX,K,LDA,N local
177 ELSE IF (INCX.EQ.0) THEN
195 IF (INCX.LE.0) THEN
196 KX = 1 - (N-1)*INCX
197 ELSE IF (INCX.NE.1) THEN
210 IF (INCX.EQ.1) THEN
230 IX = IX + INCX
234 JX = JX + INCX
235 IF (J.GT.K) KX = KX + INCX
[all …]
Ddrotm.f1 SUBROUTINE DROTM(N,DX,INCX,DY,INCY,DPARAM) argument
3 INTEGER INCX,INCY,N local
65 IF (.NOT. (INCX.EQ.INCY.AND.INCX.GT.0)) GO TO 70
67 NSTEPS = N*INCX
72 DO 20 I = 1,NSTEPS,INCX
82 DO 40 I = 1,NSTEPS,INCX
94 DO 60 I = 1,NSTEPS,INCX
104 IF (INCX.LT.0) KX = 1 + (1-N)*INCX
116 KX = KX + INCX
128 KX = KX + INCX
[all …]
Dsrotm.f1 SUBROUTINE SROTM(N,SX,INCX,SY,INCY,SPARAM) argument
3 INTEGER INCX,INCY,N local
66 IF (.NOT. (INCX.EQ.INCY.AND.INCX.GT.0)) GO TO 70
68 NSTEPS = N*INCX
73 DO 20 I = 1,NSTEPS,INCX
83 DO 40 I = 1,NSTEPS,INCX
95 DO 60 I = 1,NSTEPS,INCX
105 IF (INCX.LT.0) KX = 1 + (1-N)*INCX
117 KX = KX + INCX
129 KX = KX + INCX
[all …]
Ddsbmv.f1 SUBROUTINE DSBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) argument
4 INTEGER INCX,INCY,K,LDA,N local
162 ELSE IF (INCX.EQ.0) THEN
178 IF (INCX.GT.0) THEN
181 KX = 1 - (N-1)*INCX
226 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
249 IX = IX + INCX
253 JX = JX + INCX
256 KX = KX + INCX
265 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
[all …]
Dchbmv.f1 SUBROUTINE CHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) argument
4 INTEGER INCX,INCY,K,LDA,N local
168 ELSE IF (INCX.EQ.0) THEN
184 IF (INCX.GT.0) THEN
187 KX = 1 - (N-1)*INCX
232 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
255 IX = IX + INCX
259 JX = JX + INCX
262 KX = KX + INCX
271 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
[all …]
Dssbmv.f1 SUBROUTINE SSBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) argument
4 INTEGER INCX,INCY,K,LDA,N local
164 ELSE IF (INCX.EQ.0) THEN
180 IF (INCX.GT.0) THEN
183 KX = 1 - (N-1)*INCX
228 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
251 IX = IX + INCX
255 JX = JX + INCX
258 KX = KX + INCX
267 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
[all …]
Dzhbmv.f1 SUBROUTINE ZHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) argument
4 INTEGER INCX,INCY,K,LDA,N local
168 ELSE IF (INCX.EQ.0) THEN
184 IF (INCX.GT.0) THEN
187 KX = 1 - (N-1)*INCX
232 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
255 IX = IX + INCX
259 JX = JX + INCX
262 KX = KX + INCX
271 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
[all …]
Dzhpmv.f1 SUBROUTINE ZHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) argument
4 INTEGER INCX,INCY,N local
130 ELSE IF (INCX.EQ.0) THEN
146 IF (INCX.GT.0) THEN
149 KX = 1 - (N-1)*INCX
194 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
218 IX = IX + INCX
222 JX = JX + INCX
231 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
255 IX = IX + INCX
[all …]
Dsspmv.f1 SUBROUTINE SSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) argument
4 INTEGER INCX,INCY,N local
123 ELSE IF (INCX.EQ.0) THEN
139 IF (INCX.GT.0) THEN
142 KX = 1 - (N-1)*INCX
187 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
211 IX = IX + INCX
215 JX = JX + INCX
224 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
248 IX = IX + INCX
[all …]
Dchpmv.f1 SUBROUTINE CHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) argument
4 INTEGER INCX,INCY,N local
130 ELSE IF (INCX.EQ.0) THEN
146 IF (INCX.GT.0) THEN
149 KX = 1 - (N-1)*INCX
194 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
218 IX = IX + INCX
222 JX = JX + INCX
231 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
255 IX = IX + INCX
[all …]
Ddspmv.f1 SUBROUTINE DSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) argument
4 INTEGER INCX,INCY,N local
123 ELSE IF (INCX.EQ.0) THEN
139 IF (INCX.GT.0) THEN
142 KX = 1 - (N-1)*INCX
187 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
211 IX = IX + INCX
215 JX = JX + INCX
224 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
248 IX = IX + INCX
[all …]
/external/eigen/lapack/
Dclacgv.f75 SUBROUTINE CLACGV( N, X, INCX ) argument
83 INTEGER INCX, N local
99 IF( INCX.EQ.1 ) THEN
105 IF( INCX.LT.0 )
106 $ IOFF = 1 - ( N-1 )*INCX
109 IOFF = IOFF + INCX
Dzlacgv.f75 SUBROUTINE ZLACGV( N, X, INCX ) argument
83 INTEGER INCX, N local
99 IF( INCX.EQ.1 ) THEN
105 IF( INCX.LT.0 )
106 $ IOFF = 1 - ( N-1 )*INCX
109 IOFF = IOFF + INCX

12