Lines Matching defs:CHECK0
126 SUBROUTINE CHECK0(SFAC) subroutine
128 INTEGER NOUT
131 REAL SFAC
133 INTEGER ICASE, INCX, INCY, N local
134 LOGICAL PASS
136 REAL D12, SA, SB, SC, SS
137 INTEGER I, K local
139 REAL 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