From c273c5da1de722032cbdbb7d541c6157141e2dbb Mon Sep 17 00:00:00 2001 From: Ichitaro Yamazaki Date: Thu, 17 Nov 2016 14:40:32 -0500 Subject: [PATCH] some clean ups for Aasen's tester. --- TESTING/LIN/cchkhe_aa.f | 8 ++++---- TESTING/LIN/chet01_aa.f | 14 +++++++------- TESTING/LIN/dchksy_aa.f | 11 ++++++----- TESTING/LIN/ddrvsy_aa.f | 2 ++ TESTING/LIN/dsyt01_aa.f | 6 +++--- TESTING/LIN/schksy_aa.f | 9 +++++---- TESTING/LIN/ssyt01_aa.f | 6 +++--- TESTING/LIN/zchkhe_aa.f | 8 ++++---- TESTING/LIN/zhet01_aa.f | 14 +++++++------- 9 files changed, 41 insertions(+), 37 deletions(-) diff --git a/TESTING/LIN/cchkhe_aa.f b/TESTING/LIN/cchkhe_aa.f index 702677b..5982c61 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 8f797f1..c2b237d 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 a596bcb..bc622e4 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 be5d6eb..c0562a5 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 bc30df3..c0654e7 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 0f66872..6b820f7 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 0e72fa7..e70dc2b 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 20d595b..c68be16 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 d1328c8..760926b 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, * ) * .. * * ===================================================================== -- 2.7.4