Lines Matching defs:ITEST1

685       SUBROUTINE ITEST1(ICOMP,ITRUE)  subroutine
693       INTEGER           NOUT
696       INTEGER           ICOMP, ITRUE
698       INTEGER           ICASE, INCX, INCY, MODE, N  local
699       LOGICAL           PASS
701       INTEGER           ID
703       COMMON            /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
714    20 ID = ICOMP - ITRUE
716    40 CONTINUE
719 99999 FORMAT ('                                       FAIL')
720 99998 FORMAT (/' CASE  N INCX INCY MODE                               ',
723 99997 FORMAT (1X,I4,I3,3I5,2I36,I12)