Lines Matching defs:SCHKE

1840       SUBROUTINE SCHKE( ISNUM, SRNAMT, NOUT )  subroutine
1858       INTEGER            ISNUM, NOUT
1859       CHARACTER*6        SRNAMT
1861       INTEGER            INFOT, NOUTC
1862       LOGICAL            LERR, OK
1864       REAL               ONE, TWO
1867       REAL               ALPHA, BETA
1869       REAL               A( 2, 1 ), B( 2, 1 ), C( 2, 1 )
1874       COMMON             /INFOC/INFOT, NOUTC, OK, LERR
1889    10 INFOT = 1
1974    20 INFOT = 1
2041    30 INFOT = 1
2150    40 INFOT = 1
2259    50 INFOT = 1
2314    60 INFOT = 1
2392 *     End of SCHKE.  argument