Lines Matching defs:ZCHK2
784 SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
798 COMPLEX*16 ZERO, HALF
801 DOUBLE PRECISION RZERO
804 DOUBLE PRECISION EPS, THRESH
805 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
806 $ NOUT, NTRA
807 LOGICAL FATAL, REWI, TRACE
808 CHARACTER*6 SNAME
810 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
811 $ AS( NMAX*NMAX ), BET( NBET ), X( NMAX ),
812 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
813 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
814 $ YY( NMAX*INCMAX )
815 DOUBLE PRECISION G( NMAX )
816 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
818 COMPLEX*16 ALPHA, ALS, BETA, BLS, TRANSL
819 DOUBLE PRECISION ERR, ERRMAX
820 INTEGER I, IA, IB, IC, IK, IN, INCX, INCXS, INCY,
821 $ INCYS, IX, IY, K, KS, LAA, LDA, LDAS, LX, LY,
822 $ N, NARGS, NC, NK, NS
823 LOGICAL BANDED, FULL, NULL, PACKED, RESET, SAME
824 CHARACTER*1 UPLO, UPLOS
825 CHARACTER*2 ICH
827 LOGICAL ISAME( 13 )
829 LOGICAL LZE, LZERES
836 INTEGER INFOT, NOUTC
837 LOGICAL LERR, OK
839 COMMON /INFOC/INFOT, NOUTC, OK, LERR
942 10 CONTINUE
946 20 CONTINUE
951 30 CONTINUE
1047 40 CONTINUE
1071 50 CONTINUE
1073 60 CONTINUE
1075 70 CONTINUE
1077 80 CONTINUE
1079 90 CONTINUE
1081 100 CONTINUE
1083 110 CONTINUE
1094 120 CONTINUE
1130 * End of ZCHK2. argument