| /external/eigen/blas/testing/ |
| D | zblat1.f | 563 SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) argument
580 DOUBLE PRECISION SCOMP(LEN), SSIZE(LEN), STRUE(LEN) local
597 SD = SCOMP(I) - STRUE(I)
608 20 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, I, SCOMP(I),
633 DOUBLE PRECISION SCOMP(1), STRUE(1) local
638 SCOMP(1) = SCOMP1
640 CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)
667 DOUBLE PRECISION SCOMP(20), SSIZE(20), STRUE(20) local
674 SCOMP(2*I-1) = DBLE(CCOMP(I))
675 SCOMP(2*I) = DIMAG(CCOMP(I))
[all …]
|
| D | dblat1.f | 886 SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) argument
903 DOUBLE PRECISION SCOMP(LEN), SSIZE(LEN), STRUE(LEN) local
920 SD = SCOMP(I) - STRUE(I)
931 20 WRITE (NOUT,99997) ICASE, N, INCX, INCY, I, SCOMP(I),
942 SUBROUTINE TESTDSDOT(SCOMP,STRUE,SSIZE,SFAC) argument
956 REAL SFAC, SCOMP, SSIZE, STRUE local
968 SD = SCOMP - STRUE
979 20 WRITE (NOUT,99997) ICASE, N, INCX, INCY, SCOMP,
1004 DOUBLE PRECISION SCOMP(1), STRUE(1) local
1009 SCOMP(1) = SCOMP1
[all …]
|
| D | cblat1.f | 563 SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) argument
580 REAL SCOMP(LEN), SSIZE(LEN), STRUE(LEN) local
597 SD = SCOMP(I) - STRUE(I)
608 20 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, I, SCOMP(I),
633 REAL SCOMP(1), STRUE(1) local
638 SCOMP(1) = SCOMP1
640 CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)
667 REAL SCOMP(20), SSIZE(20), STRUE(20) local
674 SCOMP(2*I-1) = REAL(CCOMP(I))
675 SCOMP(2*I) = AIMAG(CCOMP(I))
[all …]
|
| D | sblat1.f | 890 SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) argument
907 REAL SCOMP(LEN), SSIZE(LEN), STRUE(LEN) local
924 SD = SCOMP(I) - STRUE(I)
935 20 WRITE (NOUT,99997) ICASE, N, INCX, INCY, I, SCOMP(I),
960 REAL SCOMP(1), STRUE(1) local
965 SCOMP(1) = SCOMP1
967 CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)
|
| /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
555 SD = SCOMP(I) - STRUE(I)
566 20 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, I, SCOMP(I),
591 DOUBLE PRECISION SCOMP(1), STRUE(1) local
596 SCOMP(1) = SCOMP1
598 CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)
625 DOUBLE PRECISION SCOMP(20), SSIZE(20), STRUE(20) local
632 SCOMP(2*I-1) = DBLE(CCOMP(I))
633 SCOMP(2*I) = DIMAG(CCOMP(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
631 SD = SCOMP(I) - STRUE(I)
642 20 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, I, SCOMP(I),
667 DOUBLE PRECISION SCOMP(1), STRUE(1) local
672 SCOMP(1) = SCOMP1
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
555 SD = SCOMP(I) - STRUE(I)
566 20 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, I, SCOMP(I),
591 REAL SCOMP(1), STRUE(1) local
596 SCOMP(1) = SCOMP1
598 CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)
625 REAL SCOMP(20), SSIZE(20), STRUE(20) local
632 SCOMP(2*I-1) = REAL(CCOMP(I))
633 SCOMP(2*I) = AIMAG(CCOMP(I))
[all …]
|
| D | c_sblat1.f | 598 SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) argument
614 REAL SCOMP(LEN), SSIZE(LEN), STRUE(LEN) local
631 SD = SCOMP(I) - STRUE(I)
642 20 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, I, SCOMP(I),
667 REAL SCOMP(1), STRUE(1) local
672 SCOMP(1) = SCOMP1
674 CALL STEST(1,SCOMP,STRUE,SSIZE,SFAC)
|