Lines Matching defs:CCHKE

1945       SUBROUTINE CCHKE( ISNUM, SRNAMT, NOUT )  subroutine
1960       INTEGER            ISNUM, NOUT
1961       CHARACTER*6        SRNAMT
1963       INTEGER            INFOT, NOUTC
1964       LOGICAL            LERR, OK
1966       COMPLEX            ALPHA, BETA
1967       REAL               RALPHA, RBETA
1969       COMPLEX            A( 2, 1 ), B( 2, 1 ), C( 2, 1 )
1974       COMMON             /INFOC/INFOT, NOUTC, OK, LERR
1984    10 INFOT = 1
2165    20 INFOT = 1
2232    30 INFOT = 1
2299    40 INFOT = 1
2456    50 INFOT = 1
2613    60 INFOT = 1
2668    70 INFOT = 1
2723    80 INFOT = 1
2790    90 INFOT = 1
2868 *     End of CCHKE.  argument