Lines Matching defs:CHECK2
336 SUBROUTINE CHECK2(SFAC) subroutine
338 INTEGER NOUT
341 REAL SFAC
343 INTEGER ICASE, INCX, INCY, N local
344 LOGICAL PASS
346 REAL SA
347 INTEGER I, J, KI, KN, KNI, KPAR, KSIZE, LENX, LENY, local
348 $ MX, MY
350 REAL 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), SSIZE3(4),
353 $ SSIZE(7), 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 $ ST7B(4,4)
359 INTEGER INCXS(4), INCYS(4), LENS(4,2), NS(4)
361 REAL SDOT, SDSDOT
368 COMMON /COMBLA/ICASE, N, INCX, INCY, PASS
614 20 CONTINUE
625 40 CONTINUE
631 60 CONTINUE
640 80 CONTINUE
680 100 CONTINUE
681 120 CONTINUE