Lines Matching defs:ZCHK1
399 SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
413 COMPLEX*16 ZERO, HALF
416 DOUBLE PRECISION RZERO
419 DOUBLE PRECISION EPS, THRESH
420 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
421 $ NOUT, NTRA
422 LOGICAL FATAL, REWI, TRACE
423 CHARACTER*6 SNAME
425 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
426 $ AS( NMAX*NMAX ), BET( NBET ), X( NMAX ),
427 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
428 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
429 $ YY( NMAX*INCMAX )
430 DOUBLE PRECISION G( NMAX )
431 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
433 COMPLEX*16 ALPHA, ALS, BETA, BLS, TRANSL
434 DOUBLE PRECISION ERR, ERRMAX
435 INTEGER I, IA, IB, IC, IKU, IM, IN, INCX, INCXS, INCY,
436 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA,
437 $ LDAS, LX, LY, M, ML, MS, N, NARGS, NC, ND, NK,
438 $ NL, NS
439 LOGICAL BANDED, FULL, NULL, RESET, SAME, TRAN
440 CHARACTER*1 TRANS, TRANSS
441 CHARACTER*3 ICH
443 LOGICAL ISAME( 13 )
445 LOGICAL LZE, LZERES
452 INTEGER INFOT, NOUTC
453 LOGICAL LERR, OK
455 COMMON /INFOC/INFOT, NOUTC, OK, LERR
571 10 CONTINUE
575 20 CONTINUE
580 30 CONTINUE
662 40 CONTINUE
687 50 CONTINUE
689 60 CONTINUE
691 70 CONTINUE
693 80 CONTINUE
695 90 CONTINUE
697 100 CONTINUE
699 110 CONTINUE
701 120 CONTINUE
712 130 CONTINUE
742 * End of ZCHK1. argument