Lines Matching defs:CCHK2
755 SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
771 COMPLEX ZERO
773 REAL RZERO
776 REAL EPS, THRESH
777 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER
778 LOGICAL FATAL, REWI, TRACE
779 CHARACTER*12 SNAME
781 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
782 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
783 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
784 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
785 $ CS( NMAX*NMAX ), CT( NMAX )
786 REAL G( NMAX )
787 INTEGER IDIM( NIDIM )
789 COMPLEX ALPHA, ALS, BETA, BLS
790 REAL ERR, ERRMAX
791 INTEGER I, IA, IB, ICS, ICU, IM, IN, LAA, LBB, LCC,
792 $ LDA, LDAS, LDB, LDBS, LDC, LDCS, M, MS, N, NA,
793 $ NARGS, NC, NS
794 LOGICAL CONJ, LEFT, NULL, RESET, SAME
795 CHARACTER*1 SIDE, SIDES, UPLO, UPLOS
796 CHARACTER*2 ICHS, ICHU
798 LOGICAL ISAME( 13 )
800 LOGICAL LCE, LCERES
807 INTEGER INFOT, NOUTC
808 LOGICAL LERR, OK
810 COMMON /INFOC/INFOT, NOUTC, OK, LERR
898 10 CONTINUE
902 20 CONTINUE
907 30 CONTINUE
964 40 CONTINUE
992 50 CONTINUE
994 60 CONTINUE
996 70 CONTINUE
998 80 CONTINUE
1000 90 CONTINUE
1002 100 CONTINUE
1015 110 CONTINUE
1042 * End of CCHK2. argument