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,7 +1,49 @@
|
||||
*> \brief \b CBLAT1
|
||||
*
|
||||
* =========== DOCUMENTATION ===========
|
||||
*
|
||||
* Online html documentation available at
|
||||
* http://www.netlib.org/lapack/explore-html/
|
||||
*
|
||||
* Definition:
|
||||
* ===========
|
||||
*
|
||||
* PROGRAM CBLAT1
|
||||
*
|
||||
*
|
||||
*> \par Purpose:
|
||||
* =============
|
||||
*>
|
||||
*> \verbatim
|
||||
*>
|
||||
*> Test program for the COMPLEX Level 1 BLAS.
|
||||
*> Based upon the original BLAS test routine together with:
|
||||
*>
|
||||
*> F06GAF Example Program Text
|
||||
*> \endverbatim
|
||||
*
|
||||
* Authors:
|
||||
* ========
|
||||
*
|
||||
*> \author Univ. of Tennessee
|
||||
*> \author Univ. of California Berkeley
|
||||
*> \author Univ. of Colorado Denver
|
||||
*> \author NAG Ltd.
|
||||
*
|
||||
*> \date April 2012
|
||||
*
|
||||
*> \ingroup complex_blas_testing
|
||||
*
|
||||
* =====================================================================
|
||||
PROGRAM CBLAT1
|
||||
* Test program for the COMPLEX Level 1 BLAS.
|
||||
* Based upon the original BLAS test routine together with:
|
||||
* F06GAF Example Program Text
|
||||
*
|
||||
* -- 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
|
||||
*
|
||||
* =====================================================================
|
||||
*
|
||||
* .. Parameters ..
|
||||
INTEGER NOUT
|
||||
PARAMETER (NOUT=6)
|
||||
@@ -114,8 +156,8 @@
|
||||
+ (5.0E0,6.0E0), (5.0E0,6.0E0), (0.1E0,0.1E0),
|
||||
+ (-0.6E0,0.1E0), (0.1E0,-0.3E0), (7.0E0,8.0E0),
|
||||
+ (7.0E0,8.0E0), (7.0E0,8.0E0), (7.0E0,8.0E0),
|
||||
+ (7.0E0,8.0E0), (0.3E0,0.1E0), (0.1E0,0.4E0),
|
||||
+ (0.4E0,0.1E0), (0.1E0,0.2E0), (2.0E0,3.0E0),
|
||||
+ (7.0E0,8.0E0), (0.3E0,0.1E0), (0.5E0,0.0E0),
|
||||
+ (0.0E0,0.5E0), (0.0E0,0.2E0), (2.0E0,3.0E0),
|
||||
+ (2.0E0,3.0E0), (2.0E0,3.0E0), (2.0E0,3.0E0)/
|
||||
DATA ((CV(I,J,2),I=1,8),J=1,5)/(0.1E0,0.1E0),
|
||||
+ (4.0E0,5.0E0), (4.0E0,5.0E0), (4.0E0,5.0E0),
|
||||
@@ -129,10 +171,10 @@
|
||||
+ (3.0E0,6.0E0), (-0.6E0,0.1E0), (4.0E0,7.0E0),
|
||||
+ (0.1E0,-0.3E0), (7.0E0,2.0E0), (7.0E0,2.0E0),
|
||||
+ (7.0E0,2.0E0), (0.3E0,0.1E0), (5.0E0,8.0E0),
|
||||
+ (0.1E0,0.4E0), (6.0E0,9.0E0), (0.4E0,0.1E0),
|
||||
+ (8.0E0,3.0E0), (0.1E0,0.2E0), (9.0E0,4.0E0)/
|
||||
DATA STRUE2/0.0E0, 0.5E0, 0.6E0, 0.7E0, 0.7E0/
|
||||
DATA STRUE4/0.0E0, 0.7E0, 1.0E0, 1.3E0, 1.7E0/
|
||||
+ (0.5E0,0.0E0), (6.0E0,9.0E0), (0.0E0,0.5E0),
|
||||
+ (8.0E0,3.0E0), (0.0E0,0.2E0), (9.0E0,4.0E0)/
|
||||
DATA STRUE2/0.0E0, 0.5E0, 0.6E0, 0.7E0, 0.8E0/
|
||||
DATA STRUE4/0.0E0, 0.7E0, 1.0E0, 1.3E0, 1.6E0/
|
||||
DATA ((CTRUE5(I,J,1),I=1,8),J=1,5)/(0.1E0,0.1E0),
|
||||
+ (1.0E0,2.0E0), (1.0E0,2.0E0), (1.0E0,2.0E0),
|
||||
+ (1.0E0,2.0E0), (1.0E0,2.0E0), (1.0E0,2.0E0),
|
||||
@@ -145,8 +187,8 @@
|
||||
+ (0.11E0,-0.03E0), (-0.17E0,0.46E0),
|
||||
+ (-0.17E0,-0.19E0), (7.0E0,8.0E0), (7.0E0,8.0E0),
|
||||
+ (7.0E0,8.0E0), (7.0E0,8.0E0), (7.0E0,8.0E0),
|
||||
+ (0.19E0,-0.17E0), (0.32E0,0.09E0),
|
||||
+ (0.23E0,-0.24E0), (0.18E0,0.01E0),
|
||||
+ (0.19E0,-0.17E0), (0.20E0,-0.35E0),
|
||||
+ (0.35E0,0.20E0), (0.14E0,0.08E0),
|
||||
+ (2.0E0,3.0E0), (2.0E0,3.0E0), (2.0E0,3.0E0),
|
||||
+ (2.0E0,3.0E0)/
|
||||
DATA ((CTRUE5(I,J,2),I=1,8),J=1,5)/(0.1E0,0.1E0),
|
||||
@@ -162,9 +204,9 @@
|
||||
+ (-0.17E0,0.46E0), (4.0E0,7.0E0),
|
||||
+ (-0.17E0,-0.19E0), (7.0E0,2.0E0), (7.0E0,2.0E0),
|
||||
+ (7.0E0,2.0E0), (0.19E0,-0.17E0), (5.0E0,8.0E0),
|
||||
+ (0.32E0,0.09E0), (6.0E0,9.0E0),
|
||||
+ (0.23E0,-0.24E0), (8.0E0,3.0E0),
|
||||
+ (0.18E0,0.01E0), (9.0E0,4.0E0)/
|
||||
+ (0.20E0,-0.35E0), (6.0E0,9.0E0),
|
||||
+ (0.35E0,0.20E0), (8.0E0,3.0E0),
|
||||
+ (0.14E0,0.08E0), (9.0E0,4.0E0)/
|
||||
DATA ((CTRUE6(I,J,1),I=1,8),J=1,5)/(0.1E0,0.1E0),
|
||||
+ (1.0E0,2.0E0), (1.0E0,2.0E0), (1.0E0,2.0E0),
|
||||
+ (1.0E0,2.0E0), (1.0E0,2.0E0), (1.0E0,2.0E0),
|
||||
@@ -177,8 +219,8 @@
|
||||
+ (0.03E0,0.03E0), (-0.18E0,0.03E0),
|
||||
+ (0.03E0,-0.09E0), (7.0E0,8.0E0), (7.0E0,8.0E0),
|
||||
+ (7.0E0,8.0E0), (7.0E0,8.0E0), (7.0E0,8.0E0),
|
||||
+ (0.09E0,0.03E0), (0.03E0,0.12E0),
|
||||
+ (0.12E0,0.03E0), (0.03E0,0.06E0), (2.0E0,3.0E0),
|
||||
+ (0.09E0,0.03E0), (0.15E0,0.00E0),
|
||||
+ (0.00E0,0.15E0), (0.00E0,0.06E0), (2.0E0,3.0E0),
|
||||
+ (2.0E0,3.0E0), (2.0E0,3.0E0), (2.0E0,3.0E0)/
|
||||
DATA ((CTRUE6(I,J,2),I=1,8),J=1,5)/(0.1E0,0.1E0),
|
||||
+ (4.0E0,5.0E0), (4.0E0,5.0E0), (4.0E0,5.0E0),
|
||||
@@ -193,8 +235,8 @@
|
||||
+ (-0.18E0,0.03E0), (4.0E0,7.0E0),
|
||||
+ (0.03E0,-0.09E0), (7.0E0,2.0E0), (7.0E0,2.0E0),
|
||||
+ (7.0E0,2.0E0), (0.09E0,0.03E0), (5.0E0,8.0E0),
|
||||
+ (0.03E0,0.12E0), (6.0E0,9.0E0), (0.12E0,0.03E0),
|
||||
+ (8.0E0,3.0E0), (0.03E0,0.06E0), (9.0E0,4.0E0)/
|
||||
+ (0.15E0,0.00E0), (6.0E0,9.0E0), (0.00E0,0.15E0),
|
||||
+ (8.0E0,3.0E0), (0.00E0,0.06E0), (9.0E0,4.0E0)/
|
||||
DATA ITRUE3/0, 1, 2, 2, 2/
|
||||
* .. Executable Statements ..
|
||||
DO 60 INCX = 1, 2
|
||||
@@ -529,7 +571,8 @@
|
||||
*
|
||||
* .. Parameters ..
|
||||
INTEGER NOUT
|
||||
PARAMETER (NOUT=6)
|
||||
REAL ZERO
|
||||
PARAMETER (NOUT=6, ZERO=0.0E0)
|
||||
* .. Scalar Arguments ..
|
||||
REAL SFAC
|
||||
INTEGER LEN
|
||||
@@ -552,7 +595,7 @@
|
||||
*
|
||||
DO 40 I = 1, LEN
|
||||
SD = SCOMP(I) - STRUE(I)
|
||||
IF (SDIFF(ABS(SSIZE(I))+ABS(SFAC*SD),ABS(SSIZE(I))).EQ.0.0E0)
|
||||
IF (ABS(SFAC*SD) .LE. ABS(SSIZE(I))*EPSILON(ZERO))
|
||||
+ GO TO 40
|
||||
*
|
||||
* HERE SCOMP(I) IS NOT CLOSE TO STRUE(I).
|
||||
|
||||
Reference in New Issue
Block a user