some clean ups for Aasen's tester.

diff --git a/TESTING/LIN/cchkhe_aa.f b/TESTING/LIN/cchkhe_aa.f
index 702677b..5982c61 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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, * )
 *     ..
 *
 *  =====================================================================