Lines Matching defs:ITEST1

688       SUBROUTINE ITEST1(ICOMP,ITRUE)  subroutine
696       INTEGER           NOUT
699       INTEGER           ICOMP, ITRUE
701       INTEGER           ICASE, INCX, INCY, MODE, N  local
702       LOGICAL           PASS
704       INTEGER           ID
706       COMMON            /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
718    20 ID = ICOMP - ITRUE
720    40 CONTINUE
723 99999 FORMAT ('                                       FAIL')
724 99998 FORMAT (/' CASE  N INCX INCY MODE                               ',
727 99997 FORMAT (1X,I4,I3,3I5,2I36,I12)