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
367 COMMON /COMBLA/ICASE, N, INCX, INCY, PASS
688 LOGICAL PASS
705 COMMON /COMBLA/ICASE, N, INCX, INCY, PASS
906 LOGICAL PASS
916 COMMON /COMBLA/ICASE, N, INCX, INCY, PASS
926 IF ( .NOT. PASS) GO TO 20
928 PASS = .FALSE.
959 LOGICAL PASS
965 COMMON /COMBLA/ICASE, N, INCX, INCY, PASS
974 IF ( .NOT. PASS) GO TO 20
976 PASS = .FALSE.
1039 LOGICAL PASS
1043 COMMON /COMBLA/ICASE, N, INCX, INCY, PASS
1050 IF ( .NOT. PASS) GO TO 20
1052 PASS = .FALSE.
