Lines Matching defs:DCHK4
1563 SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
1577 DOUBLE PRECISION ZERO, HALF, ONE
1580 DOUBLE PRECISION EPS, THRESH
1581 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,
1582 $ IORDER
1583 LOGICAL FATAL, REWI, TRACE
1584 CHARACTER*12 SNAME
1586 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1587 $ AS( NMAX*NMAX ), G( NMAX ), X( NMAX ),
1588 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
1589 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
1590 $ YY( NMAX*INCMAX ), Z( NMAX )
1591 INTEGER IDIM( NIDIM ), INC( NINC )
1593 DOUBLE PRECISION ALPHA, ALS, ERR, ERRMAX, TRANSL
1594 INTEGER I, IA, IM, IN, INCX, INCXS, INCY, INCYS, IX,
1595 $ IY, J, LAA, LDA, LDAS, LX, LY, M, MS, N, NARGS,
1596 $ NC, ND, NS
1597 LOGICAL NULL, RESET, SAME
1599 DOUBLE PRECISION W( 1 )
1600 LOGICAL ISAME( 13 )
1602 LOGICAL LDE, LDERES
1609 INTEGER INFOT, NOUTC
1610 LOGICAL OK
1612 COMMON /INFOC/INFOT, NOUTC, OK
1687 10 CONTINUE
1691 20 CONTINUE
1695 30 CONTINUE
1740 40 CONTINUE
1753 50 CONTINUE
1757 60 CONTINUE
1773 70 CONTINUE
1779 80 CONTINUE
1781 90 CONTINUE
1783 100 CONTINUE
1785 110 CONTINUE
1787 120 CONTINUE
1800 130 CONTINUE
1803 140 CONTINUE
1807 150 CONTINUE
1832 * End of DCHK4. argument