Lines Matching defs:DCHK2
771 SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
785 DOUBLE PRECISION ZERO, HALF
788 DOUBLE PRECISION EPS, THRESH
789 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
790 $ NOUT, NTRA
791 LOGICAL FATAL, REWI, TRACE
792 CHARACTER*6 SNAME
794 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
795 $ AS( NMAX*NMAX ), BET( NBET ), G( NMAX ),
796 $ X( NMAX ), XS( NMAX*INCMAX ),
797 $ XX( NMAX*INCMAX ), Y( NMAX ),
798 $ YS( NMAX*INCMAX ), YT( NMAX ),
799 $ YY( NMAX*INCMAX )
800 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
802 DOUBLE PRECISION ALPHA, ALS, BETA, BLS, ERR, ERRMAX, TRANSL
803 INTEGER I, IA, IB, IC, IK, IN, INCX, INCXS, INCY,
804 $ INCYS, IX, IY, K, KS, LAA, LDA, LDAS, LX, LY,
805 $ N, NARGS, NC, NK, NS
806 LOGICAL BANDED, FULL, NULL, PACKED, RESET, SAME
807 CHARACTER*1 UPLO, UPLOS
808 CHARACTER*2 ICH
810 LOGICAL ISAME( 13 )
812 LOGICAL LDE, LDERES
819 INTEGER INFOT, NOUTC
820 LOGICAL LERR, OK
822 COMMON /INFOC/INFOT, NOUTC, OK, LERR
925 10 CONTINUE
929 20 CONTINUE
934 30 CONTINUE
1030 40 CONTINUE
1054 50 CONTINUE
1056 60 CONTINUE
1058 70 CONTINUE
1060 80 CONTINUE
1062 90 CONTINUE
1064 100 CONTINUE
1066 110 CONTINUE
1077 120 CONTINUE
1111 * End of DCHK2. argument