Home
last modified time | relevance | path

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

12

/external/eigen/blas/
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 …]
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 …]
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 …]
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 …]
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 …]
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 …]
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 …]
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 …]
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 …]
/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 …]
Dcblat2.f433 INTEGER I, IA, IB, IC, IKU, IM, IN, INCX, INCXS, INCY, local
526 INCX = INC( IX )
527 LX = ABS( INCX )*NL
533 $ ABS( INCX ), 0, NL - 1, RESET, TRANSL )
536 XX( 1 + ABS( INCX )*( NL/2 - 1 ) ) = ZERO
574 INCXS = INCX
586 $ TRANS, M, N, ALPHA, LDA, INCX, BETA,
591 $ LDA, XX, INCX, BETA, YY,
597 $ INCX, BETA, INCY
601 $ AA, LDA, XX, INCX, BETA,
[all …]
Dzblat2.f435 INTEGER I, IA, IB, IC, IKU, IM, IN, INCX, INCXS, INCY, local
528 INCX = INC( IX )
529 LX = ABS( INCX )*NL
535 $ ABS( INCX ), 0, NL - 1, RESET, TRANSL )
538 XX( 1 + ABS( INCX )*( NL/2 - 1 ) ) = ZERO
576 INCXS = INCX
588 $ TRANS, M, N, ALPHA, LDA, INCX, BETA,
593 $ LDA, XX, INCX, BETA, YY,
599 $ INCX, BETA, INCY
603 $ AA, LDA, XX, INCX, BETA,
[all …]
Dsblat2.f423 INTEGER I, IA, IB, IC, IKU, IM, IN, INCX, INCXS, INCY, local
516 INCX = INC( IX )
517 LX = ABS( INCX )*NL
523 $ ABS( INCX ), 0, NL - 1, RESET, TRANSL )
526 XX( 1 + ABS( INCX )*( NL/2 - 1 ) ) = ZERO
564 INCXS = INCX
576 $ TRANS, M, N, ALPHA, LDA, INCX, BETA,
581 $ LDA, XX, INCX, BETA, YY,
587 $ INCX, BETA, INCY
591 $ AA, LDA, XX, INCX, BETA,
[all …]
Ddblat2.f423 INTEGER I, IA, IB, IC, IKU, IM, IN, INCX, INCXS, INCY, local
516 INCX = INC( IX )
517 LX = ABS( INCX )*NL
523 $ ABS( INCX ), 0, NL - 1, RESET, TRANSL )
526 XX( 1 + ABS( INCX )*( NL/2 - 1 ) ) = ZERO
564 INCXS = INCX
576 $ TRANS, M, N, ALPHA, LDA, INCX, BETA,
581 $ LDA, XX, INCX, BETA, YY,
587 $ INCX, BETA, INCY
591 $ AA, LDA, XX, INCX, BETA,
[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
Ddlarfg.f107 SUBROUTINE DLARFG( N, ALPHA, X, INCX, TAU ) argument
115 INTEGER INCX, N local
149 XNORM = DNRM2( N-1, X, INCX )
170 CALL DSCAL( N-1, RSAFMN, X, INCX )
178 XNORM = DNRM2( N-1, X, INCX )
182 CALL DSCAL( N-1, ONE / ( ALPHA-BETA ), X, INCX )
Dslarfg.f107 SUBROUTINE SLARFG( N, ALPHA, X, INCX, TAU ) argument
115 INTEGER INCX, N local
149 XNORM = SNRM2( N-1, X, INCX )
170 CALL SSCAL( N-1, RSAFMN, X, INCX )
178 XNORM = SNRM2( N-1, X, INCX )
182 CALL SSCAL( N-1, ONE / ( ALPHA-BETA ), X, INCX )

12