Lines Matching defs:CHECK1
76 SUBROUTINE CHECK1(SFAC) subroutine
78 INTEGER NOUT
81 DOUBLE PRECISION SFAC
83 INTEGER ICASE, INCX, INCY, MODE, N local
84 LOGICAL PASS
86 COMPLEX*16 CA
87 DOUBLE PRECISION SA
88 INTEGER I, J, LEN, NP1
90 COMPLEX*16 CTRUE5(8,5,2), CTRUE6(8,5,2), CV(8,5,2), CX(8),
91 + MWPCS(5), MWPCT(5)
92 DOUBLE PRECISION STRUE2(5), STRUE4(5)
93 INTEGER ITRUE3(5)
95 DOUBLE PRECISION DZASUMTEST, DZNRM2TEST
96 INTEGER IZAMAXTEST
103 COMMON /COMBLA/ICASE, N, INCX, INCY, MODE, PASS
230 WRITE (NOUT,*) ' Shouldn''t be here in CHECK1' argument
234 40 CONTINUE
235 60 CONTINUE
245 80 CONTINUE
255 100 CONTINUE
263 120 CONTINUE
271 140 CONTINUE