Lines Matching defs:SCHKE

2286       SUBROUTINE SCHKE( ISNUM, SRNAMT, NOUT )  subroutine
2299       INTEGER            ISNUM, NOUT
2300       CHARACTER*6        SRNAMT
2302       INTEGER            INFOT, NOUTC
2303       LOGICAL            LERR, OK
2305       REAL               ALPHA, BETA
2307       REAL               A( 1, 1 ), X( 1 ), Y( 1 )
2313       COMMON             /INFOC/INFOT, NOUTC, OK, LERR
2324    10 INFOT = 1
2343    20 INFOT = 1
2368    30 INFOT = 1
2384    40 INFOT = 1
2403    50 INFOT = 1
2416    60 INFOT = 1
2435    70 INFOT = 1
2457    80 INFOT = 1
2473    90 INFOT = 1
2492   100 INFOT = 1
2514   110 INFOT = 1
2530   120 INFOT = 1
2546   130 INFOT = 1
2559   140 INFOT = 1
2569   150 INFOT = 1
2585   160 INFOT = 1
2609 *     End of SCHKE.  argument