Lines Matching defs:DCHK1
430 SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
444 DOUBLE PRECISION ZERO, HALF
447 DOUBLE PRECISION EPS, THRESH
448 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
449 $ NOUT, NTRA
450 LOGICAL FATAL, REWI, TRACE
451 CHARACTER*6 SNAME
453 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
454 $ AS( NMAX*NMAX ), BET( NBET ), G( NMAX ),
455 $ X( NMAX ), XS( NMAX*INCMAX ),
456 $ XX( NMAX*INCMAX ), Y( NMAX ),
457 $ YS( NMAX*INCMAX ), YT( NMAX ),
458 $ YY( NMAX*INCMAX )
459 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
461 DOUBLE PRECISION ALPHA, ALS, BETA, BLS, ERR, ERRMAX, TRANSL
462 INTEGER I, IA, IB, IC, IKU, IM, IN, INCX, INCXS, INCY,
463 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA,
464 $ LDAS, LX, LY, M, ML, MS, N, NARGS, NC, ND, NK,
465 $ NL, NS
466 LOGICAL BANDED, FULL, NULL, RESET, SAME, TRAN
467 CHARACTER*1 TRANS, TRANSS
468 CHARACTER*3 ICH
470 LOGICAL ISAME( 13 )
472 LOGICAL LDE, LDERES
479 INTEGER INFOT, NOUTC
480 LOGICAL LERR, OK
482 COMMON /INFOC/INFOT, NOUTC, OK, LERR
598 10 CONTINUE
602 20 CONTINUE
607 30 CONTINUE
689 40 CONTINUE
714 50 CONTINUE
716 60 CONTINUE
718 70 CONTINUE
720 80 CONTINUE
722 90 CONTINUE
724 100 CONTINUE
726 110 CONTINUE
728 120 CONTINUE
739 130 CONTINUE
768 * End of DCHK1. argument