Lines Matching defs:DCHK5
1835 SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
1849 DOUBLE PRECISION ZERO, HALF, ONE
1852 DOUBLE PRECISION EPS, THRESH
1853 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,
1854 $ IORDER
1855 LOGICAL FATAL, REWI, TRACE
1856 CHARACTER*12 SNAME
1858 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1859 $ AS( NMAX*NMAX ), G( NMAX ), X( NMAX ),
1860 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
1861 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
1862 $ YY( NMAX*INCMAX ), Z( NMAX )
1863 INTEGER IDIM( NIDIM ), INC( NINC )
1865 DOUBLE PRECISION ALPHA, ALS, ERR, ERRMAX, TRANSL
1866 INTEGER I, IA, IC, IN, INCX, INCXS, IX, J, JA, JJ, LAA,
1867 $ LDA, LDAS, LJ, LX, N, NARGS, NC, NS
1868 LOGICAL FULL, NULL, PACKED, RESET, SAME, UPPER
1869 CHARACTER*1 UPLO, UPLOS
1870 CHARACTER*14 CUPLO
1871 CHARACTER*2 ICH
1873 DOUBLE PRECISION W( 1 )
1874 LOGICAL ISAME( 13 )
1876 LOGICAL LDE, LDERES
1883 INTEGER INFOT, NOUTC
1884 LOGICAL OK
1886 COMMON /INFOC/INFOT, NOUTC, OK
1960 10 CONTINUE
1964 20 CONTINUE
2018 30 CONTINUE
2031 40 CONTINUE
2035 50 CONTINUE
2064 60 CONTINUE
2071 70 CONTINUE
2073 80 CONTINUE
2075 90 CONTINUE
2077 100 CONTINUE
2090 110 CONTINUE
2093 120 CONTINUE
2101 130 CONTINUE
2104 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
2128 * End of DCHK5. argument