Lines Matching defs:DCHK2
732 SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
746 DOUBLE PRECISION ZERO, HALF
749 DOUBLE PRECISION EPS, THRESH
750 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
751 $ NOUT, NTRA
752 LOGICAL FATAL, REWI, TRACE
753 CHARACTER*6 SNAME
755 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
756 $ AS( NMAX*NMAX ), BET( NBET ), G( NMAX ),
757 $ X( NMAX ), XS( NMAX*INCMAX ),
758 $ XX( NMAX*INCMAX ), Y( NMAX ),
759 $ YS( NMAX*INCMAX ), YT( NMAX ),
760 $ YY( NMAX*INCMAX )
761 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
763 DOUBLE PRECISION ALPHA, ALS, BETA, BLS, ERR, ERRMAX, TRANSL
764 INTEGER I, IA, IB, IC, IK, IN, INCX, INCXS, INCY,
765 $ INCYS, IX, IY, K, KS, LAA, LDA, LDAS, LX, LY,
766 $ N, NARGS, NC, NK, NS
767 LOGICAL BANDED, FULL, NULL, PACKED, RESET, SAME
768 CHARACTER*1 UPLO, UPLOS
769 CHARACTER*2 ICH
771 LOGICAL ISAME( 13 )
773 LOGICAL LDE, LDERES
780 INTEGER INFOT, NOUTC
781 LOGICAL LERR, OK
783 COMMON /INFOC/INFOT, NOUTC, OK, LERR
886 10 CONTINUE
890 20 CONTINUE
895 30 CONTINUE
991 40 CONTINUE
1015 50 CONTINUE
1017 60 CONTINUE
1019 70 CONTINUE
1021 80 CONTINUE
1023 90 CONTINUE
1025 100 CONTINUE
1027 110 CONTINUE
1038 120 CONTINUE
1072 * End of DCHK2. argument