summaryrefslogtreecommitdiff
path: root/TESTING/LIN
diff options
context:
space:
mode:
Diffstat (limited to 'TESTING/LIN')
-rw-r--r--TESTING/LIN/cchkhe_aa.f8
-rw-r--r--TESTING/LIN/chet01_aa.f14
-rw-r--r--TESTING/LIN/dchksy_aa.f11
-rw-r--r--TESTING/LIN/ddrvsy_aa.f2
-rw-r--r--TESTING/LIN/dsyt01_aa.f6
-rw-r--r--TESTING/LIN/schksy_aa.f9
-rw-r--r--TESTING/LIN/ssyt01_aa.f6
-rw-r--r--TESTING/LIN/zchkhe_aa.f8
-rw-r--r--TESTING/LIN/zhet01_aa.f14
9 files changed, 41 insertions, 37 deletions
diff --git a/TESTING/LIN/cchkhe_aa.f b/TESTING/LIN/cchkhe_aa.f
index 702677bd..5982c619 100644
--- a/TESTING/LIN/cchkhe_aa.f
+++ b/TESTING/LIN/cchkhe_aa.f
@@ -224,7 +224,7 @@
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, XLAENV, CERRHE, CGET04,
- $ ZHECON, CHERFS, CHET01, CHETRF_AA, ZHETRI2,
+ $ ZHECON, CHERFS, CHET01_AA, CHETRF_AA, ZHETRI2,
$ CHETRS_AA, CLACPY, CLAIPD, CLARHS, CLATB4,
$ CLATMS, CPOT02, ZPOT03, ZPOT05
* ..
@@ -434,7 +434,7 @@
LWORK = ( NB+1 )*LDA
SRNAMT = 'CHETRF_AA'
CALL CHETRF_AA( UPLO, N, AFAC, LDA, IWORK, AINV,
- $ LWORK, INFO )
+ $ LWORK, INFO )
*
* Adjust the expected value of INFO to account for
* pivoting.
@@ -476,7 +476,7 @@
* Reconstruct matrix from factors and compute residual.
*
CALL CHET01_AA( UPLO, N, A, LDA, AFAC, LDA, IWORK,
- $ AINV, LDA, RWORK, RESULT( 1 ) )
+ $ AINV, LDA, RWORK, RESULT( 1 ) )
NT = 1
*
*
@@ -521,7 +521,7 @@
SRNAMT = 'CHETRS_AA'
LWORK = 3*N-2
CALL CHETRS_AA( UPLO, N, NRHS, AFAC, LDA, IWORK,
- $ X, LDA, WORK, LWORK, INFO )
+ $ X, LDA, WORK, LWORK, INFO )
*
* Check error code from CHETRS and handle error.
*
diff --git a/TESTING/LIN/chet01_aa.f b/TESTING/LIN/chet01_aa.f
index 8f797f11..c2b237da 100644
--- a/TESTING/LIN/chet01_aa.f
+++ b/TESTING/LIN/chet01_aa.f
@@ -9,17 +9,17 @@
* ===========
*
* SUBROUTINE CHET01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV,
-* C, LDC, RWORK, RESID )
+* C, LDC, RWORK, RESID )
*
* .. Scalar Arguments ..
* CHARACTER UPLO
* INTEGER LDA, LDAFAC, LDC, N
-* COMPLEX RESID
+* REAL RESID
* ..
* .. Array Arguments ..
* INTEGER IPIV( * )
-* COMPLEX A( LDA, * ), AFAC( LDAFAC, * ), C( LDC, * ),
-* $ RWORK( * )
+* REAL RWORK( * )
+* COMPLEX A( LDA, * ), AFAC( LDAFAC, * ), C( LDC, * )
* ..
*
*
@@ -123,7 +123,7 @@
*
* =====================================================================
SUBROUTINE CHET01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C,
- $ LDC, RWORK, RESID )
+ $ LDC, RWORK, RESID )
*
* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
@@ -137,8 +137,8 @@
* ..
* .. Array Arguments ..
INTEGER IPIV( * )
- COMPLEX A( LDA, * ), AFAC( LDAFAC, * ), C( LDC, * ),
- $ RWORK( * )
+ REAL RWORK( * )
+ COMPLEX A( LDA, * ), AFAC( LDAFAC, * ), C( LDC, * )
* ..
*
* =====================================================================
diff --git a/TESTING/LIN/dchksy_aa.f b/TESTING/LIN/dchksy_aa.f
index a596bcb9..bc622e4a 100644
--- a/TESTING/LIN/dchksy_aa.f
+++ b/TESTING/LIN/dchksy_aa.f
@@ -163,6 +163,7 @@
*
*> \date November 2016
*
+* @precisions fortran d -> z c
*
*> \ingroup double_lin
*
@@ -221,7 +222,7 @@
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, DERRSY, DGET04, DLACPY,
$ DLARHS, DLATB4, DLATMS, DPOT02, DPOT03, DPOT05,
- $ DSYCON, DSYRFS, DSYT01, DSYTRF_AA,
+ $ DSYCON, DSYRFS, DSYT01_AA, DSYTRF_AA,
$ DSYTRI2, DSYTRS_AA, XLAENV
* ..
* .. Intrinsic Functions ..
@@ -431,7 +432,7 @@
SRNAMT = 'DSYTRF_AA'
LWORK = N*NB + N
CALL DSYTRF_AA( UPLO, N, AFAC, LDA, IWORK, AINV,
- $ LWORK, INFO )
+ $ LWORK, INFO )
*
* Adjust the expected value of INFO to account for
* pivoting.
@@ -473,7 +474,7 @@
* Reconstruct matrix from factors and compute residual.
*
CALL DSYT01_AA( UPLO, N, A, LDA, AFAC, LDA, IWORK,
- $ AINV, LDA, RWORK, RESULT( 1 ) )
+ $ AINV, LDA, RWORK, RESULT( 1 ) )
NT = 1
*
*
@@ -518,8 +519,8 @@
SRNAMT = 'DSYTRS_AA'
LWORK = 3*N-2
CALL DSYTRS_AA( UPLO, N, NRHS, AFAC, LDA,
- $ IWORK, X, LDA, WORK, LWORK,
- $ INFO )
+ $ IWORK, X, LDA, WORK, LWORK,
+ $ INFO )
*
* Check error code from DSYTRS and handle error.
*
diff --git a/TESTING/LIN/ddrvsy_aa.f b/TESTING/LIN/ddrvsy_aa.f
index be5d6eb3..c0562a5f 100644
--- a/TESTING/LIN/ddrvsy_aa.f
+++ b/TESTING/LIN/ddrvsy_aa.f
@@ -145,6 +145,8 @@
*
*> \date November 2016
*
+* @precisions fortran d -> z c
+*
*> \ingroup double_lin
*
* =====================================================================
diff --git a/TESTING/LIN/dsyt01_aa.f b/TESTING/LIN/dsyt01_aa.f
index bc30df38..c0654e79 100644
--- a/TESTING/LIN/dsyt01_aa.f
+++ b/TESTING/LIN/dsyt01_aa.f
@@ -8,8 +8,8 @@
* Definition:
* ===========
*
-* SUBROUTINE DSYT01( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC,
-* RWORK, RESID )
+* SUBROUTINE DSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC,
+* RWORK, RESID )
*
* .. Scalar Arguments ..
* CHARACTER UPLO
@@ -118,7 +118,7 @@
*
*> \date November 2016
*
-* @precisions fortran d -> s
+* @precisions fortran d -> z c
*
*> \ingroup double_lin
*
diff --git a/TESTING/LIN/schksy_aa.f b/TESTING/LIN/schksy_aa.f
index 0f668723..6b820f70 100644
--- a/TESTING/LIN/schksy_aa.f
+++ b/TESTING/LIN/schksy_aa.f
@@ -163,6 +163,7 @@
*
*> \date November 2016
*
+* @precisions fortran d -> z c
*
*> \ingroup real_lin
*
@@ -432,7 +433,7 @@
SRNAMT = 'SSYTRF_AA'
LWORK = N*NB + N
CALL SSYTRF_AA( UPLO, N, AFAC, LDA, IWORK, AINV,
- $ LWORK, INFO )
+ $ LWORK, INFO )
*
* Adjust the expected value of INFO to account for
* pivoting.
@@ -474,7 +475,7 @@
* Reconstruct matrix from factors and compute residual.
*
CALL SSYT01_AA( UPLO, N, A, LDA, AFAC, LDA, IWORK,
- $ AINV, LDA, RWORK, RESULT( 1 ) )
+ $ AINV, LDA, RWORK, RESULT( 1 ) )
NT = 1
*
*
@@ -519,8 +520,8 @@
SRNAMT = 'SSYTRS_AA'
LWORK = 3*N-2
CALL SSYTRS_AA( UPLO, N, NRHS, AFAC, LDA,
- $ IWORK, X, LDA, WORK, LWORK,
- $ INFO )
+ $ IWORK, X, LDA, WORK, LWORK,
+ $ INFO )
*
* Check error code from SSYTRS and handle error.
*
diff --git a/TESTING/LIN/ssyt01_aa.f b/TESTING/LIN/ssyt01_aa.f
index 0e72fa71..e70dc2bd 100644
--- a/TESTING/LIN/ssyt01_aa.f
+++ b/TESTING/LIN/ssyt01_aa.f
@@ -9,7 +9,7 @@
* ===========
*
* SUBROUTINE SSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV,
-* C, LDC, RWORK, RESID )
+* C, LDC, RWORK, RESID )
*
* .. Scalar Arguments ..
* CHARACTER UPLO
@@ -123,7 +123,7 @@
*
* =====================================================================
SUBROUTINE SSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C,
- $ LDC, RWORK, RESID )
+ $ LDC, RWORK, RESID )
*
* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
@@ -144,7 +144,7 @@
* =====================================================================
*
* .. Parameters ..
- REAL ZERO, ONE
+ REAL ZERO, ONE
PARAMETER ( ZERO = 0.0E+0, ONE = 1.0E+0 )
* ..
* .. Local Scalars ..
diff --git a/TESTING/LIN/zchkhe_aa.f b/TESTING/LIN/zchkhe_aa.f
index 20d595be..c68be161 100644
--- a/TESTING/LIN/zchkhe_aa.f
+++ b/TESTING/LIN/zchkhe_aa.f
@@ -224,7 +224,7 @@
* ..
* .. External Subroutines ..
EXTERNAL ALAERH, ALAHD, ALASUM, XLAENV, ZERRHE, ZGET04,
- $ ZHECON, ZHERFS, ZHET01, ZHETRF_AA, ZHETRI2,
+ $ ZHECON, ZHERFS, ZHET01_AA, ZHETRF_AA, ZHETRI2,
$ ZHETRS_AA, ZLACPY, ZLAIPD, ZLARHS, ZLATB4,
$ ZLATMS, ZPOT02, ZPOT03, ZPOT05
* ..
@@ -433,7 +433,7 @@
LWORK = ( NB+1 )*LDA
SRNAMT = 'ZHETRF_AA'
CALL ZHETRF_AA( UPLO, N, AFAC, LDA, IWORK, AINV,
- $ LWORK, INFO )
+ $ LWORK, INFO )
*
* Adjust the expected value of INFO to account for
* pivoting.
@@ -475,7 +475,7 @@
* Reconstruct matrix from factors and compute residual.
*
CALL ZHET01_AA( UPLO, N, A, LDA, AFAC, LDA, IWORK,
- $ AINV, LDA, RWORK, RESULT( 1 ) )
+ $ AINV, LDA, RWORK, RESULT( 1 ) )
NT = 1
*
*
@@ -520,7 +520,7 @@
SRNAMT = 'ZHETRS_AA'
LWORK = 3*N-2
CALL ZHETRS_AA( UPLO, N, NRHS, AFAC, LDA, IWORK,
- $ X, LDA, WORK, LWORK, INFO )
+ $ X, LDA, WORK, LWORK, INFO )
*
* Check error code from ZHETRS and handle error.
*
diff --git a/TESTING/LIN/zhet01_aa.f b/TESTING/LIN/zhet01_aa.f
index d1328c88..760926bd 100644
--- a/TESTING/LIN/zhet01_aa.f
+++ b/TESTING/LIN/zhet01_aa.f
@@ -9,17 +9,17 @@
* ===========
*
* SUBROUTINE ZHET01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV,
-* C, LDC, RWORK, RESID )
+* C, LDC, RWORK, RESID )
*
* .. Scalar Arguments ..
* CHARACTER UPLO
* INTEGER LDA, LDAFAC, LDC, N
-* COMPLEX*16 RESID
+* DOUBLE PRECISION RESID
* ..
* .. Array Arguments ..
* INTEGER IPIV( * )
-* COMPLEX*16 A( LDA, * ), AFAC( LDAFAC, * ), C( LDC, * ),
-* $ RWORK( * )
+* DOUBLE PRECISION RWORK( * )
+* COMPLEX*16 A( LDA, * ), AFAC( LDAFAC, * ), C( LDC, * )
* ..
*
*
@@ -123,7 +123,7 @@
*
* =====================================================================
SUBROUTINE ZHET01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C,
- $ LDC, RWORK, RESID )
+ $ LDC, RWORK, RESID )
*
* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
@@ -137,8 +137,8 @@
* ..
* .. Array Arguments ..
INTEGER IPIV( * )
- COMPLEX*16 A( LDA, * ), AFAC( LDAFAC, * ), C( LDC, * ),
- $ RWORK( * )
+ DOUBLE PRECISION RWORK( * )
+ COMPLEX*16 A( LDA, * ), AFAC( LDAFAC, * ), C( LDC, * )
* ..
*
* =====================================================================
generated by cgit v1.2.3 (git 2.25.1) at 2024-11-25 04:48:52 +0000