Lines Matching defs:ITEST1

642       SUBROUTINE ITEST1(ICOMP,ITRUE)  subroutine
650       INTEGER           NOUT
653       INTEGER           ICOMP, ITRUE
655       INTEGER           ICASE, INCX, INCY, MODE, N  local
656       LOGICAL           PASS
658       INTEGER           ID
660       COMMON            /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
671    20 ID = ICOMP - ITRUE
673    40 CONTINUE
676 99999 FORMAT ('                                       FAIL')
677 99998 FORMAT (/' CASE  N INCX INCY MODE                               ',
680 99997 FORMAT (1X,I4,I3,3I5,2I36,I12)