Lines Matching defs:ZCHKE

2342       SUBROUTINE ZCHKE( ISNUM, SRNAMT, NOUT )  subroutine
2355       INTEGER            ISNUM, NOUT
2356       CHARACTER*6        SRNAMT
2358       INTEGER            INFOT, NOUTC
2359       LOGICAL            LERR, OK
2361       COMPLEX*16         ALPHA, BETA
2362       DOUBLE PRECISION   RALPHA
2364       COMPLEX*16         A( 1, 1 ), X( 1 ), Y( 1 )
2370       COMMON             /INFOC/INFOT, NOUTC, OK, LERR
2381    10 INFOT = 1
2400    20 INFOT = 1
2425    30 INFOT = 1
2441    40 INFOT = 1
2460    50 INFOT = 1
2473    60 INFOT = 1
2492    70 INFOT = 1
2514    80 INFOT = 1
2530    90 INFOT = 1
2549   100 INFOT = 1
2571   110 INFOT = 1
2587   120 INFOT = 1
2603   130 INFOT = 1
2619   140 INFOT = 1
2632   150 INFOT = 1
2642   160 INFOT = 1
2658   170 INFOT = 1
2682 *     End of ZCHKE.  argument