Lines Matching defs:DCHK2
741 SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
756 DOUBLE PRECISION ZERO
759 DOUBLE PRECISION EPS, THRESH
760 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER
761 LOGICAL FATAL, REWI, TRACE
762 CHARACTER*12 SNAME
764 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
765 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
766 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
767 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
768 $ CS( NMAX*NMAX ), CT( NMAX ), G( NMAX )
769 INTEGER IDIM( NIDIM )
771 DOUBLE PRECISION ALPHA, ALS, BETA, BLS, ERR, ERRMAX
772 INTEGER I, IA, IB, ICS, ICU, IM, IN, LAA, LBB, LCC,
773 $ LDA, LDAS, LDB, LDBS, LDC, LDCS, M, MS, N, NA,
774 $ NARGS, NC, NS
775 LOGICAL LEFT, NULL, RESET, SAME
776 CHARACTER*1 SIDE, SIDES, UPLO, UPLOS
777 CHARACTER*2 ICHS, ICHU
779 LOGICAL ISAME( 13 )
781 LOGICAL LDE, LDERES
788 INTEGER INFOT, NOUTC
789 LOGICAL OK
791 COMMON /INFOC/INFOT, NOUTC, OK
879 10 CONTINUE
883 20 CONTINUE
888 30 CONTINUE
938 40 CONTINUE
966 50 CONTINUE
968 60 CONTINUE
970 70 CONTINUE
972 80 CONTINUE
974 90 CONTINUE
976 100 CONTINUE
989 110 CONTINUE
1016 * End of DCHK2. argument