NAME

       sblat2.f -

SYNOPSIS

   Functions/Subroutines
       program sblat2
           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)
       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)
       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)
       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)
       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)
       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)
       subroutine schke (ISNUM, SRNAMT, NOUT)
       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)
       subroutine chkxer (SRNAMT, INFOT, NOUT, LERR, OK)
       subroutine xerbla (SRNAME, INFO)

Function/Subroutine Documentation

   subroutine chkxer (character*6 SRNAMT, integer INFOT, integer NOUT, logical LERR, logical OK)
   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)
   subroutine schk1 (character*6 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)
   subroutine schk2 (character*6 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)
   subroutine schk3 (character*6 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)
   subroutine schk4 (character*6 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)
   subroutine schk5 (character*6 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)
   subroutine schk6 (character*6 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)
   subroutine schke (integer ISNUM, character*6 SRNAMT, integer NOUT)
   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)
   subroutine xerbla (character*6 SRNAME, integer INFO)

Author

       Generated automatically by Doxygen for LAPACK from the source code.