Functions/Subroutines¶

program ZBLAT2
ZBLAT2 subroutine ZCHK1 (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 ZCHK2 (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 ZCHK3 (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 ZCHK4 (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 ZCHK5 (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 ZCHK6 (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 ZCHKE (isnum, srnamt, nout)
subroutine ZMAKE (type, uplo, diag, m, n, a, nmax, aa, lda, kl, ku, reset, transl)
subroutine ZMVCH (trans, m, n, alpha, a, nmax, x, incx, beta, y, incy, yt, g, yy, 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 ZREGR1 (trans, m, n, ly, kl, ku, alpha, a, lda, x, incx, beta, y, incy, ys)
subroutine XERBLA (srname, info)

subroutine CHKXER (character*6 srnamt, integer infot, integer nout, logical lerr, logical ok)¶

Definition at line 3231 of file zblat2.f.

double precision function DDIFF (double precision x, double precision y)¶

Definition at line 3215 of file zblat2.f.

logical function LZE (complex*16, dimension( * ) ri, complex*16, dimension( * ) rj, integer lr)¶

Definition at line 3074 of file zblat2.f.

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)¶

Definition at line 3104 of file zblat2.f.

subroutine XERBLA (character*6 srname, integer info)¶

Definition at line 3292 of file zblat2.f.

complex*16 function ZBEG (logical reset)¶

Definition at line 3163 of file zblat2.f.

program ZBLAT2¶

ZBLAT2

Purpose:

!>
!> Test program for the COMPLEX*16       Level 2 Blas.
!>
!> The program must be driven by a short data file. The first 18 records
!> of the file are read using list-directed input, the last 17 records
!> are read using the format ( A6, L2 ). An annotated example of a data
!> file can be obtained by deleting the first 3 characters from the
!> following 35 lines:
!> 'zblat2.out'      NAME OF SUMMARY OUTPUT FILE
!> 6                 UNIT NUMBER OF SUMMARY FILE
!> 'CBLA2T.SNAP'     NAME OF SNAPSHOT OUTPUT FILE
!> -1                UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
!> F        LOGICAL FLAG, T TO REWIND SNAPSHOT FILE AFTER EACH RECORD.
!> F        LOGICAL FLAG, T TO STOP ON FAILURES.
!> T        LOGICAL FLAG, T TO TEST ERROR EXITS.
!> 16.0     THRESHOLD VALUE OF TEST RATIO
!> 6                 NUMBER OF VALUES OF N
!> 0 1 2 3 5 9       VALUES OF N
!> 4                 NUMBER OF VALUES OF K
!> 0 1 2 4           VALUES OF K
!> 4                 NUMBER OF VALUES OF INCX AND INCY
!> 1 2 -1 -2         VALUES OF INCX AND INCY
!> 3                 NUMBER OF VALUES OF ALPHA
!> (0.0,0.0) (1.0,0.0) (0.7,-0.9)       VALUES OF ALPHA
!> 3                 NUMBER OF VALUES OF BETA
!> (0.0,0.0) (1.0,0.0) (1.3,-1.1)       VALUES OF BETA
!> ZGEMV  T PUT F FOR NO TEST. SAME COLUMNS.
!> ZGBMV  T PUT F FOR NO TEST. SAME COLUMNS.
!> ZHEMV  T PUT F FOR NO TEST. SAME COLUMNS.
!> ZHBMV  T PUT F FOR NO TEST. SAME COLUMNS.
!> ZHPMV  T PUT F FOR NO TEST. SAME COLUMNS.
!> ZTRMV  T PUT F FOR NO TEST. SAME COLUMNS.
!> ZTBMV  T PUT F FOR NO TEST. SAME COLUMNS.
!> ZTPMV  T PUT F FOR NO TEST. SAME COLUMNS.
!> ZTRSV  T PUT F FOR NO TEST. SAME COLUMNS.
!> ZTBSV  T PUT F FOR NO TEST. SAME COLUMNS.
!> ZTPSV  T PUT F FOR NO TEST. SAME COLUMNS.
!> ZGERC  T PUT F FOR NO TEST. SAME COLUMNS.
!> ZGERU  T PUT F FOR NO TEST. SAME COLUMNS.
!> ZHER   T PUT F FOR NO TEST. SAME COLUMNS.
!> ZHPR   T PUT F FOR NO TEST. SAME COLUMNS.
!> ZHER2  T PUT F FOR NO TEST. SAME COLUMNS.
!> ZHPR2  T PUT F FOR NO TEST. SAME COLUMNS.
!>
!> Further Details
!> ===============
!>
!>    See:
!>
!>       Dongarra J. J., Du Croz J. J., Hammarling S.  and Hanson R. J..
!>       An  extended  set of Fortran  Basic Linear Algebra Subprograms.
!>
!>       Technical  Memoranda  Nos. 41 (revision 3) and 81,  Mathematics
!>       and  Computer Science  Division,  Argonne  National Laboratory,
!>       9700 South Cass Avenue, Argonne, Illinois 60439, US.
!>
!>       Or
!>
!>       NAG  Technical Reports TR3/87 and TR4/87,  Numerical Algorithms
!>       Group  Ltd.,  NAG  Central  Office,  256  Banbury  Road, Oxford
!>       OX2 7DE, UK,  and  Numerical Algorithms Group Inc.,  1101  31st
!>       Street,  Suite 100,  Downers Grove,  Illinois 60515-1263,  USA.
!>
!>
!> -- Written on 10-August-1987.
!>    Richard Hanson, Sandia National Labs.
!>    Jeremy Du Croz, NAG Central Office.
!>
!>    10-9-00:  Change STATUS='NEW' to 'UNKNOWN' so that the testers
!>              can be run multiple times without deleting generated
!>              output files (susan)
!> 

Author

Definition at line 102 of file zblat2.f.

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 nkb, integer, dimension( nkb ) kb, integer nalf, complex*16, dimension( nalf ) alf, integer nbet, complex*16, dimension( nbet ) bet, integer ninc, integer, dimension( ninc ) inc, integer nmax, integer incmax, complex*16, dimension( nmax, nmax ) a, complex*16, dimension( nmax*nmax ) aa, complex*16, dimension( nmax*nmax ) as, complex*16, dimension( nmax ) x, complex*16, dimension( nmax*incmax ) xx, complex*16, dimension( nmax*incmax ) xs, complex*16, dimension( nmax ) y, complex*16, dimension( nmax*incmax ) yy, complex*16, dimension( nmax*incmax ) ys, complex*16, dimension( nmax ) yt, double precision, dimension( nmax ) g)¶

Definition at line 435 of file zblat2.f.

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 nkb, integer, dimension( nkb ) kb, integer nalf, complex*16, dimension( nalf ) alf, integer nbet, complex*16, dimension( nbet ) bet, integer ninc, integer, dimension( ninc ) inc, integer nmax, integer incmax, complex*16, dimension( nmax, nmax ) a, complex*16, dimension( nmax*nmax ) aa, complex*16, dimension( nmax*nmax ) as, complex*16, dimension( nmax ) x, complex*16, dimension( nmax*incmax ) xx, complex*16, dimension( nmax*incmax ) xs, complex*16, dimension( nmax ) y, complex*16, dimension( nmax*incmax ) yy, complex*16, dimension( nmax*incmax ) ys, complex*16, dimension( nmax ) yt, double precision, dimension( nmax ) g)¶

Definition at line 809 of file zblat2.f.

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 nkb, integer, dimension( nkb ) kb, integer ninc, integer, dimension( ninc ) inc, integer nmax, integer incmax, complex*16, dimension( nmax, nmax ) a, complex*16, dimension( nmax*nmax ) aa, complex*16, dimension( nmax*nmax ) as, complex*16, dimension( nmax ) x, complex*16, dimension( nmax*incmax ) xx, complex*16, dimension( nmax*incmax ) xs, complex*16, dimension( nmax ) xt, double precision, dimension( nmax ) g, complex*16, dimension( nmax ) z)¶

Definition at line 1158 of file zblat2.f.

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 ninc, integer, dimension( ninc ) inc, integer nmax, integer incmax, complex*16, dimension( nmax, nmax ) a, complex*16, dimension( nmax*nmax ) aa, complex*16, dimension( nmax*nmax ) as, complex*16, dimension( nmax ) x, complex*16, dimension( nmax*incmax ) xx, complex*16, dimension( nmax*incmax ) xs, complex*16, dimension( nmax ) y, complex*16, dimension( nmax*incmax ) yy, complex*16, dimension( nmax*incmax ) ys, complex*16, dimension( nmax ) yt, double precision, dimension( nmax ) g, complex*16, dimension( nmax ) z)¶

Definition at line 1520 of file zblat2.f.

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 ninc, integer, dimension( ninc ) inc, integer nmax, integer incmax, complex*16, dimension( nmax, nmax ) a, complex*16, dimension( nmax*nmax ) aa, complex*16, dimension( nmax*nmax ) as, complex*16, dimension( nmax ) x, complex*16, dimension( nmax*incmax ) xx, complex*16, dimension( nmax*incmax ) xs, complex*16, dimension( nmax ) y, complex*16, dimension( nmax*incmax ) yy, complex*16, dimension( nmax*incmax ) ys, complex*16, dimension( nmax ) yt, double precision, dimension( nmax ) g, complex*16, dimension( nmax ) z)¶

Definition at line 1798 of file zblat2.f.

subroutine ZCHK6 (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 ninc, integer, dimension( ninc ) inc, integer nmax, integer incmax, complex*16, dimension( nmax, nmax ) a, complex*16, dimension( nmax*nmax ) aa, complex*16, dimension( nmax*nmax ) as, complex*16, dimension( nmax ) x, complex*16, dimension( nmax*incmax ) xx, complex*16, dimension( nmax*incmax ) xs, complex*16, dimension( nmax ) y, complex*16, dimension( nmax*incmax ) yy, complex*16, dimension( nmax*incmax ) ys, complex*16, dimension( nmax ) yt, double precision, dimension( nmax ) g, complex*16, dimension( nmax, 2 ) z)¶

Definition at line 2083 of file zblat2.f.

subroutine ZCHKE (integer isnum, character*6 srnamt, integer nout)¶

Definition at line 2406 of file zblat2.f.

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, integer kl, integer ku, logical reset, complex*16 transl)¶

Definition at line 2749 of file zblat2.f.

subroutine ZMVCH (character*1 trans, integer m, integer n, complex*16 alpha, complex*16, dimension( nmax, * ) a, integer nmax, complex*16, dimension( * ) x, integer incx, complex*16 beta, complex*16, dimension( * ) y, integer incy, complex*16, dimension( * ) yt, double precision, dimension( * ) g, complex*16, dimension( * ) yy, double precision eps, double precision err, logical fatal, integer nout, logical mv)¶

Definition at line 2942 of file zblat2.f.

subroutine ZREGR1 (character*1 trans, integer m, integer n, integer ly, integer kl, integer ku, complex*16 alpha, complex*16, dimension(lda,*) a, integer lda, complex*16, dimension(*) x, integer incx, complex*16 beta, complex*16, dimension(*) y, integer incy, complex*16, dimension(*) ys)¶

Definition at line 3259 of file zblat2.f.