Functions/Subroutines¶

program DBLAT2
DBLAT2 subroutine DCHK1 (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 DCHK2 (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 DCHK3 (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 DCHK4 (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 DCHK5 (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 DCHK6 (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 DCHKE (isnum, srnamt, nout)
subroutine DMAKE (type, uplo, diag, m, n, a, nmax, aa, lda, kl, ku, reset, transl)
subroutine DMVCH (trans, m, n, alpha, a, nmax, x, incx, beta, y, incy, yt, g, yy, eps, err, fatal, nout, mv)
logical function LDE (ri, rj, lr)
logical function LDERES (type, uplo, m, n, aa, as, lda)
double precision function DBEG (reset)
double precision function DDIFF (x, y)
subroutine CHKXER (srnamt, infot, nout, lerr, ok)
subroutine DREGR1 (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 3120 of file dblat2.f.

double precision function DBEG (logical reset)¶

Definition at line 3058 of file dblat2.f.

program DBLAT2¶

DBLAT2

Purpose:

!>
!> Test program for the DOUBLE PRECISION 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 16 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 34 lines:
!> 'dblat2.out'      NAME OF SUMMARY OUTPUT FILE
!> 6                 UNIT NUMBER OF SUMMARY FILE
!> 'DBLAT2.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 1.0 0.7       VALUES OF ALPHA
!> 3                 NUMBER OF VALUES OF BETA
!> 0.0 1.0 0.9       VALUES OF BETAC
!> DGEMV  T PUT F FOR NO TEST. SAME COLUMNS.
!> DGBMV  T PUT F FOR NO TEST. SAME COLUMNS.
!> DSYMV  T PUT F FOR NO TEST. SAME COLUMNS.
!> DSBMV  T PUT F FOR NO TEST. SAME COLUMNS.
!> DSPMV  T PUT F FOR NO TEST. SAME COLUMNS.
!> DTRMV  T PUT F FOR NO TEST. SAME COLUMNS.
!> DTBMV  T PUT F FOR NO TEST. SAME COLUMNS.
!> DTPMV  T PUT F FOR NO TEST. SAME COLUMNS.
!> DTRSV  T PUT F FOR NO TEST. SAME COLUMNS.
!> DTBSV  T PUT F FOR NO TEST. SAME COLUMNS.
!> DTPSV  T PUT F FOR NO TEST. SAME COLUMNS.
!> DGER   T PUT F FOR NO TEST. SAME COLUMNS.
!> DSYR   T PUT F FOR NO TEST. SAME COLUMNS.
!> DSPR   T PUT F FOR NO TEST. SAME COLUMNS.
!> DSYR2  T PUT F FOR NO TEST. SAME COLUMNS.
!> DSPR2  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 101 of file dblat2.f.

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

Definition at line 427 of file dblat2.f.

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

Definition at line 796 of file dblat2.f.

subroutine DCHK3 (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, double precision, dimension( nmax, nmax ) a, double precision, dimension( nmax*nmax ) aa, double precision, dimension( nmax*nmax ) as, double precision, dimension( nmax ) x, double precision, dimension( nmax*incmax ) xx, double precision, dimension( nmax*incmax ) xs, double precision, dimension( nmax ) xt, double precision, dimension( nmax ) g, double precision, dimension( nmax ) z)¶

Definition at line 1139 of file dblat2.f.

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

Definition at line 1496 of file dblat2.f.

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

Definition at line 1757 of file dblat2.f.

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

Definition at line 2035 of file dblat2.f.

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

Definition at line 2350 of file dblat2.f.

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

Definition at line 3104 of file dblat2.f.

subroutine DMAKE (character*2 type, character*1 uplo, character*1 diag, integer m, integer n, double precision, dimension( nmax, * ) a, integer nmax, double precision, dimension( * ) aa, integer lda, integer kl, integer ku, logical reset, double precision transl)¶

Definition at line 2676 of file dblat2.f.

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

Definition at line 2852 of file dblat2.f.

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

Definition at line 3148 of file dblat2.f.

logical function LDE (double precision, dimension( * ) ri, double precision, dimension( * ) rj, integer lr)¶

Definition at line 2969 of file dblat2.f.

logical function LDERES (character*2 type, character*1 uplo, integer m, integer n, double precision, dimension( lda, * ) aa, double precision, dimension( lda, * ) as, integer lda)¶

Definition at line 2999 of file dblat2.f.

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

Definition at line 3181 of file dblat2.f.