.TH "BLAS/TESTING/dblat2.f" 3 "Version 3.12.0" "LAPACK" \" -*- nroff -*- .ad l .nh .SH NAME BLAS/TESTING/dblat2.f .SH SYNOPSIS .br .PP .SS "Functions/Subroutines" .in +1c .ti -1c .RI "program \fBdblat2\fP" .br .RI "\fBDBLAT2\fP " .ti -1c .RI "subroutine \fBdchk1\fP (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)" .br .ti -1c .RI "subroutine \fBdchk2\fP (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)" .br .ti -1c .RI "subroutine \fBdchk3\fP (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)" .br .ti -1c .RI "subroutine \fBdchk4\fP (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)" .br .ti -1c .RI "subroutine \fBdchk5\fP (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)" .br .ti -1c .RI "subroutine \fBdchk6\fP (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)" .br .ti -1c .RI "subroutine \fBdchke\fP (isnum, srnamt, nout)" .br .ti -1c .RI "subroutine \fBdmake\fP (type, uplo, diag, m, n, a, nmax, aa, lda, kl, ku, reset, transl)" .br .ti -1c .RI "subroutine \fBdmvch\fP (trans, m, n, alpha, a, nmax, x, incx, beta, y, incy, yt, g, yy, eps, err, fatal, nout, mv)" .br .ti -1c .RI "logical function \fBlde\fP (ri, rj, lr)" .br .ti -1c .RI "logical function \fBlderes\fP (type, uplo, m, n, aa, as, lda)" .br .ti -1c .RI "double precision function \fBdbeg\fP (reset)" .br .ti -1c .RI "double precision function \fBddiff\fP (x, y)" .br .ti -1c .RI "subroutine \fBchkxer\fP (srnamt, infot, nout, lerr, ok)" .br .ti -1c .RI "subroutine \fBdregr1\fP (trans, m, n, ly, kl, ku, alpha, a, lda, x, incx, beta, y, incy, ys)" .br .ti -1c .RI "subroutine \fBxerbla\fP (srname, info)" .br .in -1c .SH "Function/Subroutine Documentation" .PP .SS "subroutine chkxer (character*6 srnamt, integer infot, integer nout, logical lerr, logical ok)" .PP Definition at line \fB3120\fP of file \fBdblat2\&.f\fP\&. .SS "double precision function dbeg (logical reset)" .PP Definition at line \fB3058\fP of file \fBdblat2\&.f\fP\&. .SS "program dblat2" .PP \fBDBLAT2\fP .PP \fBPurpose:\fP .RS 4 .PP .nf 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) .fi .PP .RE .PP \fBAuthor\fP .RS 4 Univ\&. of Tennessee .PP Univ\&. of California Berkeley .PP Univ\&. of Colorado Denver .PP NAG Ltd\&. .RE .PP .PP Definition at line \fB101\fP of file \fBdblat2\&.f\fP\&. .SS "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)" .PP Definition at line \fB427\fP of file \fBdblat2\&.f\fP\&. .SS "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)" .PP Definition at line \fB796\fP of file \fBdblat2\&.f\fP\&. .SS "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)" .PP Definition at line \fB1139\fP of file \fBdblat2\&.f\fP\&. .SS "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)" .PP Definition at line \fB1496\fP of file \fBdblat2\&.f\fP\&. .SS "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)" .PP Definition at line \fB1757\fP of file \fBdblat2\&.f\fP\&. .SS "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)" .PP Definition at line \fB2035\fP of file \fBdblat2\&.f\fP\&. .SS "subroutine dchke (integer isnum, character*6 srnamt, integer nout)" .PP Definition at line \fB2350\fP of file \fBdblat2\&.f\fP\&. .SS "double precision function ddiff (double precision x, double precision y)" .PP Definition at line \fB3104\fP of file \fBdblat2\&.f\fP\&. .SS "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)" .PP Definition at line \fB2676\fP of file \fBdblat2\&.f\fP\&. .SS "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)" .PP Definition at line \fB2852\fP of file \fBdblat2\&.f\fP\&. .SS "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)" .PP Definition at line \fB3148\fP of file \fBdblat2\&.f\fP\&. .SS "logical function lde (double precision, dimension( * ) ri, double precision, dimension( * ) rj, integer lr)" .PP Definition at line \fB2969\fP of file \fBdblat2\&.f\fP\&. .SS "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)" .PP Definition at line \fB2999\fP of file \fBdblat2\&.f\fP\&. .SS "subroutine xerbla (character*6 srname, integer info)" .PP Definition at line \fB3181\fP of file \fBdblat2\&.f\fP\&. .SH "Author" .PP Generated automatically by Doxygen for LAPACK from the source code\&.