Lines Matching defs:CHECK0

126       SUBROUTINE CHECK0(SFAC)  subroutine
128       INTEGER           NOUT
131       DOUBLE PRECISION  SFAC
133       INTEGER           ICASE, INCX, INCY, N  local
134       LOGICAL           PASS
136       DOUBLE PRECISION  SA, SB, SC, SS, D12
137       INTEGER           I, K  local
139       DOUBLE PRECISION  DA1(8), DATRUE(8), DB1(8), DBTRUE(8), DC1(8),
140      $                  DS1(8), DAB(4,9), DTEMP(9), DTRUE(9,9)
144       COMMON            /COMBLA/ICASE, N, INCX, INCY, PASS
239    20 CONTINUE
240    40 RETURN