--- name: "dblat2.f" section: "3" platform: "linux" package: "lapack-doc" version: "3.12.1-2" release: "Arch Linux 2026-11-01" platforms: ["linux"] url: "https://new.carta.tech/dblat2.f" --- # dblat2.f(3) ## NAME BLAS/TESTING/dblat2.f ## SYNOPSIS ### 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)\ ## Function/Subroutine Documentation ### 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** Univ. of Tennessee Univ. of California Berkeley Univ. of Colorado Denver NAG Ltd. 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**. ## Author Generated automatically by Doxygen for LAPACK from the source code.