Lines Matching defs:SCHK1
391 SUBROUTINE SCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
405 REAL ZERO, HALF
408 REAL EPS, THRESH
409 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
410 $ NOUT, NTRA
411 LOGICAL FATAL, REWI, TRACE
412 CHARACTER*6 SNAME
414 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
415 $ AS( NMAX*NMAX ), BET( NBET ), G( NMAX ),
416 $ X( NMAX ), XS( NMAX*INCMAX ),
417 $ XX( NMAX*INCMAX ), Y( NMAX ),
418 $ YS( NMAX*INCMAX ), YT( NMAX ),
419 $ YY( NMAX*INCMAX )
420 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
422 REAL ALPHA, ALS, BETA, BLS, ERR, ERRMAX, TRANSL
423 INTEGER I, IA, IB, IC, IKU, IM, IN, INCX, INCXS, INCY,
424 $ INCYS, IX, IY, KL, KLS, KU, KUS, LAA, LDA,
425 $ LDAS, LX, LY, M, ML, MS, N, NARGS, NC, ND, NK,
426 $ NL, NS
427 LOGICAL BANDED, FULL, NULL, RESET, SAME, TRAN
428 CHARACTER*1 TRANS, TRANSS
429 CHARACTER*3 ICH
431 LOGICAL ISAME( 13 )
433 LOGICAL LSE, LSERES
440 INTEGER INFOT, NOUTC
441 LOGICAL LERR, OK
443 COMMON /INFOC/INFOT, NOUTC, OK, LERR
559 10 CONTINUE
563 20 CONTINUE
568 30 CONTINUE
650 40 CONTINUE
675 50 CONTINUE
677 60 CONTINUE
679 70 CONTINUE
681 80 CONTINUE
683 90 CONTINUE
685 100 CONTINUE
687 110 CONTINUE
689 120 CONTINUE
700 130 CONTINUE
729 * End of SCHK1. argument