NAME

       zblat3.f -

SYNOPSIS

   Functions/Subroutines
       program zblat3
           ZBLAT3
       subroutine zchk1 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NALF,
           ALF, NBET, BET, NMAX, A, AA, AS, B, BB, BS, C, CC, CS, CT, G)
       subroutine zchk2 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NALF,
           ALF, NBET, BET, NMAX, A, AA, AS, B, BB, BS, C, CC, CS, CT, G)
       subroutine zchk3 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NALF,
           ALF, NMAX, A, AA, AS, B, BB, BS, CT, G, C)
       subroutine zchk4 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NALF,
           ALF, NBET, BET, NMAX, A, AA, AS, B, BB, BS, C, CC, CS, CT, G)
       subroutine zchk5 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NALF,
           ALF, NBET, BET, NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W)
       subroutine zchke (ISNUM, SRNAMT, NOUT)
       subroutine zmake (TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, TRANSL)
       subroutine zmmch (TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB, BETA, C, LDC, CT, G,
           CC, LDCC, EPS, ERR, FATAL, NOUT, MV)
       logical function lze (RI, RJ, LR)
       logical function lzeres (TYPE, UPLO, M, N, AA, AS, LDA)
       complex *16 function zbeg (RESET)
       double precision function ddiff (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)
   double precision function ddiff (double precision X, double precision Y)
   logical function lze (complex*16, dimension( * ) RI, complex*16, dimension( * ) RJ, integer
       LR)
   logical function lzeres (character*2 TYPE, character*1 UPLO, integer M, integer N, complex*16,
       dimension( lda, * ) AA, complex*16, dimension( lda, * ) AS, integer LDA)
   subroutine xerbla (character*6 SRNAME, integer INFO)
   complex*16 function zbeg (logical RESET)
   subroutine zchk1 (character*6 SNAME, double precision EPS, double precision THRESH, integer
       NOUT, integer NTRA, logical TRACE, logical REWI, logical FATAL, integer NIDIM, integer,
       dimension( nidim ) IDIM, integer NALF, complex*16, dimension( nalf ) ALF, integer NBET,
       complex*16, dimension( nbet ) BET, integer NMAX, complex*16, dimension( nmax, nmax ) A,
       complex*16, dimension( nmax*nmax ) AA, complex*16, dimension( nmax*nmax ) AS, complex*16,
       dimension( nmax, nmax ) B, complex*16, dimension( nmax*nmax ) BB, complex*16, dimension(
       nmax*nmax ) BS, complex*16, dimension( nmax, nmax ) C, complex*16, dimension( nmax*nmax )
       CC, complex*16, dimension( nmax*nmax ) CS, complex*16, dimension( nmax ) CT, double
       precision, dimension( nmax ) G)
   subroutine zchk2 (character*6 SNAME, double precision EPS, double precision THRESH, integer
       NOUT, integer NTRA, logical TRACE, logical REWI, logical FATAL, integer NIDIM, integer,
       dimension( nidim ) IDIM, integer NALF, complex*16, dimension( nalf ) ALF, integer NBET,
       complex*16, dimension( nbet ) BET, integer NMAX, complex*16, dimension( nmax, nmax ) A,
       complex*16, dimension( nmax*nmax ) AA, complex*16, dimension( nmax*nmax ) AS, complex*16,
       dimension( nmax, nmax ) B, complex*16, dimension( nmax*nmax ) BB, complex*16, dimension(
       nmax*nmax ) BS, complex*16, dimension( nmax, nmax ) C, complex*16, dimension( nmax*nmax )
       CC, complex*16, dimension( nmax*nmax ) CS, complex*16, dimension( nmax ) CT, double
       precision, dimension( nmax ) G)
   subroutine zchk3 (character*6 SNAME, double precision EPS, double precision THRESH, integer
       NOUT, integer NTRA, logical TRACE, logical REWI, logical FATAL, integer NIDIM, integer,
       dimension( nidim ) IDIM, integer NALF, complex*16, dimension( nalf ) ALF, integer NMAX,
       complex*16, dimension( nmax, nmax ) A, complex*16, dimension( nmax*nmax ) AA, complex*16,
       dimension( nmax*nmax ) AS, complex*16, dimension( nmax, nmax ) B, complex*16, dimension(
       nmax*nmax ) BB, complex*16, dimension( nmax*nmax ) BS, complex*16, dimension( nmax ) CT,
       double precision, dimension( nmax ) G, complex*16, dimension( nmax, nmax ) C)
   subroutine zchk4 (character*6 SNAME, double precision EPS, double precision THRESH, integer
       NOUT, integer NTRA, logical TRACE, logical REWI, logical FATAL, integer NIDIM, integer,
       dimension( nidim ) IDIM, integer NALF, complex*16, dimension( nalf ) ALF, integer NBET,
       complex*16, dimension( nbet ) BET, integer NMAX, complex*16, dimension( nmax, nmax ) A,
       complex*16, dimension( nmax*nmax ) AA, complex*16, dimension( nmax*nmax ) AS, complex*16,
       dimension( nmax, nmax ) B, complex*16, dimension( nmax*nmax ) BB, complex*16, dimension(
       nmax*nmax ) BS, complex*16, dimension( nmax, nmax ) C, complex*16, dimension( nmax*nmax )
       CC, complex*16, dimension( nmax*nmax ) CS, complex*16, dimension( nmax ) CT, double
       precision, dimension( nmax ) G)
   subroutine zchk5 (character*6 SNAME, double precision EPS, double precision THRESH, integer
       NOUT, integer NTRA, logical TRACE, logical REWI, logical FATAL, integer NIDIM, integer,
       dimension( nidim ) IDIM, integer NALF, complex*16, dimension( nalf ) ALF, integer NBET,
       complex*16, dimension( nbet ) BET, integer NMAX, complex*16, dimension( 2*nmax*nmax ) AB,
       complex*16, dimension( nmax*nmax ) AA, complex*16, dimension( nmax*nmax ) AS, complex*16,
       dimension( nmax*nmax ) BB, complex*16, dimension( nmax*nmax ) BS, complex*16, dimension(
       nmax, nmax ) C, complex*16, dimension( nmax*nmax ) CC, complex*16, dimension( nmax*nmax )
       CS, complex*16, dimension( nmax ) CT, double precision, dimension( nmax ) G, complex*16,
       dimension( 2*nmax ) W)
   subroutine zchke (integer ISNUM, character*6 SRNAMT, integer NOUT)
   subroutine zmake (character*2 TYPE, character*1 UPLO, character*1 DIAG, integer M, integer N,
       complex*16, dimension( nmax, * ) A, integer NMAX, complex*16, dimension( * ) AA, integer
       LDA, logical RESET, complex*16 TRANSL)
   subroutine zmmch (character*1 TRANSA, character*1 TRANSB, integer M, integer N, integer KK,
       complex*16 ALPHA, complex*16, dimension( lda, * ) A, integer LDA, complex*16, dimension(
       ldb, * ) B, integer LDB, complex*16 BETA, complex*16, dimension( ldc, * ) C, integer LDC,
       complex*16, dimension( * ) CT, double precision, dimension( * ) G, complex*16, dimension(
       ldcc, * ) CC, integer LDCC, double precision EPS, double precision ERR, logical FATAL,
       integer NOUT, logical MV)

Author

       Generated automatically by Doxygen for LAPACK from the source code.