Searched refs:ICOMP (Results 1 - 4 of 4) sorted by relevance
| /external/eigen/blas/testing/ |
| H A D | cblat1.f | 642 SUBROUTINE ITEST1(ICOMP,ITRUE)
645 * THIS SUBROUTINE COMPARES THE VARIABLES ICOMP AND ITRUE FOR
653 INTEGER ICOMP, ITRUE local in subroutine:ITEST1
662 IF (ICOMP.EQ.ITRUE) GO TO 40
664 * HERE ICOMP IS NOT EQUAL TO ITRUE.
671 20 ID = ICOMP - ITRUE
672 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID
|
| H A D | zblat1.f | 642 SUBROUTINE ITEST1(ICOMP,ITRUE)
645 * THIS SUBROUTINE COMPARES THE VARIABLES ICOMP AND ITRUE FOR
653 INTEGER ICOMP, ITRUE local in subroutine:ITEST1
662 IF (ICOMP.EQ.ITRUE) GO TO 40
664 * HERE ICOMP IS NOT EQUAL TO ITRUE.
671 20 ID = ICOMP - ITRUE
672 WRITE (NOUT,99997) ICASE, N, INCX, INCY, MODE, ICOMP, ITRUE, ID
|
| H A D | dblat1.f | 1025 SUBROUTINE ITEST1(ICOMP,ITRUE)
1028 * THIS SUBROUTINE COMPARES THE VARIABLES ICOMP AND ITRUE FOR
1036 INTEGER ICOMP, ITRUE local in subroutine:ITEST1
1046 IF (ICOMP.EQ.ITRUE) GO TO 40
1048 * HERE ICOMP IS NOT EQUAL TO ITRUE.
1055 20 ID = ICOMP - ITRUE
1056 WRITE (NOUT,99997) ICASE, N, INCX, INCY, ICOMP, ITRUE, ID
|
| H A D | sblat1.f | 981 SUBROUTINE ITEST1(ICOMP,ITRUE)
984 * THIS SUBROUTINE COMPARES THE VARIABLES ICOMP AND ITRUE FOR
992 INTEGER ICOMP, ITRUE local in subroutine:ITEST1
1002 IF (ICOMP.EQ.ITRUE) GO TO 40
1004 * HERE ICOMP IS NOT EQUAL TO ITRUE.
1011 20 ID = ICOMP - ITRUE
1012 WRITE (NOUT,99997) ICASE, N, INCX, INCY, ICOMP, ITRUE, ID
|
Completed in 219 milliseconds