Lines Matching defs:ZCHK4
1557 SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
1571 COMPLEX*16 ZERO, HALF, ONE
1575 DOUBLE PRECISION RZERO
1578 DOUBLE PRECISION EPS, THRESH
1579 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,
1580 $ IORDER
1581 LOGICAL FATAL, REWI, TRACE
1582 CHARACTER*12 SNAME
1584 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1585 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1586 $ XX( NMAX*INCMAX ), Y( NMAX ),
1587 $ YS( NMAX*INCMAX ), YT( NMAX ),
1588 $ YY( NMAX*INCMAX ), Z( NMAX )
1589 DOUBLE PRECISION G( NMAX )
1590 INTEGER IDIM( NIDIM ), INC( NINC )
1592 COMPLEX*16 ALPHA, ALS, TRANSL
1593 DOUBLE PRECISION ERR, ERRMAX
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 CONJ, NULL, RESET, SAME
1599 COMPLEX*16 W( 1 )
1600 LOGICAL ISAME( 13 )
1602 LOGICAL LZE, LZERES
1609 INTEGER INFOT, NOUTC
1610 LOGICAL OK
1612 COMMON /INFOC/INFOT, NOUTC, OK
1688 10 CONTINUE
1692 20 CONTINUE
1696 30 CONTINUE
1748 40 CONTINUE
1761 50 CONTINUE
1765 60 CONTINUE
1783 70 CONTINUE
1789 80 CONTINUE
1791 90 CONTINUE
1793 100 CONTINUE
1795 110 CONTINUE
1797 120 CONTINUE
1808 130 CONTINUE
1832 * End of ZCHK4. argument