| /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
|
| /external/eigen/blas/testing/ |
| D | zblat1.f | 685 SUBROUTINE ITEST1(ICOMP,ITRUE) argument
696 INTEGER ICOMP, ITRUE local
705 IF (ICOMP.EQ.ITRUE) GO TO 40
714 20 ID = ICOMP - ITRUE
715 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 | 685 SUBROUTINE ITEST1(ICOMP,ITRUE) argument
696 INTEGER ICOMP, ITRUE local
705 IF (ICOMP.EQ.ITRUE) GO TO 40
714 20 ID = ICOMP - ITRUE
715 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
|