Lines Matching defs:CHECK2
336 SUBROUTINE CHECK2(SFAC) subroutine
338 INTEGER NOUT
341 DOUBLE PRECISION SFAC
343 INTEGER ICASE, INCX, INCY, N local
344 LOGICAL PASS
346 DOUBLE PRECISION SA
347 INTEGER I, J, KI, KN, KNI, KPAR, KSIZE, LENX, LENY, local
348 $ MX, MY
350 DOUBLE PRECISION DT10X(7,4,4), DT10Y(7,4,4), DT7(4,4),
351 $ DT8(7,4,4), DX1(7),
352 $ DY1(7), SSIZE1(4), SSIZE2(14,2), SSIZE(7),
353 $ STX(7), STY(7), SX(7), SY(7),
354 $ DPAR(5,4), DT19X(7,4,16),DT19XA(7,4,4),
355 $ DT19XB(7,4,4), DT19XC(7,4,4),DT19XD(7,4,4),
356 $ DT19Y(7,4,16), DT19YA(7,4,4),DT19YB(7,4,4),
357 $ DT19YC(7,4,4), DT19YD(7,4,4), DTEMP(5)
358 INTEGER INCXS(4), INCYS(4), LENS(4,2), NS(4)
360 DOUBLE PRECISION DDOT, DSDOT
367 COMMON /COMBLA/ICASE, N, INCX, INCY, PASS
610 20 CONTINUE
621 40 CONTINUE
627 60 CONTINUE
636 80 CONTINUE
676 100 CONTINUE
677 120 CONTINUE