| /external/eigen/blas/testing/ |
| D | zblat1.f | 130 INTEGER I, J, LEN, NP1 local
243 DO 40 NP1 = 1, 5
244 N = NP1 - 1
248 CX(I) = CV(I,NP1,INCX)
252 CALL STEST1(DZNRM2(N,CX,INCX),STRUE2(NP1),STRUE2(NP1),
256 CALL STEST1(DZASUM(N,CX,INCX),STRUE4(NP1),STRUE4(NP1),
261 CALL CTEST(LEN,CX,CTRUE5(1,NP1,INCX),CTRUE5(1,NP1,INCX),
266 CALL CTEST(LEN,CX,CTRUE6(1,NP1,INCX),CTRUE6(1,NP1,INCX),
270 CALL ITEST1(IZAMAX(N,CX,INCX),ITRUE3(NP1))
|
| D | cblat1.f | 130 INTEGER I, J, LEN, NP1 local
243 DO 40 NP1 = 1, 5
244 N = NP1 - 1
248 CX(I) = CV(I,NP1,INCX)
252 CALL STEST1(SCNRM2(N,CX,INCX),STRUE2(NP1),STRUE2(NP1),
256 CALL STEST1(SCASUM(N,CX,INCX),STRUE4(NP1),STRUE4(NP1),
261 CALL CTEST(LEN,CX,CTRUE5(1,NP1,INCX),CTRUE5(1,NP1,INCX),
266 CALL CTEST(LEN,CX,CTRUE6(1,NP1,INCX),CTRUE6(1,NP1,INCX),
270 CALL ITEST1(ICAMAX(N,CX,INCX),ITRUE3(NP1))
|
| D | dblat1.f | 252 INTEGER I, LEN, NP1 local
302 DO 60 NP1 = 1, 5
303 N = NP1 - 1
307 SX(I) = DV(I,NP1,INCX)
312 STEMP(1) = DTRUE1(NP1)
316 STEMP(1) = DTRUE3(NP1)
320 CALL DSCAL(N,SA((INCX-1)*5+NP1),SX,INCX)
322 STRUE(I) = DTRUE5(I,NP1,INCX)
327 CALL ITEST1(IDAMAX(N,SX,INCX),ITRUE2(NP1))
|
| D | sblat1.f | 252 INTEGER I, LEN, NP1 local
302 DO 60 NP1 = 1, 5
303 N = NP1 - 1
307 SX(I) = DV(I,NP1,INCX)
312 STEMP(1) = DTRUE1(NP1)
316 STEMP(1) = DTRUE3(NP1)
320 CALL SSCAL(N,SA((INCX-1)*5+NP1),SX,INCX)
322 STRUE(I) = DTRUE5(I,NP1,INCX)
327 CALL ITEST1(ISAMAX(N,SX,INCX),ITRUE2(NP1))
|
| /external/cblas/testing/ |
| D | c_zblat1.f | 88 INTEGER I, J, LEN, NP1 local
201 DO 40 NP1 = 1, 5
202 N = NP1 - 1
206 CX(I) = CV(I,NP1,INCX)
210 CALL STEST1(DZNRM2TEST(N,CX,INCX),STRUE2(NP1),
211 + STRUE2(NP1),SFAC)
214 CALL STEST1(DZASUMTEST(N,CX,INCX),STRUE4(NP1),
215 + STRUE4(NP1),SFAC)
219 CALL CTEST(LEN,CX,CTRUE5(1,NP1,INCX),CTRUE5(1,NP1,INCX),
224 CALL CTEST(LEN,CX,CTRUE6(1,NP1,INCX),CTRUE6(1,NP1,INCX),
[all …]
|
| D | c_dblat1.f | 153 INTEGER I, LEN, NP1 local
203 DO 60 NP1 = 1, 5
204 N = NP1 - 1
208 SX(I) = DV(I,NP1,INCX)
213 STEMP(1) = DTRUE1(NP1)
217 STEMP(1) = DTRUE3(NP1)
221 CALL DSCALTEST(N,SA((INCX-1)*5+NP1),SX,INCX)
223 STRUE(I) = DTRUE5(I,NP1,INCX)
228 CALL ITEST1(IDAMAXTEST(N,SX,INCX),ITRUE2(NP1))
|
| D | c_cblat1.f | 88 INTEGER I, J, LEN, NP1 local
201 DO 40 NP1 = 1, 5
202 N = NP1 - 1
206 CX(I) = CV(I,NP1,INCX)
210 CALL STEST1(SCNRM2TEST(N,CX,INCX),STRUE2(NP1),
211 + STRUE2(NP1), SFAC)
214 CALL STEST1(SCASUMTEST(N,CX,INCX),STRUE4(NP1),
215 + STRUE4(NP1),SFAC)
219 CALL CTEST(LEN,CX,CTRUE5(1,NP1,INCX),CTRUE5(1,NP1,INCX),
224 CALL CTEST(LEN,CX,CTRUE6(1,NP1,INCX),CTRUE6(1,NP1,INCX),
[all …]
|
| D | c_sblat1.f | 153 INTEGER I, LEN, NP1 local
203 DO 60 NP1 = 1, 5
204 N = NP1 - 1
208 SX(I) = DV(I,NP1,INCX)
213 STEMP(1) = DTRUE1(NP1)
217 STEMP(1) = DTRUE3(NP1)
221 CALL SSCALTEST(N,SA((INCX-1)*5+NP1),SX,INCX)
223 STRUE(I) = DTRUE5(I,NP1,INCX)
228 CALL ITEST1(ISAMAXTEST(N,SX,INCX),ITRUE2(NP1))
|