Lines Matching defs:SCHKE

1801       SUBROUTINE SCHKE( ISNUM, SRNAMT, NOUT )  subroutine
1816       INTEGER            ISNUM, NOUT
1817       CHARACTER*6        SRNAMT
1819       INTEGER            INFOT, NOUTC
1820       LOGICAL            LERR, OK
1822       REAL               ALPHA, BETA
1824       REAL               A( 2, 1 ), B( 2, 1 ), C( 2, 1 )
1829       COMMON             /INFOC/INFOT, NOUTC, OK, LERR
1838    10 INFOT = 1
1923    20 INFOT = 1
1990    30 INFOT = 1
2099    40 INFOT = 1
2208    50 INFOT = 1
2263    60 INFOT = 1
2341 *     End of SCHKE.  argument