Lines Matching defs:ZCHK4
1456 SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
1470 COMPLEX*16 ZERO, HALF, ONE
1474 DOUBLE PRECISION RZERO
1477 DOUBLE PRECISION EPS, THRESH
1478 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA
1479 LOGICAL FATAL, REWI, TRACE
1480 CHARACTER*6 SNAME
1482 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1483 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1484 $ XX( NMAX*INCMAX ), Y( NMAX ),
1485 $ YS( NMAX*INCMAX ), YT( NMAX ),
1486 $ YY( NMAX*INCMAX ), Z( NMAX )
1487 DOUBLE PRECISION G( NMAX )
1488 INTEGER IDIM( NIDIM ), INC( NINC )
1490 COMPLEX*16 ALPHA, ALS, TRANSL
1491 DOUBLE PRECISION ERR, ERRMAX
1492 INTEGER I, IA, IM, IN, INCX, INCXS, INCY, INCYS, IX,
1493 $ IY, J, LAA, LDA, LDAS, LX, LY, M, MS, N, NARGS,
1494 $ NC, ND, NS
1495 LOGICAL CONJ, NULL, RESET, SAME
1497 COMPLEX*16 W( 1 )
1498 LOGICAL ISAME( 13 )
1500 LOGICAL LZE, LZERES
1507 INTEGER INFOT, NOUTC
1508 LOGICAL LERR, OK
1510 COMMON /INFOC/INFOT, NOUTC, OK, LERR
1586 10 CONTINUE
1590 20 CONTINUE
1594 30 CONTINUE
1646 40 CONTINUE
1659 50 CONTINUE
1663 60 CONTINUE
1681 70 CONTINUE
1687 80 CONTINUE
1689 90 CONTINUE
1691 100 CONTINUE
1693 110 CONTINUE
1695 120 CONTINUE
1706 130 CONTINUE
1731 * End of ZCHK4. argument