| /external/eigen/blas/testing/ |
| D | zblat1.f | 642 SUBROUTINE ITEST1(ICOMP,ITRUE) argument
653 INTEGER ICOMP, ITRUE local
662 IF (ICOMP.EQ.ITRUE) GO TO 40
671 20 ID = ICOMP - ITRUE
672 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID
|
| D | dblat1.f | 1025 SUBROUTINE ITEST1(ICOMP,ITRUE) argument
1036 INTEGER ICOMP, ITRUE local
1046 IF (ICOMP.EQ.ITRUE) GO TO 40
1055 20 ID = ICOMP - ITRUE
1056 WRITE (NOUT,99997) ICASE, N, INCX, INCY, ICOMP, ITRUE, ID
|
| D | cblat1.f | 642 SUBROUTINE ITEST1(ICOMP,ITRUE) argument
653 INTEGER ICOMP, ITRUE local
662 IF (ICOMP.EQ.ITRUE) GO TO 40
671 20 ID = ICOMP - ITRUE
672 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID
|
| D | sblat1.f | 981 SUBROUTINE ITEST1(ICOMP,ITRUE) argument
992 INTEGER ICOMP, ITRUE local
1002 IF (ICOMP.EQ.ITRUE) GO TO 40
1011 20 ID = ICOMP - ITRUE
1012 WRITE (NOUT,99997) ICASE, N, INCX, INCY, ICOMP, ITRUE, ID
|
| /external/cblas/testing/ |
| D | c_zblat1.f | 643 SUBROUTINE ITEST1(ICOMP,ITRUE) argument
654 INTEGER ICOMP, ITRUE local
663 IF (ICOMP.EQ.ITRUE) GO TO 40
672 20 ID = ICOMP - ITRUE
673 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID
|
| D | c_dblat1.f | 688 SUBROUTINE ITEST1(ICOMP,ITRUE) argument
699 INTEGER ICOMP, ITRUE local
709 IF (ICOMP.EQ.ITRUE) GO TO 40
718 20 ID = ICOMP - ITRUE
719 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID
|
| D | c_sblat1.f | 688 SUBROUTINE ITEST1(ICOMP,ITRUE) argument
699 INTEGER ICOMP, ITRUE local
709 IF (ICOMP.EQ.ITRUE) GO TO 40
718 20 ID = ICOMP - ITRUE
719 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID
|
| D | c_cblat1.f | 643 SUBROUTINE ITEST1(ICOMP,ITRUE) argument
654 INTEGER ICOMP, ITRUE local
663 IF (ICOMP.EQ.ITRUE) GO TO 40
672 20 ID = ICOMP - ITRUE
673 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID
|