Lines Matching defs:ITEST1

643       SUBROUTINE ITEST1(ICOMP,ITRUE)  subroutine
651       INTEGER           NOUT
654       INTEGER           ICOMP, ITRUE
656       INTEGER           ICASE, INCX, INCY, MODE, N  local
657       LOGICAL           PASS
659       INTEGER           ID
661       COMMON            /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
672    20 ID = ICOMP - ITRUE
674    40 CONTINUE
677 99999 FORMAT ('                                       FAIL')
678 99998 FORMAT (/' CASE  N INCX INCY MODE                               ',
681 99997 FORMAT (1X,I4,I3,3I5,2I36,I12)