Lines Matching defs:SCHKE

2325       SUBROUTINE SCHKE( ISNUM, SRNAMT, NOUT )  subroutine
2338       INTEGER            ISNUM, NOUT
2339       CHARACTER*6        SRNAMT
2341       INTEGER            INFOT, NOUTC
2342       LOGICAL            LERR, OK
2344       REAL               ALPHA, BETA
2346       REAL               A( 1, 1 ), X( 1 ), Y( 1 )
2352       COMMON             /INFOC/INFOT, NOUTC, OK, LERR
2363    10 INFOT = 1
2382    20 INFOT = 1
2407    30 INFOT = 1
2423    40 INFOT = 1
2442    50 INFOT = 1
2455    60 INFOT = 1
2474    70 INFOT = 1
2496    80 INFOT = 1
2512    90 INFOT = 1
2531   100 INFOT = 1
2553   110 INFOT = 1
2569   120 INFOT = 1
2585   130 INFOT = 1
2598   140 INFOT = 1
2608   150 INFOT = 1
2624   160 INFOT = 1
2648 *     End of SCHKE.  argument