Lines Matching defs:SCHK2
637 SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
652 REAL ZERO
655 REAL EPS, THRESH
656 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
657 LOGICAL FATAL, REWI, TRACE
658 CHARACTER*6 SNAME
660 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
661 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
662 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
663 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
664 $ CS( NMAX*NMAX ), CT( NMAX ), G( NMAX )
665 INTEGER IDIM( NIDIM )
667 REAL ALPHA, ALS, BETA, BLS, ERR, ERRMAX
668 INTEGER I, IA, IB, ICS, ICU, IM, IN, LAA, LBB, LCC,
669 $ LDA, LDAS, LDB, LDBS, LDC, LDCS, M, MS, N, NA,
670 $ NARGS, NC, NS
671 LOGICAL LEFT, NULL, RESET, SAME
672 CHARACTER*1 SIDE, SIDES, UPLO, UPLOS
673 CHARACTER*2 ICHS, ICHU
675 LOGICAL ISAME( 13 )
677 LOGICAL LSE, LSERES
684 INTEGER INFOT, NOUTC
685 LOGICAL LERR, OK
687 COMMON /INFOC/INFOT, NOUTC, OK, LERR
775 10 CONTINUE
779 20 CONTINUE
784 30 CONTINUE
833 40 CONTINUE
861 50 CONTINUE
863 60 CONTINUE
865 70 CONTINUE
867 80 CONTINUE
869 90 CONTINUE
871 100 CONTINUE
904 * End of SCHK2. argument