Lines Matching defs:DCHK2
816 SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
830 DOUBLE PRECISION ZERO, HALF
833 DOUBLE PRECISION EPS, THRESH
834 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
835 $ NOUT, NTRA, IORDER
836 LOGICAL FATAL, REWI, TRACE
837 CHARACTER*12 SNAME
839 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
840 $ AS( NMAX*NMAX ), BET( NBET ), G( NMAX ),
841 $ X( NMAX ), XS( NMAX*INCMAX ),
842 $ XX( NMAX*INCMAX ), Y( NMAX ),
843 $ YS( NMAX*INCMAX ), YT( NMAX ),
844 $ YY( NMAX*INCMAX )
845 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
847 DOUBLE PRECISION ALPHA, ALS, BETA, BLS, ERR, ERRMAX, TRANSL
848 INTEGER I, IA, IB, IC, IK, IN, INCX, INCXS, INCY,
849 $ INCYS, IX, IY, K, KS, LAA, LDA, LDAS, LX, LY,
850 $ N, NARGS, NC, NK, NS
851 LOGICAL BANDED, FULL, NULL, PACKED, RESET, SAME
852 CHARACTER*1 UPLO, UPLOS
853 CHARACTER*14 CUPLO
854 CHARACTER*2 ICH
856 LOGICAL ISAME( 13 )
858 LOGICAL LDE, LDERES
865 INTEGER INFOT, NOUTC
866 LOGICAL OK
868 COMMON /INFOC/INFOT, NOUTC, OK
976 10 CONTINUE
980 20 CONTINUE
985 30 CONTINUE
1082 40 CONTINUE
1106 50 CONTINUE
1108 60 CONTINUE
1110 70 CONTINUE
1112 80 CONTINUE
1114 90 CONTINUE
1116 100 CONTINUE
1118 110 CONTINUE
1131 120 CONTINUE
1144 130 CONTINUE
1147 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1173 * End of DCHK2. argument