Lines Matching defs:CCHKE

2335       SUBROUTINE CCHKE( ISNUM, SRNAMT, NOUT )  subroutine
2348       INTEGER            ISNUM, NOUT
2349       CHARACTER*6        SRNAMT
2351       INTEGER            INFOT, NOUTC
2352       LOGICAL            LERR, OK
2354       COMPLEX            ALPHA, BETA
2355       REAL               RALPHA
2357       COMPLEX            A( 1, 1 ), X( 1 ), Y( 1 )
2363       COMMON             /INFOC/INFOT, NOUTC, OK, LERR
2374    10 INFOT = 1
2393    20 INFOT = 1
2418    30 INFOT = 1
2434    40 INFOT = 1
2453    50 INFOT = 1
2466    60 INFOT = 1
2485    70 INFOT = 1
2507    80 INFOT = 1
2523    90 INFOT = 1
2542   100 INFOT = 1
2564   110 INFOT = 1
2580   120 INFOT = 1
2596   130 INFOT = 1
2612   140 INFOT = 1
2625   150 INFOT = 1
2635   160 INFOT = 1
2651   170 INFOT = 1
2675 *     End of CCHKE.  argument