| /external/eigen/blas/testing/ |
| D | zblat1.f | 521 SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) argument
537 DOUBLE PRECISION SCOMP(LEN), SSIZE(LEN), STRUE(LEN) local
555 IF (SDIFF(ABS(SSIZE(I))+ABS(SFAC*SD),ABS(SSIZE(I))).EQ.0.0D0)
566 + STRUE(I), SD, SSIZE(I)
576 SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC) argument
588 DOUBLE PRECISION SSIZE(*) local
597 CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)
624 DOUBLE PRECISION SCOMP(20), SSIZE(20), STRUE(20) local
635 SSIZE(2*I-1) = DBLE(CSIZE(I))
636 SSIZE(2*I) = DIMAG(CSIZE(I))
[all …]
|
| D | dblat1.f | 352 $ DY1(7), SSIZE1(4), SSIZE2(14,2), SSIZE(7), local
655 SSIZE(I)=STX(I)
660 $ SSIZE(1) = 2.4D0
662 $ SSIZE(5) = 1.8D0
665 CALL STEST(LENX,SX,STX,SSIZE,SFAC)
886 SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) argument
903 DOUBLE PRECISION SCOMP(LEN), SSIZE(LEN), STRUE(LEN) local
921 IF (ABS(SFAC*SD) .LE. ABS(SSIZE(I))*EPSILON(ZERO))
932 + STRUE(I), SD, SSIZE(I)
942 SUBROUTINE TESTDSDOT(SCOMP,STRUE,SSIZE,SFAC) argument
[all …]
|
| D | cblat1.f | 521 SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) argument
537 REAL SCOMP(LEN), SSIZE(LEN), STRUE(LEN) local
555 IF (SDIFF(ABS(SSIZE(I))+ABS(SFAC*SD),ABS(SSIZE(I))).EQ.0.0E0)
566 + STRUE(I), SD, SSIZE(I)
576 SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC) argument
588 REAL SSIZE(*) local
597 CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)
624 REAL SCOMP(20), SSIZE(20), STRUE(20) local
635 SSIZE(2*I-1) = REAL(CSIZE(I))
636 SSIZE(2*I) = AIMAG(CSIZE(I))
[all …]
|
| D | sblat1.f | 353 $ SSIZE(7), STX(7), STY(7), SX(7), SY(7), local
659 SSIZE(I)=STX(I)
664 $ SSIZE(1) = 2.4E0
666 $ SSIZE(5) = 1.8E0
669 CALL STEST(LENX,SX,STX,SSIZE,SFAC)
890 SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) argument
907 REAL SCOMP(LEN), SSIZE(LEN), STRUE(LEN) local
925 IF (ABS(SFAC*SD) .LE. ABS(SSIZE(I))*EPSILON(ZERO))
936 + STRUE(I), SD, SSIZE(I)
946 SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC) argument
[all …]
|
| /external/cblas/testing/ |
| D | c_zblat1.f | 522 SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) argument
538 DOUBLE PRECISION SCOMP(LEN), SSIZE(LEN), STRUE(LEN) local
556 IF (SDIFF(ABS(SSIZE(I))+ABS(SFAC*SD),ABS(SSIZE(I))).EQ.0.0D0)
567 + STRUE(I), SD, SSIZE(I)
577 SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC) argument
589 DOUBLE PRECISION SSIZE(*) local
598 CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)
625 DOUBLE PRECISION SCOMP(20), SSIZE(20), STRUE(20) local
636 SSIZE(2*I-1) = DBLE(CSIZE(I))
637 SSIZE(2*I) = DIMAG(CSIZE(I))
[all …]
|
| D | c_dblat1.f | 598 SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) argument
614 DOUBLE PRECISION SCOMP(LEN), SSIZE(LEN), STRUE(LEN) local
632 IF (SDIFF(ABS(SSIZE(I))+ABS(SFAC*SD),ABS(SSIZE(I))).EQ.0.0D0)
643 + STRUE(I), SD, SSIZE(I)
653 SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC) argument
665 DOUBLE PRECISION SSIZE(*) local
674 CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)
|
| D | c_cblat1.f | 522 SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) argument
538 REAL SCOMP(LEN), SSIZE(LEN), STRUE(LEN) local
556 IF (SDIFF(ABS(SSIZE(I))+ABS(SFAC*SD),ABS(SSIZE(I))).EQ.0.0E0)
567 + STRUE(I), SD, SSIZE(I)
577 SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC) argument
589 REAL SSIZE(*) local
598 CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)
625 REAL SCOMP(20), SSIZE(20), STRUE(20) local
636 SSIZE(2*I-1) = REAL(CSIZE(I))
637 SSIZE(2*I) = AIMAG(CSIZE(I))
[all …]
|
| D | c_sblat1.f | 598 SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) argument
614 REAL SCOMP(LEN), SSIZE(LEN), STRUE(LEN) local
632 IF (SDIFF(ABS(SSIZE(I))+ABS(SFAC*SD),ABS(SSIZE(I))).EQ.0.0E0)
643 + STRUE(I), SD, SSIZE(I)
653 SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC) argument
665 REAL SSIZE(*) local
674 CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)
|