Home
last modified time | relevance | path

Searched refs:INCX (Results 1 – 25 of 43) 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 …]
Dstpmv.f1 SUBROUTINE STPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) argument
3 INTEGER INCX,N local
130 ELSE IF (INCX.EQ.0) THEN
147 IF (INCX.LE.0) THEN
148 KX = 1 - (N-1)*INCX
149 ELSE IF (INCX.NE.1) THEN
162 IF (INCX.EQ.1) THEN
183 IX = IX + INCX
187 JX = JX + INCX
193 IF (INCX.EQ.1) THEN
[all …]
Ddtpsv.f1 SUBROUTINE DTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) argument
3 INTEGER INCX,N local
133 ELSE IF (INCX.EQ.0) THEN
150 IF (INCX.LE.0) THEN
151 KX = 1 - (N-1)*INCX
152 ELSE IF (INCX.NE.1) THEN
165 IF (INCX.EQ.1) THEN
179 JX = KX + (N-1)*INCX
186 IX = IX - INCX
190 JX = JX - INCX
[all …]
Dstpsv.f1 SUBROUTINE STPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) argument
3 INTEGER INCX,N local
133 ELSE IF (INCX.EQ.0) THEN
150 IF (INCX.LE.0) THEN
151 KX = 1 - (N-1)*INCX
152 ELSE IF (INCX.NE.1) THEN
165 IF (INCX.EQ.1) THEN
179 JX = KX + (N-1)*INCX
186 IX = IX - INCX
190 JX = JX - INCX
[all …]
Ddtpmv.f1 SUBROUTINE DTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) argument
3 INTEGER INCX,N local
130 ELSE IF (INCX.EQ.0) THEN
147 IF (INCX.LE.0) THEN
148 KX = 1 - (N-1)*INCX
149 ELSE IF (INCX.NE.1) THEN
162 IF (INCX.EQ.1) THEN
183 IX = IX + INCX
187 JX = JX + INCX
193 IF (INCX.EQ.1) THEN
[all …]
Dztpsv.f1 SUBROUTINE ZTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) argument
3 INTEGER INCX,N local
136 ELSE IF (INCX.EQ.0) THEN
154 IF (INCX.LE.0) THEN
155 KX = 1 - (N-1)*INCX
156 ELSE IF (INCX.NE.1) THEN
169 IF (INCX.EQ.1) THEN
183 JX = KX + (N-1)*INCX
190 IX = IX - INCX
194 JX = JX - INCX
[all …]
Dctpsv.f1 SUBROUTINE CTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) argument
3 INTEGER INCX,N local
136 ELSE IF (INCX.EQ.0) THEN
154 IF (INCX.LE.0) THEN
155 KX = 1 - (N-1)*INCX
156 ELSE IF (INCX.NE.1) THEN
169 IF (INCX.EQ.1) THEN
183 JX = KX + (N-1)*INCX
190 IX = IX - INCX
194 JX = JX - INCX
[all …]
Dctpmv.f1 SUBROUTINE CTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) argument
3 INTEGER INCX,N local
133 ELSE IF (INCX.EQ.0) THEN
151 IF (INCX.LE.0) THEN
152 KX = 1 - (N-1)*INCX
153 ELSE IF (INCX.NE.1) THEN
166 IF (INCX.EQ.1) THEN
187 IX = IX + INCX
191 JX = JX + INCX
197 IF (INCX.EQ.1) THEN
[all …]
Dztpmv.f1 SUBROUTINE ZTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) argument
3 INTEGER INCX,N local
133 ELSE IF (INCX.EQ.0) THEN
151 IF (INCX.LE.0) THEN
152 KX = 1 - (N-1)*INCX
153 ELSE IF (INCX.NE.1) THEN
166 IF (INCX.EQ.1) THEN
187 IX = IX + INCX
191 JX = JX + INCX
197 IF (INCX.EQ.1) THEN
[all …]
Ddspr.f1 SUBROUTINE DSPR(UPLO,N,ALPHA,X,INCX,AP) argument
4 INTEGER INCX,N local
110 ELSE IF (INCX.EQ.0) THEN
124 IF (INCX.LE.0) THEN
125 KX = 1 - (N-1)*INCX
126 ELSE IF (INCX.NE.1) THEN
138 IF (INCX.EQ.1) THEN
158 IX = IX + INCX
161 JX = JX + INCX
169 IF (INCX.EQ.1) THEN
[all …]
Dsspr.f1 SUBROUTINE SSPR(UPLO,N,ALPHA,X,INCX,AP) argument
4 INTEGER INCX,N local
110 ELSE IF (INCX.EQ.0) THEN
124 IF (INCX.LE.0) THEN
125 KX = 1 - (N-1)*INCX
126 ELSE IF (INCX.NE.1) THEN
138 IF (INCX.EQ.1) THEN
158 IX = IX + INCX
161 JX = JX + INCX
169 IF (INCX.EQ.1) THEN
[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 …]
Dchpr.f1 SUBROUTINE CHPR(UPLO,N,ALPHA,X,INCX,AP) argument
4 INTEGER INCX,N local
116 ELSE IF (INCX.EQ.0) THEN
130 IF (INCX.LE.0) THEN
131 KX = 1 - (N-1)*INCX
132 ELSE IF (INCX.NE.1) THEN
144 IF (INCX.EQ.1) THEN
167 IX = IX + INCX
173 JX = JX + INCX
181 IF (INCX.EQ.1) THEN
[all …]
Dzhpr.f1 SUBROUTINE ZHPR(UPLO,N,ALPHA,X,INCX,AP) argument
4 INTEGER INCX,N local
116 ELSE IF (INCX.EQ.0) THEN
130 IF (INCX.LE.0) THEN
131 KX = 1 - (N-1)*INCX
132 ELSE IF (INCX.NE.1) THEN
144 IF (INCX.EQ.1) THEN
167 IX = IX + INCX
173 JX = JX + INCX
181 IF (INCX.EQ.1) THEN
[all …]
Ddspr2.f1 SUBROUTINE DSPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) argument
4 INTEGER INCX,INCY,N local
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
161 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
183 IX = IX + INCX
187 JX = JX + INCX
196 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
[all …]
Dsspr2.f1 SUBROUTINE SSPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) argument
4 INTEGER INCX,INCY,N local
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
161 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
183 IX = IX + INCX
187 JX = JX + INCX
196 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
[all …]
Dchpr2.f1 SUBROUTINE CHPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) argument
4 INTEGER INCX,INCY,N local
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
167 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
193 IX = IX + INCX
201 JX = JX + INCX
210 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
[all …]
Dzhpr2.f1 SUBROUTINE ZHPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) argument
4 INTEGER INCX,INCY,N local
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
167 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
193 IX = IX + INCX
201 JX = JX + INCX
210 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
[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.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
151 INTEGER ICASE, INCX, INCY, MODE, N local
168 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS local
203 DO 80 INCX = 1, 2
[all …]

12