Lines Matching defs:PASS
52 LOGICAL PASS
59 COMMON /COMBLA/ICASE, N, INCX, INCY, PASS
68 * .. Initialize PASS, INCX, and INCY for a new case. ..
73 PASS = .TRUE.
88 IF (PASS) WRITE (NOUT,99998)
93 99998 FORMAT (' ----- PASS -----')
101 LOGICAL PASS
105 COMMON /COMBLA/ICASE, N, INCX, INCY, PASS
134 LOGICAL PASS
144 COMMON /COMBLA/ICASE, N, INCX, INCY, PASS
250 LOGICAL PASS
266 COMMON /COMBLA/ICASE, N, INCX, INCY, PASS
344 LOGICAL PASS
368 COMMON /COMBLA/ICASE, N, INCX, INCY, PASS
692 LOGICAL PASS
709 COMMON /COMBLA/ICASE, N, INCX, INCY, PASS
910 LOGICAL PASS
920 COMMON /COMBLA/ICASE, N, INCX, INCY, PASS
930 IF ( .NOT. PASS) GO TO 20
932 PASS = .FALSE.
995 LOGICAL PASS
999 COMMON /COMBLA/ICASE, N, INCX, INCY, PASS
1006 IF ( .NOT. PASS) GO TO 20
1008 PASS = .FALSE.
