Lines Matching defs:ZCHK5
1835 SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
1849 COMPLEX*16 ZERO, HALF, ONE
1853 DOUBLE PRECISION RZERO
1856 DOUBLE PRECISION EPS, THRESH
1857 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,
1858 $ IORDER
1859 LOGICAL FATAL, REWI, TRACE
1860 CHARACTER*12 SNAME
1862 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1863 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1864 $ XX( NMAX*INCMAX ), Y( NMAX ),
1865 $ YS( NMAX*INCMAX ), YT( NMAX ),
1866 $ YY( NMAX*INCMAX ), Z( NMAX )
1867 DOUBLE PRECISION G( NMAX )
1868 INTEGER IDIM( NIDIM ), INC( NINC )
1870 COMPLEX*16 ALPHA, TRANSL
1871 DOUBLE PRECISION ERR, ERRMAX, RALPHA, RALS
1872 INTEGER I, IA, IC, IN, INCX, INCXS, IX, J, JA, JJ, LAA,
1873 $ LDA, LDAS, LJ, LX, N, NARGS, NC, NS
1874 LOGICAL FULL, NULL, PACKED, RESET, SAME, UPPER
1875 CHARACTER*1 UPLO, UPLOS
1876 CHARACTER*14 CUPLO
1877 CHARACTER*2 ICH
1879 COMPLEX*16 W( 1 )
1880 LOGICAL ISAME( 13 )
1882 LOGICAL LZE, LZERES
1889 INTEGER INFOT, NOUTC
1890 LOGICAL OK
1892 COMMON /INFOC/INFOT, NOUTC, OK
1967 10 CONTINUE
1971 20 CONTINUE
2026 30 CONTINUE
2039 40 CONTINUE
2043 50 CONTINUE
2072 60 CONTINUE
2079 70 CONTINUE
2081 80 CONTINUE
2083 90 CONTINUE
2085 100 CONTINUE
2096 110 CONTINUE
2099 120 CONTINUE
2107 130 CONTINUE
2110 9999 FORMAT(' ',A12, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CALL',
2112 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2114 9997 FORMAT(' ',A12, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
2117 9996 FORMAT( ' ******* ',A12, ' FAILED ON CALL NUMBER:' )
2118 9995 FORMAT( ' THESE ARE THE RESULTS FOR COLUMN ', I3 )
2119 9994 FORMAT(1X, I6, ': ',A12, '(', A14, ',', I3, ',', F4.1, ', X,',
2121 9993 FORMAT(1X, I6, ': ',A12, '(', A14, ',', I3, ',', F4.1, ', X,',
2123 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',