mirror of
https://gitlab.com/libeigen/eigen.git
synced 2026-04-10 11:34:33 +08:00
Update BLAS API unit tests
This commit is contained in:
Gael Guennebaud
@@ -1,75 +1,121 @@
|
||||
*> \brief \b DBLAT2
|
||||
*
|
||||
* =========== DOCUMENTATION ===========
|
||||
*
|
||||
* Online html documentation available at
|
||||
* http://www.netlib.org/lapack/explore-html/
|
||||
*
|
||||
* Definition:
|
||||
* ===========
|
||||
*
|
||||
* PROGRAM DBLAT2
|
||||
*
|
||||
*
|
||||
*> \par Purpose:
|
||||
* =============
|
||||
*>
|
||||
*> \verbatim
|
||||
*>
|
||||
*> 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)
|
||||
*> \endverbatim
|
||||
*
|
||||
* Authors:
|
||||
* ========
|
||||
*
|
||||
*> \author Univ. of Tennessee
|
||||
*> \author Univ. of California Berkeley
|
||||
*> \author Univ. of Colorado Denver
|
||||
*> \author NAG Ltd.
|
||||
*
|
||||
*> \date April 2012
|
||||
*
|
||||
*> \ingroup double_blas_testing
|
||||
*
|
||||
* =====================================================================
|
||||
PROGRAM DBLAT2
|
||||
*
|
||||
* Test program for the DOUBLE PRECISION Level 2 Blas.
|
||||
* -- Reference BLAS test routine (version 3.4.1) --
|
||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||
* April 2012
|
||||
*
|
||||
* 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.SUMM' 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 BETA
|
||||
* 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.
|
||||
*
|
||||
* 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.
|
||||
* =====================================================================
|
||||
*
|
||||
* .. Parameters ..
|
||||
INTEGER NIN
|
||||
PARAMETER ( NIN = 5 )
|
||||
INTEGER NSUBS
|
||||
PARAMETER ( NSUBS = 16 )
|
||||
DOUBLE PRECISION ZERO, HALF, ONE
|
||||
PARAMETER ( ZERO = 0.0D0, HALF = 0.5D0, ONE = 1.0D0 )
|
||||
DOUBLE PRECISION ZERO, ONE
|
||||
PARAMETER ( ZERO = 0.0D0, ONE = 1.0D0 )
|
||||
INTEGER NMAX, INCMAX
|
||||
PARAMETER ( NMAX = 65, INCMAX = 2 )
|
||||
INTEGER NINMAX, NIDMAX, NKBMAX, NALMAX, NBEMAX
|
||||
@@ -121,7 +167,7 @@
|
||||
*
|
||||
READ( NIN, FMT = * )SUMMRY
|
||||
READ( NIN, FMT = * )NOUT
|
||||
OPEN( NOUT, FILE = SUMMRY, STATUS = 'NEW' )
|
||||
OPEN( NOUT, FILE = SUMMRY, STATUS = 'UNKNOWN' )
|
||||
NOUTC = NOUT
|
||||
*
|
||||
* Read name and unit number for snapshot output file and open file.
|
||||
@@ -130,7 +176,7 @@
|
||||
READ( NIN, FMT = * )NTRA
|
||||
TRACE = NTRA.GE.0
|
||||
IF( TRACE )THEN
|
||||
OPEN( NTRA, FILE = SNAPS, STATUS = 'NEW' )
|
||||
OPEN( NTRA, FILE = SNAPS, STATUS = 'UNKNOWN' )
|
||||
END IF
|
||||
* Read the flag that directs rewinding of the snapshot file.
|
||||
READ( NIN, FMT = * )REWI
|
||||
@@ -235,14 +281,7 @@
|
||||
*
|
||||
* Compute EPS (the machine precision).
|
||||
*
|
||||
EPS = ONE
|
||||
90 CONTINUE
|
||||
IF( DDIFF( ONE + EPS, ONE ).EQ.ZERO )
|
||||
$ GO TO 100
|
||||
EPS = HALF*EPS
|
||||
GO TO 90
|
||||
100 CONTINUE
|
||||
EPS = EPS + EPS
|
||||
EPS = EPSILON(ZERO)
|
||||
WRITE( NOUT, FMT = 9998 )EPS
|
||||
*
|
||||
* Check the reliability of DMVCH using exact data.
|
||||
@@ -2982,7 +3021,6 @@
|
||||
50 CONTINUE
|
||||
END IF
|
||||
*
|
||||
60 CONTINUE
|
||||
LDERES = .TRUE.
|
||||
GO TO 80
|
||||
70 CONTINUE
|
||||
|
||||
Reference in New Issue
Block a user