NAME

       c_sblat2.f -

SYNOPSIS

   Functions/Subroutines
       program sblat2
       subroutine schk1 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NKB,
           KB, NALF, ALF, NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
           YT, G, IORDER)
       subroutine schk2 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NKB,
           KB, NALF, ALF, NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
           YT, G, IORDER)
       subroutine schk3 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NKB,
           KB, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, XS, XT, G, Z, IORDER)
       subroutine schk4 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NALF,
           ALF, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, Z, IORDER)
       subroutine schk5 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NALF,
           ALF, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, Z, IORDER)
       subroutine schk6 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NALF,
           ALF, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, Z, IORDER)
       subroutine smake (TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, KU, RESET, TRANSL)
       subroutine smvch (TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, INCY, YT, G, YY, EPS,
           ERR, FATAL, NOUT, MV)
       logical function lse (RI, RJ, LR)
       logical function lseres (TYPE, UPLO, M, N, AA, AS, LDA)
       real function sbeg (RESET)
       real function sdiff (X, Y)

Function/Subroutine Documentation

   logical function lse (real, dimension( * ) RI, real, dimension( * ) RJ, integer LR)
   logical function lseres (character*2 TYPE, character*1 UPLO, integer M, integer N, real,
       dimension( lda, * ) AA, real, dimension( lda, * ) AS, integer LDA)
   real function sbeg (logical RESET)
   program sblat2 ()
   subroutine schk1 (character*12 SNAME, real EPS, real THRESH, integer NOUT, integer NTRA,
       logical TRACE, logical REWI, logical FATAL, integer NIDIM, integer, dimension( nidim )
       IDIM, integer NKB, integer, dimension( nkb ) KB, integer NALF, real, dimension( nalf )
       ALF, integer NBET, real, dimension( nbet ) BET, integer NINC, integer, dimension( ninc )
       INC, integer NMAX, integer INCMAX, real, dimension( nmax, nmax ) A, real, dimension(
       nmax*nmax ) AA, real, dimension( nmax*nmax ) AS, real, dimension( nmax ) X, real,
       dimension( nmax*incmax ) XX, real, dimension( nmax*incmax ) XS, real, dimension( nmax ) Y,
       real, dimension( nmax*incmax ) YY, real, dimension( nmax*incmax ) YS, real, dimension(
       nmax ) YT, real, dimension( nmax ) G, integer IORDER)
   subroutine schk2 (character*12 SNAME, real EPS, real THRESH, integer NOUT, integer NTRA,
       logical TRACE, logical REWI, logical FATAL, integer NIDIM, integer, dimension( nidim )
       IDIM, integer NKB, integer, dimension( nkb ) KB, integer NALF, real, dimension( nalf )
       ALF, integer NBET, real, dimension( nbet ) BET, integer NINC, integer, dimension( ninc )
       INC, integer NMAX, integer INCMAX, real, dimension( nmax, nmax ) A, real, dimension(
       nmax*nmax ) AA, real, dimension( nmax*nmax ) AS, real, dimension( nmax ) X, real,
       dimension( nmax*incmax ) XX, real, dimension( nmax*incmax ) XS, real, dimension( nmax ) Y,
       real, dimension( nmax*incmax ) YY, real, dimension( nmax*incmax ) YS, real, dimension(
       nmax ) YT, real, dimension( nmax ) G, integer IORDER)
   subroutine schk3 (character*12 SNAME, real EPS, real THRESH, integer NOUT, integer NTRA,
       logical TRACE, logical REWI, logical FATAL, integer NIDIM, integer, dimension( nidim )
       IDIM, integer NKB, integer, dimension( nkb ) KB, integer NINC, integer, dimension( ninc )
       INC, integer NMAX, integer INCMAX, real, dimension( nmax, nmax ) A, real, dimension(
       nmax*nmax ) AA, real, dimension( nmax*nmax ) AS, real, dimension( nmax ) X, real,
       dimension( nmax*incmax ) XX, real, dimension( nmax*incmax ) XS, real, dimension( nmax )
       XT, real, dimension( nmax ) G, real, dimension( nmax ) Z, integer IORDER)
   subroutine schk4 (character*12 SNAME, real EPS, real THRESH, integer NOUT, integer NTRA,
       logical TRACE, logical REWI, logical FATAL, integer NIDIM, integer, dimension( nidim )
       IDIM, integer NALF, real, dimension( nalf ) ALF, integer NINC, integer, dimension( ninc )
       INC, integer NMAX, integer INCMAX, real, dimension( nmax, nmax ) A, real, dimension(
       nmax*nmax ) AA, real, dimension( nmax*nmax ) AS, real, dimension( nmax ) X, real,
       dimension( nmax*incmax ) XX, real, dimension( nmax*incmax ) XS, real, dimension( nmax ) Y,
       real, dimension( nmax*incmax ) YY, real, dimension( nmax*incmax ) YS, real, dimension(
       nmax ) YT, real, dimension( nmax ) G, real, dimension( nmax ) Z, integer IORDER)
   subroutine schk5 (character*12 SNAME, real EPS, real THRESH, integer NOUT, integer NTRA,
       logical TRACE, logical REWI, logical FATAL, integer NIDIM, integer, dimension( nidim )
       IDIM, integer NALF, real, dimension( nalf ) ALF, integer NINC, integer, dimension( ninc )
       INC, integer NMAX, integer INCMAX, real, dimension( nmax, nmax ) A, real, dimension(
       nmax*nmax ) AA, real, dimension( nmax*nmax ) AS, real, dimension( nmax ) X, real,
       dimension( nmax*incmax ) XX, real, dimension( nmax*incmax ) XS, real, dimension( nmax ) Y,
       real, dimension( nmax*incmax ) YY, real, dimension( nmax*incmax ) YS, real, dimension(
       nmax ) YT, real, dimension( nmax ) G, real, dimension( nmax ) Z, integer IORDER)
   subroutine schk6 (character*12 SNAME, real EPS, real THRESH, integer NOUT, integer NTRA,
       logical TRACE, logical REWI, logical FATAL, integer NIDIM, integer, dimension( nidim )
       IDIM, integer NALF, real, dimension( nalf ) ALF, integer NINC, integer, dimension( ninc )
       INC, integer NMAX, integer INCMAX, real, dimension( nmax, nmax ) A, real, dimension(
       nmax*nmax ) AA, real, dimension( nmax*nmax ) AS, real, dimension( nmax ) X, real,
       dimension( nmax*incmax ) XX, real, dimension( nmax*incmax ) XS, real, dimension( nmax ) Y,
       real, dimension( nmax*incmax ) YY, real, dimension( nmax*incmax ) YS, real, dimension(
       nmax ) YT, real, dimension( nmax ) G, real, dimension( nmax, 2 ) Z, integer IORDER)
   real function sdiff (real X, real Y)
   subroutine smake (character*2 TYPE, character*1 UPLO, character*1 DIAG, integer M, integer N,
       real, dimension( nmax, * ) A, integer NMAX, real, dimension( * ) AA, integer LDA, integer
       KL, integer KU, logical RESET, real TRANSL)
   subroutine smvch (character*1 TRANS, integer M, integer N, real ALPHA, real, dimension( nmax,
       * ) A, integer NMAX, real, dimension( * ) X, integer INCX, real BETA, real, dimension( * )
       Y, integer INCY, real, dimension( * ) YT, real, dimension( * ) G, real, dimension( * ) YY,
       real EPS, real ERR, logical FATAL, integer NOUT, logical MV)

Author

       Generated automatically by Doxygen for LAPACK from the source code.