Changing Assen routines suffix from _Aassen to _aa

22 files changed, 203 insertions, 203 deletions

diff --git a/TESTING/LIN/CMakeLists.txt b/TESTING/LIN/CMakeLists.txt
index 9ad135fd..02a18e14 100644
--- a/TESTING/LIN/CMakeLists.txt
+++ b/TESTING/LIN/CMakeLists.txt
@@ -10,10 +10,10 @@ set(SLINTST  schkaa.f
    schkeq.f schkgb.f schkge.f schkgt.f
    schklq.f schkpb.f schkpo.f schkps.f schkpp.f
    schkpt.f schkq3.f schkql.f schkqr.f schkrq.f
-   schksp.f schksy.f schksy_rook.f schksy_aasen.f schktb.f schktp.f schktr.f
+   schksp.f schksy.f schksy_rook.f schksy_aa.f schktb.f schktp.f schktr.f
    schktz.f
    sdrvgt.f sdrvls.f sdrvpb.f
-   sdrvpp.f sdrvpt.f sdrvsp.f sdrvsy.f sdrvsy_rook.f sdrvsy_aasen.f
+   sdrvpp.f sdrvpt.f sdrvsp.f sdrvsy.f sdrvsy_rook.f sdrvsy_aa.f
    serrgt.f serrlq.f serrls.f
    serrpo.f serrps.f serrql.f serrqp.f serrqr.f
    serrrq.f serrsy.f serrtr.f serrtz.f serrvx.f
@@ -29,7 +29,7 @@ set(SLINTST  schkaa.f
    sqrt01.f sqrt01p.f sqrt02.f sqrt03.f sqrt11.f sqrt12.f
    sqrt13.f sqrt14.f sqrt15.f sqrt16.f sqrt17.f
    srqt01.f srqt02.f srqt03.f srzt01.f srzt02.f
-   sspt01.f ssyt01.f ssyt01_rook.f ssyt01_aasen.f 
+   sspt01.f ssyt01.f ssyt01_rook.f ssyt01_aa.f 
    stbt02.f stbt03.f stbt05.f stbt06.f stpt01.f
    stpt02.f stpt03.f stpt05.f stpt06.f strt01.f
    strt02.f strt03.f strt05.f strt06.f
@@ -46,11 +46,11 @@ endif()
 
 set(CLINTST  cchkaa.f
    cchkeq.f cchkgb.f cchkge.f cchkgt.f
-   cchkhe.f cchkhe_rook.f cchkhe_aasen.f cchkhp.f cchklq.f cchkpb.f
+   cchkhe.f cchkhe_rook.f cchkhe_aa.f cchkhp.f cchklq.f cchkpb.f
    cchkpo.f cchkps.f cchkpp.f cchkpt.f cchkq3.f cchkql.f
    cchkqr.f cchkrq.f cchksp.f cchksy.f cchksy_rook.f cchktb.f
    cchktp.f cchktr.f cchktz.f
-   cdrvgt.f cdrvhe.f cdrvhe_rook.f cdrvhe_aasen.f cdrvhp.f
+   cdrvgt.f cdrvhe.f cdrvhe_rook.f cdrvhe_aa.f cdrvhp.f
    cdrvls.f cdrvpb.f cdrvpp.f cdrvpt.f
    cdrvsp.f cdrvsy.f cdrvsy_rook.f
    cerrgt.f cerrhe.f cerrlq.f
@@ -60,7 +60,7 @@ set(CLINTST  cchkaa.f
    cgbt01.f cgbt02.f cgbt05.f cgelqs.f cgeqls.f cgeqrs.f
    cgerqs.f cget01.f cget02.f
    cget03.f cget04.f cget07.f cgtt01.f cgtt02.f
-   cgtt05.f chet01.f chet01_rook.f chet01_aasen.f chpt01.f claipd.f claptm.f clarhs.f clatb4.f clatb5.f
+   cgtt05.f chet01.f chet01_rook.f chet01_aa.f chpt01.f claipd.f claptm.f clarhs.f clatb4.f clatb5.f
    clatsp.f clatsy.f clattb.f clattp.f clattr.f
    clavhe.f clavhe_rook.f clavhp.f clavsp.f clavsy.f clavsy_rook.f clqt01.f
    clqt02.f clqt03.f cpbt01.f cpbt02.f cpbt05.f
@@ -91,10 +91,10 @@ set(DLINTST  dchkaa.f
    dchkeq.f dchkgb.f dchkge.f dchkgt.f
    dchklq.f dchkpb.f dchkpo.f dchkps.f dchkpp.f
    dchkpt.f dchkq3.f dchkql.f dchkqr.f dchkrq.f
-   dchksp.f dchksy.f dchksy_rook.f dchksy_aasen.f dchktb.f dchktp.f dchktr.f
+   dchksp.f dchksy.f dchksy_rook.f dchksy_aa.f dchktb.f dchktp.f dchktr.f
    dchktz.f
    ddrvgt.f ddrvls.f ddrvpb.f
-   ddrvpp.f ddrvpt.f ddrvsp.f ddrvsy.f ddrvsy_rook.f ddrvsy_aasen.f
+   ddrvpp.f ddrvpt.f ddrvsp.f ddrvsy.f ddrvsy_rook.f ddrvsy_aa.f
    derrgt.f derrlq.f derrls.f
    derrps.f derrql.f derrqp.f derrqr.f
    derrrq.f derrsy.f derrtr.f derrtz.f derrvx.f
@@ -110,7 +110,7 @@ set(DLINTST  dchkaa.f
    dqrt01.f dqrt01p.f dqrt02.f dqrt03.f dqrt11.f dqrt12.f
    dqrt13.f dqrt14.f dqrt15.f dqrt16.f dqrt17.f
    drqt01.f drqt02.f drqt03.f drzt01.f drzt02.f
-   dspt01.f dsyt01.f dsyt01_rook.f dsyt01_aasen.f
+   dspt01.f dsyt01.f dsyt01_rook.f dsyt01_aa.f
    dtbt02.f dtbt03.f dtbt05.f dtbt06.f dtpt01.f
    dtpt02.f dtpt03.f dtpt05.f dtpt06.f dtrt01.f
    dtrt02.f dtrt03.f dtrt05.f dtrt06.f
@@ -129,11 +129,11 @@ endif()
 
 set(ZLINTST  zchkaa.f
    zchkeq.f zchkgb.f zchkge.f zchkgt.f
-   zchkhe.f zchkhe_rook.f zchkhe_aasen.f zchkhp.f zchklq.f zchkpb.f
+   zchkhe.f zchkhe_rook.f zchkhe_aa.f zchkhp.f zchklq.f zchkpb.f
    zchkpo.f zchkps.f zchkpp.f zchkpt.f zchkq3.f zchkql.f
    zchkqr.f zchkrq.f zchksp.f zchksy.f zchksy_rook.f zchktb.f
    zchktp.f zchktr.f zchktz.f
-   zdrvgt.f zdrvhe.f zdrvhe_rook.f zdrvhe_aasen.f zdrvhp.f
+   zdrvgt.f zdrvhe.f zdrvhe_rook.f zdrvhe_aa.f zdrvhp.f
    zdrvls.f zdrvpb.f zdrvpp.f zdrvpt.f
    zdrvsp.f zdrvsy.f zdrvsy_rook.f
    zerrgt.f zerrhe.f zerrlq.f
@@ -143,7 +143,7 @@ set(ZLINTST  zchkaa.f
    zgbt01.f zgbt02.f zgbt05.f zgelqs.f zgeqls.f zgeqrs.f
    zgerqs.f zget01.f zget02.f
    zget03.f zget04.f zget07.f zgtt01.f zgtt02.f
-   zgtt05.f zhet01.f zhet01_rook.f zhet01_aasen.f zhpt01.f zlaipd.f zlaptm.f zlarhs.f zlatb4.f zlatb5.f
+   zgtt05.f zhet01.f zhet01_rook.f zhet01_aa.f zhpt01.f zlaipd.f zlaptm.f zlarhs.f zlatb4.f zlatb5.f
    zlatsp.f zlatsy.f zlattb.f zlattp.f zlattr.f
    zlavhe.f zlavhe_rook.f zlavhp.f zlavsp.f zlavsy.f zlavsy_rook.f zlqt01.f
    zlqt02.f zlqt03.f zpbt01.f zpbt02.f zpbt05.f
diff --git a/TESTING/LIN/Makefile b/TESTING/LIN/Makefile
index 4c0cac8c..a9d1d177 100644
--- a/TESTING/LIN/Makefile
+++ b/TESTING/LIN/Makefile
@@ -51,10 +51,10 @@ SLINTST = schkaa.o \
    schkeq.o schkgb.o schkge.o schkgt.o \
    schklq.o schkpb.o schkpo.o schkps.o schkpp.o \
    schkpt.o schkq3.o schkql.o schkqr.o schkrq.o \
-   schksp.o schksy.o schksy_rook.o schksy_aasen.o schktb.o schktp.o schktr.o \
+   schksp.o schksy.o schksy_rook.o schksy_aa.o schktb.o schktp.o schktr.o \
    schktz.o \
    sdrvgt.o sdrvls.o sdrvpb.o \
-   sdrvpp.o sdrvpt.o sdrvsp.o  sdrvsy_rook.o sdrvsy_aasen.o\
+   sdrvpp.o sdrvpt.o sdrvsp.o  sdrvsy_rook.o sdrvsy_aa.o\
    serrgt.o serrlq.o serrls.o \
    serrps.o serrql.o serrqp.o serrqr.o \
    serrrq.o serrtr.o serrtz.o \
@@ -70,7 +70,7 @@ SLINTST = schkaa.o \
    sqrt01.o sqrt01p.o sqrt02.o sqrt03.o sqrt11.o sqrt12.o \
    sqrt13.o sqrt14.o sqrt15.o sqrt16.o sqrt17.o \
    srqt01.o srqt02.o srqt03.o srzt01.o srzt02.o \
-   sspt01.o ssyt01.o ssyt01_rook.o ssyt01_aasen.o\
+   sspt01.o ssyt01.o ssyt01_rook.o ssyt01_aa.o\
    stbt02.o stbt03.o stbt05.o stbt06.o stpt01.o \
    stpt02.o stpt03.o stpt05.o stpt06.o strt01.o \
    strt02.o strt03.o strt05.o strt06.o \
@@ -88,11 +88,11 @@ endif
 
 CLINTST = cchkaa.o \
    cchkeq.o cchkgb.o cchkge.o cchkgt.o \
-   cchkhe.o cchkhe_rook.o cchkhe_aasen.o cchkhp.o cchklq.o cchkpb.o \
+   cchkhe.o cchkhe_rook.o cchkhe_aa.o cchkhp.o cchklq.o cchkpb.o \
    cchkpo.o cchkps.o cchkpp.o cchkpt.o cchkq3.o cchkql.o \
    cchkqr.o cchkrq.o cchksp.o cchksy.o cchksy_rook.o cchktb.o \
    cchktp.o cchktr.o cchktz.o \
-   cdrvgt.o cdrvhe_rook.o cdrvhe_aasen.o cdrvhp.o \
+   cdrvgt.o cdrvhe_rook.o cdrvhe_aa.o cdrvhp.o \
    cdrvls.o cdrvpb.o cdrvpp.o cdrvpt.o \
    cdrvsp.o cdrvsy_rook.o \
    cerrgt.o cerrlq.o \
@@ -101,7 +101,7 @@ CLINTST = cchkaa.o \
    cgbt01.o cgbt02.o cgbt05.o cgelqs.o cgeqls.o cgeqrs.o \
    cgerqs.o cget01.o cget02.o \
    cget03.o cget04.o cget07.o cgtt01.o cgtt02.o \
-   cgtt05.o chet01.o chet01_rook.o chet01_aasen.o chpt01.o claipd.o claptm.o clarhs.o clatb4.o clatb5.o \
+   cgtt05.o chet01.o chet01_rook.o chet01_aa.o chpt01.o claipd.o claptm.o clarhs.o clatb4.o clatb5.o \
    clatsp.o clatsy.o clattb.o clattp.o clattr.o \
    clavhe.o clavhe_rook.o clavhp.o clavsp.o clavsy.o clavsy_rook.o clqt01.o \
    clqt02.o clqt03.o cpbt01.o cpbt02.o cpbt05.o \
@@ -133,10 +133,10 @@ DLINTST = dchkaa.o \
    dchkeq.o dchkgb.o dchkge.o dchkgt.o \
    dchklq.o dchkpb.o dchkpo.o dchkps.o dchkpp.o \
    dchkpt.o dchkq3.o dchkql.o dchkqr.o dchkrq.o \
-   dchksp.o dchksy.o dchksy_rook.o dchksy_aasen.o dchktb.o dchktp.o dchktr.o \
+   dchksp.o dchksy.o dchksy_rook.o dchksy_aa.o dchktb.o dchktp.o dchktr.o \
    dchktz.o \
    ddrvgt.o ddrvls.o ddrvpb.o \
-   ddrvpp.o ddrvpt.o ddrvsp.o ddrvsy_rook.o ddrvsy_aasen.o\
+   ddrvpp.o ddrvpt.o ddrvsp.o ddrvsy_rook.o ddrvsy_aa.o\
    derrgt.o derrlq.o derrls.o \
    derrps.o derrql.o derrqp.o derrqr.o \
    derrrq.o derrtr.o derrtz.o \
@@ -152,7 +152,7 @@ DLINTST = dchkaa.o \
    dqrt01.o dqrt01p.o  dqrt02.o dqrt03.o dqrt11.o dqrt12.o \
    dqrt13.o dqrt14.o dqrt15.o dqrt16.o dqrt17.o \
    drqt01.o drqt02.o drqt03.o drzt01.o drzt02.o \
-   dspt01.o dsyt01.o dsyt01_rook.o dsyt01_aasen.o\
+   dspt01.o dsyt01.o dsyt01_rook.o dsyt01_aa.o\
    dtbt02.o dtbt03.o dtbt05.o dtbt06.o dtpt01.o \
    dtpt02.o dtpt03.o dtpt05.o dtpt06.o dtrt01.o \
    dtrt02.o dtrt03.o dtrt05.o dtrt06.o \
@@ -171,11 +171,11 @@ endif
 
 ZLINTST = zchkaa.o \
    zchkeq.o zchkgb.o zchkge.o zchkgt.o \
-   zchkhe.o zchkhe_rook.o zchkhe_aasen.o zchkhp.o zchklq.o zchkpb.o \
+   zchkhe.o zchkhe_rook.o zchkhe_aa.o zchkhp.o zchklq.o zchkpb.o \
    zchkpo.o zchkps.o zchkpp.o zchkpt.o zchkq3.o zchkql.o \
    zchkqr.o zchkrq.o zchksp.o zchksy.o zchksy_rook.o zchktb.o \
    zchktp.o zchktr.o zchktz.o \
-   zdrvgt.o zdrvhe_rook.o zdrvhe_aasen.o zdrvhp.o \
+   zdrvgt.o zdrvhe_rook.o zdrvhe_aa.o zdrvhp.o \
    zdrvls.o zdrvpb.o zdrvpp.o zdrvpt.o \
    zdrvsp.o zdrvsy_rook.o \
    zerrgt.o zerrlq.o \
@@ -184,7 +184,7 @@ ZLINTST = zchkaa.o \
    zgbt01.o zgbt02.o zgbt05.o zgelqs.o zgeqls.o zgeqrs.o \
    zgerqs.o zget01.o zget02.o \
    zget03.o zget04.o zget07.o zgtt01.o zgtt02.o \
-   zgtt05.o zhet01.o zhet01_rook.o zhet01_aasen.o zhpt01.o zlaipd.o zlaptm.o zlarhs.o zlatb4.o zlatb5.o \
+   zgtt05.o zhet01.o zhet01_rook.o zhet01_aa.o zhpt01.o zlaipd.o zlaptm.o zlarhs.o zlatb4.o zlatb5.o \
    zlatsp.o zlatsy.o zlattb.o zlattp.o zlattr.o \
    zlavhe.o zlavhe_rook.o zlavhp.o zlavsp.o zlavsy.o zlavsy_rook.o zlqt01.o \
    zlqt02.o zlqt03.o zpbt01.o zpbt02.o zpbt05.o \
diff --git a/TESTING/LIN/cchkaa.f b/TESTING/LIN/cchkaa.f
index f448e824..65d3eadd 100644
--- a/TESTING/LIN/cchkaa.f
+++ b/TESTING/LIN/cchkaa.f
@@ -651,7 +651,7 @@
          CALL ALAREQ( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT )
 *
          IF( TSTCHK ) THEN
-            CALL CCHKHE_AASEN( DOTYPE, NN, NVAL, NNB2, NBVAL2, NNS,
+            CALL CCHKHE_AA( DOTYPE, NN, NVAL, NNB2, NBVAL2, NNS,
      $                         NSVAL, THRESH, TSTERR, LDA, 
      $                         A( 1, 1 ), A( 1, 2 ), A( 1, 3 ),
      $                         B( 1, 1 ), B( 1, 2 ), B( 1, 3 ),
@@ -661,7 +661,7 @@
          END IF
 *
          IF( TSTDRV ) THEN
-            CALL CDRVHE_AASEN( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 
+            CALL CDRVHE_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 
      $                         LDA, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ), 
      $                              B( 1, 1 ), B( 1, 2 ), B( 1, 3 ), 
      $                         WORK, RWORK, IWORK, NOUT )
diff --git a/TESTING/LIN/cchkhe_aasen.f b/TESTING/LIN/cchkhe_aa.f
index 355dd25b..9666f8c2 100644
--- a/TESTING/LIN/cchkhe_aasen.f
+++ b/TESTING/LIN/cchkhe_aa.f
@@ -1,4 +1,4 @@
-*> \brief \b CCHKHE_AASEN
+*> \brief \b CCHKHE_AA
 *
 *  =========== DOCUMENTATION ===========
 *
@@ -8,7 +8,7 @@
 *  Definition:
 *  ===========
 *
-*       SUBROUTINE CCHKHE_AASEN( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,
+*       SUBROUTINE CCHKHE_AA( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,
 *                                THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X,
 *                                XACT, WORK, RWORK, IWORK, NOUT )
 *
@@ -31,7 +31,7 @@
 *>
 *> \verbatim
 *>
-*> CCHKHE_AASEN tests CHETRF_AASEN, -TRS_AASEN.
+*> CCHKHE_AA tests CHETRF_AA, -TRS_AA.
 *> \endverbatim
 *
 *  Arguments:
@@ -168,7 +168,7 @@
 *> \ingroup complex_lin
 *
 *  =====================================================================
-      SUBROUTINE CCHKHE_AASEN( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,
+      SUBROUTINE CCHKHE_AA( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,
      $                         THRESH, TSTERR, NMAX, A, AFAC, AINV, B,
      $                         X, XACT, WORK, RWORK, IWORK, NOUT )
 *
@@ -224,8 +224,8 @@
 *     ..
 *     .. External Subroutines ..
       EXTERNAL     ALAERH, ALAHD, ALASUM, XLAENV, CERRHE, CGET04,
-     $             ZHECON, CHERFS, CHET01, CHETRF_AASEN, ZHETRI2,
-     $             CHETRS_AASEN, CLACPY, CLAIPD, CLARHS, CLATB4, 
+     $             ZHECON, CHERFS, CHET01, CHETRF_AA, ZHETRI2,
+     $             CHETRS_AA, CLACPY, CLAIPD, CLARHS, CLATB4, 
      $             CLATMS, CPOT02, ZPOT03, ZPOT05
 *     ..
 *     .. Intrinsic Functions ..
@@ -432,8 +432,8 @@
 *                 block factorization, LWORK is the length of AINV.
 *
                   LWORK = ( NB+1 )*LDA
-                  SRNAMT = 'CHETRF_AASEN'
-                  CALL CHETRF_AASEN( UPLO, N, AFAC, LDA, IWORK, AINV, 
+                  SRNAMT = 'CHETRF_AA'
+                  CALL CHETRF_AA( UPLO, N, AFAC, LDA, IWORK, AINV, 
      $                               LWORK, INFO )
 *
 *                 Adjust the expected value of INFO to account for
@@ -459,7 +459,7 @@
 *                 Check error code from CHETRF and handle error.
 *
                   IF( INFO.NE.K ) THEN
-                     CALL ALAERH( PATH, 'CHETRF_AASEN', INFO, K, UPLO, 
+                     CALL ALAERH( PATH, 'CHETRF_AA', INFO, K, UPLO, 
      $                            N, N, -1, -1, NB, IMAT, NFAIL, NERRS, 
      $                            NOUT )
                   END IF
@@ -475,7 +475,7 @@
 *+    TEST 1
 *                 Reconstruct matrix from factors and compute residual.
 *
-                  CALL CHET01_AASEN( UPLO, N, A, LDA, AFAC, LDA, IWORK,
+                  CALL CHET01_AA( UPLO, N, A, LDA, AFAC, LDA, IWORK,
      $                               AINV, LDA, RWORK, RESULT( 1 ) )
                   NT = 1
 *
@@ -518,15 +518,15 @@
      $                            B, LDA, ISEED, INFO )
                      CALL CLACPY( 'Full', N, NRHS, B, LDA, X, LDA )
 *
-                     SRNAMT = 'CHETRS_AASEN'
+                     SRNAMT = 'CHETRS_AA'
                      LWORK = 3*N-2
-                     CALL CHETRS_AASEN( UPLO, N, NRHS, AFAC, LDA, IWORK,
+                     CALL CHETRS_AA( UPLO, N, NRHS, AFAC, LDA, IWORK,
      $                                  X, LDA, WORK, LWORK, INFO )
 *
 *                    Check error code from CHETRS and handle error.
 *
                      IF( INFO.NE.0 ) THEN
-                        CALL ALAERH( PATH, 'CHETRS_AASEN', INFO, 0,
+                        CALL ALAERH( PATH, 'CHETRS_AA', INFO, 0,
      $                                UPLO, N, N, -1, -1, NRHS, IMAT,
      $                                NFAIL, NERRS, NOUT )
                      END IF
@@ -573,6 +573,6 @@
      $      I6 )
       RETURN
 *
-*     End of CCHKHE_AASEN
+*     End of CCHKHE_AA
 *
       END
diff --git a/TESTING/LIN/cdrvhe_aasen.f b/TESTING/LIN/cdrvhe_aa.f
index 617f307a..511761f0 100644
--- a/TESTING/LIN/cdrvhe_aasen.f
+++ b/TESTING/LIN/cdrvhe_aa.f
@@ -1,4 +1,4 @@
-*> \brief \b CDRVHE_AASEN
+*> \brief \b CDRVHE_AA
 *
 *  =========== DOCUMENTATION ===========
 *
@@ -8,7 +8,7 @@
 *  Definition:
 *  ===========
 *
-*       SUBROUTINE CDRVHE_AASEN( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX,
+*       SUBROUTINE CDRVHE_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX,
 *                                A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK,
 *                                NOUT )
 *
@@ -31,7 +31,7 @@
 *>
 *> \verbatim
 *>
-*> CDRVHE_AASEN tests the driver routine CHESV_AASEN.
+*> CDRVHE_AA tests the driver routine CHESV_AA.
 *> \endverbatim
 *
 *  Arguments:
@@ -149,7 +149,7 @@
 *> \ingroup complex_lin
 *
 *  =====================================================================
-      SUBROUTINE CDRVHE_AASEN( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
+      SUBROUTINE CDRVHE_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
      $                         NMAX, A, AFAC, AINV, B, X, XACT, WORK,
      $                         RWORK, IWORK, NOUT )
 *
@@ -202,8 +202,8 @@
 *     .. External Subroutines ..
       EXTERNAL           ALADHD, ALAERH, ALASVM, XLAENV, CERRVX,
      $                   CGET04, CLACPY, CLARHS, CLATB4, CLATMS,
-     $                   CHESV_AASEN, CHET01_AASEN, CPOT02,
-     $                   CHETRF_AASEN
+     $                   CHESV_AA, CHET01_AA, CPOT02,
+     $                   CHETRF_AA
 *     ..
 *     .. Scalars in Common ..
       LOGICAL            LERR, OK
@@ -402,8 +402,8 @@
 *                    Factor the matrix A.
 *
 c                     CALL CLACPY( UPLO, N, N, A, LDA, AFAC, LDA )
-c                     SRNAMT = 'CHETRF_AASEN'
-c                     CALL CHETRF_AASEN( UPLO, N, AFAC, LDA, IWORK,
+c                     SRNAMT = 'CHETRF_AA'
+c                     CALL CHETRF_AA( UPLO, N, AFAC, LDA, IWORK,
 c     $                            WORK, LWORK, INFO )
 *
 *                    Compute inv(A) and take its norm.
@@ -432,16 +432,16 @@ c                     END IF
      $                         INFO )
                   XTYPE = 'C'
 *
-*                 --- Test CHESV_AASEN  ---
+*                 --- Test CHESV_AA  ---
 *
                   IF( IFACT.EQ.2 ) THEN
                      CALL CLACPY( UPLO, N, N, A, LDA, AFAC, LDA )
                      CALL CLACPY( 'Full', N, NRHS, B, LDA, X, LDA )
 *
-*                    Factor the matrix and solve the system using CHESV_AASEN.
+*                    Factor the matrix and solve the system using CHESV_AA.
 *
-                     SRNAMT = 'CHESV_AASEN '
-                     CALL CHESV_AASEN( UPLO, N, NRHS, AFAC, LDA, IWORK,
+                     SRNAMT = 'CHESV_AA '
+                     CALL CHESV_AA( UPLO, N, NRHS, AFAC, LDA, IWORK,
      $                                 X, LDA, WORK, LWORK, INFO )
 *
 *                    Adjust the expected value of INFO to account for
@@ -464,10 +464,10 @@ c                     END IF
                         K = 0
                      END IF
 *
-*                    Check error code from CHESV_AASEN .
+*                    Check error code from CHESV_AA .
 *					 
                      IF( INFO.NE.K ) THEN
-                        CALL ALAERH( PATH, 'CHESV_AASEN', INFO, K, 
+                        CALL ALAERH( PATH, 'CHESV_AA', INFO, K, 
      $                               UPLO, N, N, -1, -1, NRHS, 
      $                               IMAT, NFAIL, NERRS, NOUT )
                         GO TO 120
@@ -478,7 +478,7 @@ c                     END IF
 *                    Reconstruct matrix from factors and compute
 *                    residual.
 *
-                     CALL CHET01_AASEN( UPLO, N, A, LDA, AFAC, LDA,
+                     CALL CHET01_AA( UPLO, N, A, LDA, AFAC, LDA,
      $                                  IWORK, AINV, LDA, RWORK, 
      $                                  RESULT( 1 ) )
 *
@@ -501,7 +501,7 @@ c                     END IF
                         IF( RESULT( K ).GE.THRESH ) THEN
                            IF( NFAIL.EQ.0 .AND. NERRS.EQ.0 )
      $                        CALL ALADHD( NOUT, PATH )
-                           WRITE( NOUT, FMT = 9999 )'CHESV_AASEN ',
+                           WRITE( NOUT, FMT = 9999 )'CHESV_AA ',
      $                         UPLO, N, IMAT, K, RESULT( K )
                            NFAIL = NFAIL + 1
                         END IF
@@ -524,6 +524,6 @@ c                     END IF
      $      ', test ', I2, ', ratio =', G12.5 )
       RETURN
 *
-*     End of CDRVHE_AASEN
+*     End of CDRVHE_AA
 *
       END
diff --git a/TESTING/LIN/cerrvx.f b/TESTING/LIN/cerrvx.f
index 380dc699..13496241 100644
--- a/TESTING/LIN/cerrvx.f
+++ b/TESTING/LIN/cerrvx.f
@@ -93,7 +93,7 @@
      $                   CHESV, CHESV_ROOK, CHESVX, CHKXER, CHPSV,
      $                   CHPSVX, CPBSV, CPBSVX, CPOSV, CPOSVX, CPPSV,
      $                   CPPSVX, CPTSV, CPTSVX, CSPSV, CSPSVX, CSYSV,
-     $                   CSYSV_AASEN, CSYSV_ROOK, CSYSVX
+     $                   CSYSV_AA, CSYSV_ROOK, CSYSVX
 *     ..
 *     .. Scalars in Common ..
       LOGICAL            LERR, OK
@@ -634,21 +634,21 @@
 *
       ELSE IF( LSAMEN( 2, C2, 'HA' ) ) THEN
 *
-*        CHESV_AASEN
+*        CHESV_AA
 *
-        SRNAMT = 'CHESV_AASEN'
+        SRNAMT = 'CHESV_AA'
         INFOT = 1
-        CALL CHESV_AASEN( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO )
-        CALL CHKXER( 'CHESV_AASEN', INFOT, NOUT, LERR, OK )
+        CALL CHESV_AA( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO )
+        CALL CHKXER( 'CHESV_AA', INFOT, NOUT, LERR, OK )
         INFOT = 2
-        CALL CHESV_AASEN( 'U', -1, 0, A, 1, IP, B, 1, W, 1, INFO )
-        CALL CHKXER( 'CHESV_AASEN', INFOT, NOUT, LERR, OK )
+        CALL CHESV_AA( 'U', -1, 0, A, 1, IP, B, 1, W, 1, INFO )
+        CALL CHKXER( 'CHESV_AA', INFOT, NOUT, LERR, OK )
         INFOT = 3
-        CALL CHESV_AASEN( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
-        CALL CHKXER( 'CHESV_AASEN', INFOT, NOUT, LERR, OK )
+        CALL CHESV_AA( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
+        CALL CHKXER( 'CHESV_AA', INFOT, NOUT, LERR, OK )
         INFOT = 8
-        CALL CHESV_AASEN( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO )
-        CALL CHKXER( 'CHESV_AASEN', INFOT, NOUT, LERR, OK )
+        CALL CHESV_AA( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO )
+        CALL CHKXER( 'CHESV_AA', INFOT, NOUT, LERR, OK )
 *
 
       ELSE IF( LSAMEN( 2, C2, 'HR' ) ) THEN
diff --git a/TESTING/LIN/chet01_aasen.f b/TESTING/LIN/chet01_aa.f
index d87a6102..1fa87527 100644
--- a/TESTING/LIN/chet01_aasen.f
+++ b/TESTING/LIN/chet01_aa.f
@@ -1,4 +1,4 @@
-*> \brief \b CHET01_AASEN
+*> \brief \b CHET01_AA
 *
 *  =========== DOCUMENTATION ===========
 *
@@ -8,7 +8,7 @@
 *  Definition:
 *  ===========
 *
-*       SUBROUTINE CHET01_AASEN( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, 
+*       SUBROUTINE CHET01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, 
 *                          C, LDC, RWORK, RESID )
 *
 *       .. Scalar Arguments ..
@@ -28,7 +28,7 @@
 *>
 *> \verbatim
 *>
-*> CHET01_AASEN reconstructs a hermitian indefinite matrix A from its
+*> CHET01_AA reconstructs a hermitian indefinite matrix A from its
 *> block L*D*L' or U*D*U' factorization and computes the residual
 *>    norm( C - A ) / ( N * norm(A) * EPS ),
 *> where C is the reconstructed matrix and EPS is the machine epsilon.
@@ -122,7 +122,7 @@
 *> \ingroup complex_lin
 *
 *  =====================================================================
-      SUBROUTINE CHET01_AASEN( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C,
+      SUBROUTINE CHET01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C,
      $                         LDC, RWORK, RESID )
 *
 *  -- LAPACK test routine (version 3.7.0) --
@@ -262,6 +262,6 @@
 *
       RETURN
 *
-*     End of CHET01_AASEN
+*     End of CHET01_AA
 *
       END
diff --git a/TESTING/LIN/dchkaa.f b/TESTING/LIN/dchkaa.f
index 2e38bb51..f0442845 100644
--- a/TESTING/LIN/dchkaa.f
+++ b/TESTING/LIN/dchkaa.f
@@ -676,7 +676,7 @@
          CALL ALAREQ( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT )
 *
          IF( TSTCHK ) THEN
-            CALL DCHKSY_AASEN( DOTYPE, NN, NVAL, NNB2, NBVAL2, NNS, 
+            CALL DCHKSY_AA( DOTYPE, NN, NVAL, NNB2, NBVAL2, NNS, 
      $                         NSVAL, THRESH, TSTERR, LDA,
      $                         A( 1, 1 ), A( 1, 2 ), A( 1, 3 ),  
      $                         B( 1, 1 ), B( 1, 2 ), B( 1, 3 ),
@@ -686,7 +686,7 @@
          END IF
 *
          IF( TSTDRV ) THEN
-            CALL DDRVSY_AASEN( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
+            CALL DDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
      $                         LDA, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ),
      $                         B( 1, 1 ), B( 1, 2 ), B( 1, 3 ),
      $                         WORK, RWORK, IWORK, NOUT )
diff --git a/TESTING/LIN/dchksy_aasen.f b/TESTING/LIN/dchksy_aa.f
index 041ef754..f9c51f50 100644
--- a/TESTING/LIN/dchksy_aasen.f
+++ b/TESTING/LIN/dchksy_aa.f
@@ -1,4 +1,4 @@
-*> \brief \b DCHKSY_AASEN
+*> \brief \b DCHKSY_AA
 *
 *  =========== DOCUMENTATION ===========
 *
@@ -8,7 +8,7 @@
 *  Definition:
 *  ===========
 *
-*       SUBROUTINE DCHKSY_AASEN( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,
+*       SUBROUTINE DCHKSY_AA( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,
 *                                THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X,
 *                                XACT, WORK, RWORK, IWORK, NOUT )
 *
@@ -30,7 +30,7 @@
 *>
 *> \verbatim
 *>
-*> DCHKSY_AASEN tests DSYTRF_AASEN, -TRS_AASEN.
+*> DCHKSY_AA tests DSYTRF_AA, -TRS_AA.
 *> \endverbatim
 *
 *  Arguments:
@@ -167,7 +167,7 @@
 *> \ingroup double_lin
 *
 *  =====================================================================
-      SUBROUTINE DCHKSY_AASEN( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,
+      SUBROUTINE DCHKSY_AA( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,
      $                         THRESH, TSTERR, NMAX, A, AFAC, AINV, B,
      $                         X, XACT, WORK, RWORK, IWORK, NOUT )
 *
@@ -221,8 +221,8 @@
 *     .. External Subroutines ..
       EXTERNAL           ALAERH, ALAHD, ALASUM, DERRSY, DGET04, DLACPY,
      $                   DLARHS, DLATB4, DLATMS, DPOT02, DPOT03, DPOT05,
-     $                   DSYCON, DSYRFS, DSYT01, DSYTRF_AASEN,
-     $                   DSYTRI2, DSYTRS_AASEN, XLAENV
+     $                   DSYCON, DSYRFS, DSYT01, DSYTRF_AA,
+     $                   DSYTRI2, DSYTRS_AA, XLAENV
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          MAX, MIN
@@ -428,9 +428,9 @@
 *                 the block structure of D. AINV is a work array for
 *                 block factorization, LWORK is the length of AINV.
 *
-                  SRNAMT = 'DSYTRF_AASEN'
+                  SRNAMT = 'DSYTRF_AA'
                   LWORK = N*NB + N
-                  CALL DSYTRF_AASEN( UPLO, N, AFAC, LDA, IWORK, AINV, 
+                  CALL DSYTRF_AA( UPLO, N, AFAC, LDA, IWORK, AINV, 
      $                               LWORK, INFO )
 *
 *                 Adjust the expected value of INFO to account for
@@ -456,7 +456,7 @@
 *                 Check error code from DSYTRF and handle error.
 *
                   IF( INFO.NE.K ) THEN
-                     CALL ALAERH( PATH, 'DSYTRF_AASEN', INFO, K, UPLO, 
+                     CALL ALAERH( PATH, 'DSYTRF_AA', INFO, K, UPLO, 
      $                            N, N, -1, -1, NB, IMAT, NFAIL, NERRS, 
      $                            NOUT )
                   END IF
@@ -472,7 +472,7 @@
 *+    TEST 1
 *                 Reconstruct matrix from factors and compute residual.
 *
-                  CALL DSYT01_AASEN( UPLO, N, A, LDA, AFAC, LDA, IWORK,
+                  CALL DSYT01_AA( UPLO, N, A, LDA, AFAC, LDA, IWORK,
      $                               AINV, LDA, RWORK, RESULT( 1 ) )
                   NT = 1
 *
@@ -515,16 +515,16 @@
      $                            B, LDA, ISEED, INFO )
                      CALL DLACPY( 'Full', N, NRHS, B, LDA, X, LDA )
 *
-                     SRNAMT = 'DSYTRS_AASEN'
+                     SRNAMT = 'DSYTRS_AA'
                      LWORK = 3*N-2
-                     CALL DSYTRS_AASEN( UPLO, N, NRHS, AFAC, LDA, 
+                     CALL DSYTRS_AA( UPLO, N, NRHS, AFAC, LDA, 
      $                                  IWORK, X, LDA, WORK, LWORK,
      $                                  INFO )
 *
 *                    Check error code from DSYTRS and handle error.
 *
                      IF( INFO.NE.0 ) THEN
-                        CALL ALAERH( PATH, 'DSYTRS_AASEN', INFO, 0,
+                        CALL ALAERH( PATH, 'DSYTRS_AA', INFO, 0,
      $                               UPLO, N, N, -1, -1, NRHS, IMAT,
      $                               NFAIL, NERRS, NOUT )
                      END IF
@@ -572,6 +572,6 @@
      $      I6 )
       RETURN
 *
-*     End of DCHKSY_AASEN
+*     End of DCHKSY_AA
 *
       END
diff --git a/TESTING/LIN/ddrvsy_aasen.f b/TESTING/LIN/ddrvsy_aa.f
index a3520cb1..03aab49e 100644
--- a/TESTING/LIN/ddrvsy_aasen.f
+++ b/TESTING/LIN/ddrvsy_aa.f
@@ -1,4 +1,4 @@
-*> \brief \b DDRVSY_AASEN
+*> \brief \b DDRVSY_AA
 *
 *  =========== DOCUMENTATION ===========
 *
@@ -8,7 +8,7 @@
 *  Definition:
 *  ===========
 *
-*       SUBROUTINE DDRVSY_AASEN( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX,
+*       SUBROUTINE DDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX,
 *                          A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK,
 *                          NOUT )
 *
@@ -30,7 +30,7 @@
 *>
 *> \verbatim
 *>
-*> DDRVSY_AASEN tests the driver routine DSYSV_AASEN.
+*> DDRVSY_AA tests the driver routine DSYSV_AA.
 *> \endverbatim
 *
 *  Arguments:
@@ -148,7 +148,7 @@
 *> \ingroup double_lin
 *
 *  =====================================================================
-      SUBROUTINE DDRVSY_AASEN( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
+      SUBROUTINE DDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
      $                         NMAX, A, AFAC, AINV, B, X, XACT, WORK,
      $                         RWORK, IWORK, NOUT )
 *
@@ -200,7 +200,7 @@
 *     .. External Subroutines ..
       EXTERNAL           ALADHD, ALAERH, ALASVM, DERRVX, DGET04, DLACPY,
      $                   DLARHS, DLASET, DLATB4, DLATMS, DPOT02, DPOT05,
-     $                   DSYSV_AASEN, DSYT01_AASEN, DSYTRF_AASEN, XLAENV
+     $                   DSYSV_AA, DSYT01_AA, DSYTRF_AA, XLAENV
 *     ..
 *     .. Scalars in Common ..
       LOGICAL            LERR, OK
@@ -420,16 +420,16 @@ c                     END IF
      $                         INFO )
                   XTYPE = 'C'
 *
-*                 --- Test DSYSV_AASEN  ---
+*                 --- Test DSYSV_AA  ---
 *
                   IF( IFACT.EQ.2 ) THEN
                      CALL DLACPY( UPLO, N, N, A, LDA, AFAC, LDA )
                      CALL DLACPY( 'Full', N, NRHS, B, LDA, X, LDA )
 *
-*                    Factor the matrix and solve the system using DSYSV_AASEN.
+*                    Factor the matrix and solve the system using DSYSV_AA.
 *
-                     SRNAMT = 'DSYSV_AASEN'
-                     CALL DSYSV_AASEN( UPLO, N, NRHS, AFAC, LDA, IWORK,
+                     SRNAMT = 'DSYSV_AA'
+                     CALL DSYSV_AA( UPLO, N, NRHS, AFAC, LDA, IWORK,
      $                                 X, LDA, WORK, LWORK, INFO )
 *
 *                    Adjust the expected value of INFO to account for
@@ -452,10 +452,10 @@ c                     END IF
                         K = 0
                      END IF
 *
-*                    Check error code from DSYSV_AASEN .
+*                    Check error code from DSYSV_AA .
 *
                      IF( INFO.NE.K ) THEN
-                        CALL ALAERH( PATH, 'DSYSV_AASEN ', INFO, K,
+                        CALL ALAERH( PATH, 'DSYSV_AA ', INFO, K,
      $                               UPLO, N, N, -1, -1, NRHS,
      $                               IMAT, NFAIL, NERRS, NOUT )
                         GO TO 120
@@ -466,7 +466,7 @@ c                     END IF
 *                    Reconstruct matrix from factors and compute
 *                    residual.
 *
-                     CALL DSYT01_AASEN( UPLO, N, A, LDA, AFAC, LDA,
+                     CALL DSYT01_AA( UPLO, N, A, LDA, AFAC, LDA,
      $                                  IWORK, AINV, LDA, RWORK, 
      $                                  RESULT( 1 ) )
 *
@@ -489,7 +489,7 @@ c                     END IF
                         IF( RESULT( K ).GE.THRESH ) THEN
                            IF( NFAIL.EQ.0 .AND. NERRS.EQ.0 )
      $                        CALL ALADHD( NOUT, PATH )
-                           WRITE( NOUT, FMT = 9999 )'DSYSV_AASEN ',
+                           WRITE( NOUT, FMT = 9999 )'DSYSV_AA ',
      $                        UPLO, N, IMAT, K, RESULT( K )
                            NFAIL = NFAIL + 1
                         END IF
@@ -512,6 +512,6 @@ c                     END IF
      $      ', test ', I2, ', ratio =', G12.5 )
       RETURN
 *
-*     End of DDRVSY_AASEN
+*     End of DDRVSY_AA
 *
       END
diff --git a/TESTING/LIN/derrvx.f b/TESTING/LIN/derrvx.f
index 2affbe2f..ff57aa7e 100644
--- a/TESTING/LIN/derrvx.f
+++ b/TESTING/LIN/derrvx.f
@@ -91,7 +91,7 @@
       EXTERNAL           CHKXER, DGBSV, DGBSVX, DGESV, DGESVX, DGTSV,
      $                   DGTSVX, DPBSV, DPBSVX, DPOSV, DPOSVX, DPPSV,
      $                   DPPSVX, DPTSV, DPTSVX, DSPSV, DSPSVX, DSYSV,
-     $                   DSYSV_AASEN, DSYSV_ROOK, DSYSVX
+     $                   DSYSV_AA, DSYSV_ROOK, DSYSVX
 *     ..
 *     .. Scalars in Common ..
       LOGICAL            LERR, OK
@@ -629,21 +629,21 @@
 *
       ELSE IF( LSAMEN( 2, C2, 'SA' ) ) THEN
 *
-*        DSYSV_AASEN
+*        DSYSV_AA
 *
-        SRNAMT = 'DSYSV_AASEN'
+        SRNAMT = 'DSYSV_AA'
         INFOT = 1
-        CALL DSYSV_AASEN( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO )
-        CALL CHKXER( 'DSYSV_AASEN', INFOT, NOUT, LERR, OK )
+        CALL DSYSV_AA( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO )
+        CALL CHKXER( 'DSYSV_AA', INFOT, NOUT, LERR, OK )
         INFOT = 2
-        CALL DSYSV_AASEN( 'U', -1, 0, A, 1, IP, B, 1, W, 1, INFO )
-        CALL CHKXER( 'DSYSV_AASEN', INFOT, NOUT, LERR, OK )
+        CALL DSYSV_AA( 'U', -1, 0, A, 1, IP, B, 1, W, 1, INFO )
+        CALL CHKXER( 'DSYSV_AA', INFOT, NOUT, LERR, OK )
         INFOT = 3
-        CALL DSYSV_AASEN( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
-        CALL CHKXER( 'DSYSV_AASEN', INFOT, NOUT, LERR, OK )
+        CALL DSYSV_AA( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
+        CALL CHKXER( 'DSYSV_AA', INFOT, NOUT, LERR, OK )
         INFOT = 8
-        CALL DSYSV_AASEN( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO )
-        CALL CHKXER( 'DSYSV_AASEN', INFOT, NOUT, LERR, OK )
+        CALL DSYSV_AA( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO )
+        CALL CHKXER( 'DSYSV_AA', INFOT, NOUT, LERR, OK )
 *
 
       ELSE IF( LSAMEN( 2, C2, 'SR' ) ) THEN
diff --git a/TESTING/LIN/dsyt01_aasen.f b/TESTING/LIN/dsyt01_aa.f
index f3756771..bc30df38 100644
--- a/TESTING/LIN/dsyt01_aasen.f
+++ b/TESTING/LIN/dsyt01_aa.f
@@ -123,7 +123,7 @@
 *> \ingroup double_lin
 *
 *  =====================================================================
-      SUBROUTINE DSYT01_AASEN( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C,
+      SUBROUTINE DSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C,
      $                         LDC, RWORK, RESID )
 *
 *  -- LAPACK test routine (version 3.5.0) --
diff --git a/TESTING/LIN/schkaa.f b/TESTING/LIN/schkaa.f
index b58a3a66..fef5de04 100644
--- a/TESTING/LIN/schkaa.f
+++ b/TESTING/LIN/schkaa.f
@@ -673,7 +673,7 @@
          CALL ALAREQ( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT )
 *
          IF( TSTCHK ) THEN
-            CALL SCHKSY_AASEN( DOTYPE, NN, NVAL, NNB2, NBVAL2, NNS,
+            CALL SCHKSY_AA( DOTYPE, NN, NVAL, NNB2, NBVAL2, NNS,
      $                         NSVAL, THRESH, TSTERR, LDA,
      $                         A( 1, 1 ), A( 1, 2 ), A( 1, 3 ),
      $                         B( 1, 1 ), B( 1, 2 ), B( 1, 3 ),
@@ -683,7 +683,7 @@
          END IF
 *
          IF( TSTDRV ) THEN
-            CALL SDRVSY_AASEN( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
+            CALL SDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
      $                         LDA, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ),
      $                         B( 1, 1 ), B( 1, 2 ), B( 1, 3 ),
      $                         WORK, RWORK, IWORK, NOUT )
diff --git a/TESTING/LIN/schksy_aasen.f b/TESTING/LIN/schksy_aa.f
index 659e3fd3..b1eca4ce 100644
--- a/TESTING/LIN/schksy_aasen.f
+++ b/TESTING/LIN/schksy_aa.f
@@ -1,4 +1,4 @@
-*> \brief \b SCHKSY_AASEN
+*> \brief \b SCHKSY_AA
 *
 *  =========== DOCUMENTATION ===========
 *
@@ -30,7 +30,7 @@
 *>
 *> \verbatim
 *>
-*> SCHKSY_AASEN tests SSYTRF_AASEN, -TRS_AASEN.
+*> SCHKSY_AA tests SSYTRF_AA, -TRS_AA.
 *> \endverbatim
 *
 *  Arguments:
@@ -167,7 +167,7 @@
 *> \ingroup real_lin
 *
 *  =====================================================================
-      SUBROUTINE SCHKSY_AASEN( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,
+      SUBROUTINE SCHKSY_AA( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,
      $                         THRESH, TSTERR, NMAX, A, AFAC, AINV, B,
      $                         X, XACT, WORK, RWORK, IWORK, NOUT )
 *
@@ -221,8 +221,8 @@
 *     .. External Subroutines ..
       EXTERNAL     ALAERH, ALAHD, ALASUM, SERRSY, SGET04, SLACPY,
      $             SLARHS, SLATB4, SLATMS, SPOT02, DPOT03, DPOT05,
-     $             DSYCON, SSYRFS, SSYT01_AASEN, SSYTRF_AASEN,
-     $             DSYTRI2, SSYTRS_AASEN, XLAENV
+     $             DSYCON, SSYRFS, SSYT01_AA, SSYTRF_AA,
+     $             DSYTRI2, SSYTRS_AA, XLAENV
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC    MAX, MIN
@@ -429,9 +429,9 @@
 *                 the block structure of D. AINV is a work array for
 *                 block factorization, LWORK is the length of AINV.
 *
-                  SRNAMT = 'SSYTRF_AASEN'
+                  SRNAMT = 'SSYTRF_AA'
                   LWORK = N*NB + N
-                  CALL SSYTRF_AASEN( UPLO, N, AFAC, LDA, IWORK, AINV, 
+                  CALL SSYTRF_AA( UPLO, N, AFAC, LDA, IWORK, AINV, 
      $                               LWORK, INFO )
 *
 *                 Adjust the expected value of INFO to account for
@@ -457,7 +457,7 @@
 *                 Check error code from SSYTRF and handle error.
 *
                   IF( INFO.NE.K ) THEN
-                     CALL ALAERH( PATH, 'SSYTRF_AASEN', INFO, K, UPLO, 
+                     CALL ALAERH( PATH, 'SSYTRF_AA', INFO, K, UPLO, 
      $                            N, N, -1, -1, NB, IMAT, NFAIL, NERRS, 
      $                            NOUT )
                   END IF
@@ -473,7 +473,7 @@
 *+    TEST 1
 *                 Reconstruct matrix from factors and compute residual.
 *
-                  CALL SSYT01_AASEN( UPLO, N, A, LDA, AFAC, LDA, IWORK,
+                  CALL SSYT01_AA( UPLO, N, A, LDA, AFAC, LDA, IWORK,
      $                               AINV, LDA, RWORK, RESULT( 1 ) )
                   NT = 1
 *
@@ -516,16 +516,16 @@
      $                            B, LDA, ISEED, INFO )
                      CALL SLACPY( 'Full', N, NRHS, B, LDA, X, LDA )
 *
-                     SRNAMT = 'SSYTRS_AASEN'
+                     SRNAMT = 'SSYTRS_AA'
                      LWORK = 3*N-2
-                     CALL SSYTRS_AASEN( UPLO, N, NRHS, AFAC, LDA, 
+                     CALL SSYTRS_AA( UPLO, N, NRHS, AFAC, LDA, 
      $                                  IWORK, X, LDA, WORK, LWORK,
      $                                  INFO )
 *
 *                    Check error code from SSYTRS and handle error.
 *
                      IF( INFO.NE.0 ) THEN
-                        CALL ALAERH( PATH, 'SSYTRS_AASEN', INFO, 0,
+                        CALL ALAERH( PATH, 'SSYTRS_AA', INFO, 0,
      $                               UPLO, N, N, -1, -1, NRHS, IMAT, 
      $                               NFAIL, NERRS, NOUT )
                      END IF
@@ -573,6 +573,6 @@
      $      I6 )
       RETURN
 *
-*     End of SCHKSY_AASEN
+*     End of SCHKSY_AA
 *
       END
diff --git a/TESTING/LIN/sdrvsy_aasen.f b/TESTING/LIN/sdrvsy_aa.f
index afa5dc49..001c67c1 100644
--- a/TESTING/LIN/sdrvsy_aasen.f
+++ b/TESTING/LIN/sdrvsy_aa.f
@@ -1,4 +1,4 @@
-*> \brief \b SDRVSY_AASEN
+*> \brief \b SDRVSY_AA
 *
 *  =========== DOCUMENTATION ===========
 *
@@ -8,7 +8,7 @@
 *  Definition:
 *  ===========
 *
-*       SUBROUTINE SDRVSY_AASEN( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX,
+*       SUBROUTINE SDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX,
 *                          A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK,
 *                          NOUT )
 *
@@ -30,7 +30,7 @@
 *>
 *> \verbatim
 *>
-*> SDRVSY_AASEN tests the driver routine SSYSV_AASEN.
+*> SDRVSY_AA tests the driver routine SSYSV_AA.
 *> \endverbatim
 *
 *  Arguments:
@@ -148,7 +148,7 @@
 *> \ingroup real_lin
 *
 *  =====================================================================
-      SUBROUTINE SDRVSY_AASEN( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
+      SUBROUTINE SDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
      $                         NMAX, A, AFAC, AINV, B, X, XACT, WORK,
      $                         RWORK, IWORK, NOUT )
 *
@@ -200,7 +200,7 @@
 *     .. External Subroutines ..
       EXTERNAL           ALADHD, ALAERH, ALASVM, SERRVX, SGET04, SLACPY,
      $                   SLARHS, SLASET, SLATB4, SLATMS, SPOT02, DPOT05,
-     $                   SSYSV_AASEN, SSYT01_AASEN, SSYTRF_AASEN, XLAENV
+     $                   SSYSV_AA, SSYT01_AA, SSYTRF_AA, XLAENV
 *     ..
 *     .. Scalars in Common ..
       LOGICAL            LERR, OK
@@ -420,16 +420,16 @@ c                     END IF
      $                         INFO )
                   XTYPE = 'C'
 *
-*                 --- Test SSYSV_AASEN  ---
+*                 --- Test SSYSV_AA  ---
 *
                   IF( IFACT.EQ.2 ) THEN
                      CALL SLACPY( UPLO, N, N, A, LDA, AFAC, LDA )
                      CALL SLACPY( 'Full', N, NRHS, B, LDA, X, LDA )
 *
-*                    Factor the matrix and solve the system using SSYSV_AASEN.
+*                    Factor the matrix and solve the system using SSYSV_AA.
 *
-                     SRNAMT = 'SSYSV_AASEN'
-                     CALL SSYSV_AASEN( UPLO, N, NRHS, AFAC, LDA, IWORK,
+                     SRNAMT = 'SSYSV_AA'
+                     CALL SSYSV_AA( UPLO, N, NRHS, AFAC, LDA, IWORK,
      $                                 X, LDA, WORK, LWORK, INFO )
 *
 *                    Adjust the expected value of INFO to account for
@@ -452,10 +452,10 @@ c                     END IF
                         K = 0
                      END IF
 *
-*                    Check error code from SSYSV_AASEN .
+*                    Check error code from SSYSV_AA .
 *
                      IF( INFO.NE.K ) THEN
-                        CALL ALAERH( PATH, 'SSYSV_AASEN ', INFO, K, 
+                        CALL ALAERH( PATH, 'SSYSV_AA ', INFO, K, 
      $                               UPLO, N, N, -1, -1, NRHS, 
      $                               IMAT, NFAIL, NERRS, NOUT )
                         GO TO 120
@@ -466,7 +466,7 @@ c                     END IF
 *                    Reconstruct matrix from factors and compute
 *                    residual.
 *
-                     CALL SSYT01_AASEN( UPLO, N, A, LDA, AFAC, LDA,
+                     CALL SSYT01_AA( UPLO, N, A, LDA, AFAC, LDA,
      $                                  IWORK, AINV, LDA, RWORK, 
      $                                  RESULT( 1 ) )
 *
@@ -489,7 +489,7 @@ c                     END IF
                         IF( RESULT( K ).GE.THRESH ) THEN
                            IF( NFAIL.EQ.0 .AND. NERRS.EQ.0 )
      $                        CALL ALADHD( NOUT, PATH )
-                           WRITE( NOUT, FMT = 9999 )'SSYSV_AASEN ',
+                           WRITE( NOUT, FMT = 9999 )'SSYSV_AA ',
      $                        UPLO, N, IMAT, K, RESULT( K )
                            NFAIL = NFAIL + 1
                         END IF
@@ -512,6 +512,6 @@ c                     END IF
      $      ', test ', I2, ', ratio =', G12.5 )
       RETURN
 *
-*     End of SDRVSY_AASEN
+*     End of SDRVSY_AA
 *
       END
diff --git a/TESTING/LIN/serrvx.f b/TESTING/LIN/serrvx.f
index 41334f5c..6bb49238 100644
--- a/TESTING/LIN/serrvx.f
+++ b/TESTING/LIN/serrvx.f
@@ -91,7 +91,7 @@
       EXTERNAL           CHKXER, SGBSV, SGBSVX, SGESV, SGESVX, SGTSV,
      $                   SGTSVX, SPBSV, SPBSVX, SPOSV, SPOSVX, SPPSV,
      $                   SPPSVX, SPTSV, SPTSVX, SSPSV, SSPSVX, SSYSV,
-     $                   SSYSV_AASEN, SSYSV_ROOK, SSYSVX
+     $                   SSYSV_AA, SSYSV_ROOK, SSYSVX
 *     ..
 *     .. Scalars in Common ..
       LOGICAL            LERR, OK
@@ -629,21 +629,21 @@
 *
       ELSE IF( LSAMEN( 2, C2, 'SA' ) ) THEN
 *
-*        SSYSV_AASEN
+*        SSYSV_AA
 *
-        SRNAMT = 'SSYSV_AASEN'
+        SRNAMT = 'SSYSV_AA'
         INFOT = 1
-        CALL SSYSV_AASEN( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO )
-        CALL CHKXER( 'SSYSV_AASEN', INFOT, NOUT, LERR, OK )
+        CALL SSYSV_AA( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO )
+        CALL CHKXER( 'SSYSV_AA', INFOT, NOUT, LERR, OK )
         INFOT = 2
-        CALL SSYSV_AASEN( 'U', -1, 0, A, 1, IP, B, 1, W, 1, INFO )
-        CALL CHKXER( 'SSYSV_AASEN', INFOT, NOUT, LERR, OK )
+        CALL SSYSV_AA( 'U', -1, 0, A, 1, IP, B, 1, W, 1, INFO )
+        CALL CHKXER( 'SSYSV_AA', INFOT, NOUT, LERR, OK )
         INFOT = 3
-        CALL SSYSV_AASEN( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
-        CALL CHKXER( 'SSYSV_AASEN', INFOT, NOUT, LERR, OK )
+        CALL SSYSV_AA( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
+        CALL CHKXER( 'SSYSV_AA', INFOT, NOUT, LERR, OK )
         INFOT = 8
-        CALL SSYSV_AASEN( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO )
-        CALL CHKXER( 'SSYSV_AASEN', INFOT, NOUT, LERR, OK )
+        CALL SSYSV_AA( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO )
+        CALL CHKXER( 'SSYSV_AA', INFOT, NOUT, LERR, OK )
 *
       ELSE IF( LSAMEN( 2, C2, 'SR' ) ) THEN
 *
diff --git a/TESTING/LIN/ssyt01_aasen.f b/TESTING/LIN/ssyt01_aa.f
index 01163938..0e72fa71 100644
--- a/TESTING/LIN/ssyt01_aasen.f
+++ b/TESTING/LIN/ssyt01_aa.f
@@ -1,4 +1,4 @@
-*> \brief \b SSYT01_AASEN
+*> \brief \b SSYT01_AA
 *
 *  =========== DOCUMENTATION ===========
 *
@@ -8,7 +8,7 @@
 *  Definition:
 *  ===========
 *
-*       SUBROUTINE SSYT01_AASEN( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV,
+*       SUBROUTINE SSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV,
 *                          C, LDC, RWORK, RESID )
 *
 *       .. Scalar Arguments ..
@@ -28,7 +28,7 @@
 *>
 *> \verbatim
 *>
-*> SSYT01_AASEN reconstructs a symmetric indefinite matrix A from its
+*> SSYT01_AA reconstructs a symmetric indefinite matrix A from its
 *> block L*D*L' or U*D*U' factorization and computes the residual
 *>    norm( C - A ) / ( N * norm(A) * EPS ),
 *> where C is the reconstructed matrix and EPS is the machine epsilon.
@@ -122,7 +122,7 @@
 *> \ingroup real_lin
 *
 *  =====================================================================
-      SUBROUTINE SSYT01_AASEN( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C,
+      SUBROUTINE SSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C,
      $                         LDC, RWORK, RESID )
 *
 *  -- LAPACK test routine (version 3.7.0) --
@@ -257,6 +257,6 @@
 *
       RETURN
 *
-*     End of SSYT01_AASEN
+*     End of SSYT01_AA
 *
       END
diff --git a/TESTING/LIN/zchkaa.f b/TESTING/LIN/zchkaa.f
index b5830619..22885568 100644
--- a/TESTING/LIN/zchkaa.f
+++ b/TESTING/LIN/zchkaa.f
@@ -650,7 +650,7 @@
          CALL ALAREQ( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT )
 *
          IF( TSTCHK ) THEN
-            CALL ZCHKHE_AASEN( DOTYPE, NN, NVAL, NNB2, NBVAL2, NNS,
+            CALL ZCHKHE_AA( DOTYPE, NN, NVAL, NNB2, NBVAL2, NNS,
      $                         NSVAL, THRESH, TSTERR, LDA, 
      $                         A( 1, 1 ), A( 1, 2 ), A( 1, 3 ),
      $                         B( 1, 1 ), B( 1, 2 ), B( 1, 3 ),
@@ -660,7 +660,7 @@
          END IF
 *
          IF( TSTDRV ) THEN
-            CALL ZDRVHE_AASEN( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
+            CALL ZDRVHE_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
      $                         LDA, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ), 
      $                              B( 1, 1 ), B( 1, 2 ), B( 1, 3 ), 
      $                         WORK, RWORK, IWORK, NOUT )
diff --git a/TESTING/LIN/zchkhe_aasen.f b/TESTING/LIN/zchkhe_aa.f
index 1ebe5ef4..02901d01 100644
--- a/TESTING/LIN/zchkhe_aasen.f
+++ b/TESTING/LIN/zchkhe_aa.f
@@ -1,4 +1,4 @@
-*> \brief \b ZCHKHE_AASEN
+*> \brief \b ZCHKHE_AA
 *
 *  =========== DOCUMENTATION ===========
 *
@@ -8,7 +8,7 @@
 *  Definition:
 *  ===========
 *
-*       SUBROUTINE ZCHKHE_AASEN( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,
+*       SUBROUTINE ZCHKHE_AA( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,
 *                                THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X,
 *                                XACT, WORK, RWORK, IWORK, NOUT )
 *
@@ -31,7 +31,7 @@
 *>
 *> \verbatim
 *>
-*> ZCHKHE_AASEN tests ZHETRF_AASEN, -TRS_AASEN.
+*> ZCHKHE_AA tests ZHETRF_AA, -TRS_AA.
 *> \endverbatim
 *
 *  Arguments:
@@ -168,7 +168,7 @@
 *> \ingroup complex16_lin
 *
 *  =====================================================================
-      SUBROUTINE ZCHKHE_AASEN( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,
+      SUBROUTINE ZCHKHE_AA( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,
      $                         THRESH, TSTERR, NMAX, A, AFAC, AINV, B,
      $                         X, XACT, WORK, RWORK, IWORK, NOUT )
 *
@@ -224,8 +224,8 @@
 *     ..
 *     .. External Subroutines ..
       EXTERNAL           ALAERH, ALAHD, ALASUM, XLAENV, ZERRHE, ZGET04,
-     $                   ZHECON, ZHERFS, ZHET01, ZHETRF_AASEN, ZHETRI2,
-     $                   ZHETRS_AASEN, ZLACPY, ZLAIPD, ZLARHS, ZLATB4, 
+     $                   ZHECON, ZHERFS, ZHET01, ZHETRF_AA, ZHETRI2,
+     $                   ZHETRS_AA, ZLACPY, ZLAIPD, ZLARHS, ZLATB4, 
      $                   ZLATMS, ZPOT02, ZPOT03, ZPOT05
 *     ..
 *     .. Intrinsic Functions ..
@@ -431,8 +431,8 @@
 *                 block factorization, LWORK is the length of AINV.
 *
                   LWORK = ( NB+1 )*LDA
-                  SRNAMT = 'ZHETRF_AASEN'
-                  CALL ZHETRF_AASEN( UPLO, N, AFAC, LDA, IWORK, AINV, 
+                  SRNAMT = 'ZHETRF_AA'
+                  CALL ZHETRF_AA( UPLO, N, AFAC, LDA, IWORK, AINV, 
      $                               LWORK, INFO )
 *
 *                 Adjust the expected value of INFO to account for
@@ -458,7 +458,7 @@
 *                 Check error code from ZHETRF and handle error.
 *
                   IF( INFO.NE.K ) THEN
-                     CALL ALAERH( PATH, 'ZHETRF_AASEN', INFO, K, UPLO, 
+                     CALL ALAERH( PATH, 'ZHETRF_AA', INFO, K, UPLO, 
      $                            N, N, -1, -1, NB, IMAT, NFAIL, NERRS, 
      $                            NOUT )
                   END IF
@@ -474,7 +474,7 @@
 *+    TEST 1
 *                 Reconstruct matrix from factors and compute residual.
 *
-                  CALL ZHET01_AASEN( UPLO, N, A, LDA, AFAC, LDA, IWORK,
+                  CALL ZHET01_AA( UPLO, N, A, LDA, AFAC, LDA, IWORK,
      $                               AINV, LDA, RWORK, RESULT( 1 ) )
                   NT = 1
 *
@@ -517,9 +517,9 @@
      $                            B, LDA, ISEED, INFO )
                      CALL ZLACPY( 'Full', N, NRHS, B, LDA, X, LDA )
 *
-                     SRNAMT = 'ZHETRS_AASEN'
+                     SRNAMT = 'ZHETRS_AA'
                      LWORK = 3*N-2
-                     CALL ZHETRS_AASEN( UPLO, N, NRHS, AFAC, LDA, IWORK,
+                     CALL ZHETRS_AA( UPLO, N, NRHS, AFAC, LDA, IWORK,
      $                                  X, LDA, WORK, LWORK, INFO )
 *
 *                    Check error code from ZHETRS and handle error.
@@ -574,6 +574,6 @@ c     $      ', test(', I2, ') =', G12.5 )
      $      I6 )
       RETURN
 *
-*     End of ZCHKHE_AASEN
+*     End of ZCHKHE_AA
 *
       END
diff --git a/TESTING/LIN/zdrvhe_aasen.f b/TESTING/LIN/zdrvhe_aa.f
index 0170873e..e9a93491 100644
--- a/TESTING/LIN/zdrvhe_aasen.f
+++ b/TESTING/LIN/zdrvhe_aa.f
@@ -1,4 +1,4 @@
-*> \brief \b ZDRVHE_AASEN
+*> \brief \b ZDRVHE_AA
 *
 *  =========== DOCUMENTATION ===========
 *
@@ -8,7 +8,7 @@
 *  Definition:
 *  ===========
 *
-*       SUBROUTINE ZDRVHE_AASEN( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX,
+*       SUBROUTINE ZDRVHE_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX,
 *                                A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK,
 *                                NOUT )
 *
@@ -31,7 +31,7 @@
 *>
 *> \verbatim
 *>
-*> ZDRVHE_AASEN tests the driver routine ZHESV_AASEN.
+*> ZDRVHE_AA tests the driver routine ZHESV_AA.
 *> \endverbatim
 *
 *  Arguments:
@@ -149,7 +149,7 @@
 *> \ingroup complex16_lin
 *
 *  =====================================================================
-      SUBROUTINE ZDRVHE_AASEN( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
+      SUBROUTINE ZDRVHE_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
      $                         NMAX, A, AFAC, AINV, B, X, XACT, WORK, 
      $                         RWORK, IWORK, NOUT )
 *
@@ -201,7 +201,7 @@
 *     ..
 *     .. External Subroutines ..
       EXTERNAL           ALADHD, ALAERH, ALASVM, XLAENV, ZERRVX, ZGET04,
-     $                   ZHESV_AASEN, ZHET01_AASEN, ZHETRF_AASEN, 
+     $                   ZHESV_AA, ZHET01_AA, ZHETRF_AA, 
      $                   ZHETRI2, ZLACPY, ZLAIPD, ZLARHS, ZLATB4, ZLATMS,
      $                   ZPOT02
 *     ..
@@ -428,7 +428,7 @@ c                     END IF
      $                         INFO )
                   XTYPE = 'C'
 *
-*                 --- Test ZHESV_AASEN  ---
+*                 --- Test ZHESV_AA  ---
 *
                   IF( IFACT.EQ.2 ) THEN
                      CALL ZLACPY( UPLO, N, N, A, LDA, AFAC, LDA )
@@ -436,8 +436,8 @@ c                     END IF
 *
 *                    Factor the matrix and solve the system using ZHESV.
 *
-                     SRNAMT = 'ZHESV_AASEN '
-                     CALL ZHESV_AASEN( UPLO, N, NRHS, AFAC, LDA, IWORK,
+                     SRNAMT = 'ZHESV_AA '
+                     CALL ZHESV_AA( UPLO, N, NRHS, AFAC, LDA, IWORK,
      $                                 X, LDA, WORK, LWORK, INFO )
 *
 *                    Adjust the expected value of INFO to account for
@@ -463,7 +463,7 @@ c                     END IF
 *                    Check error code from ZHESV .
 *
                      IF( INFO.NE.K ) THEN
-                        CALL ALAERH( PATH, 'ZHESV_AASEN', INFO, K, UPLO, N,
+                        CALL ALAERH( PATH, 'ZHESV_AA', INFO, K, UPLO, N,
      $                               N, -1, -1, NRHS, IMAT, NFAIL,
      $                               NERRS, NOUT )
                         GO TO 120
@@ -474,7 +474,7 @@ c                     END IF
 *                    Reconstruct matrix from factors and compute
 *                    residual.
 *
-                     CALL ZHET01_AASEN( UPLO, N, A, LDA, AFAC, LDA,
+                     CALL ZHET01_AA( UPLO, N, A, LDA, AFAC, LDA,
      $                                  IWORK, AINV, LDA, RWORK, 
      $                                  RESULT( 1 ) )
 *
@@ -497,7 +497,7 @@ c                     END IF
                         IF( RESULT( K ).GE.THRESH ) THEN
                            IF( NFAIL.EQ.0 .AND. NERRS.EQ.0 )
      $                        CALL ALADHD( NOUT, PATH )
-                           WRITE( NOUT, FMT = 9999 )'ZHESV_AASEN', UPLO, N,
+                           WRITE( NOUT, FMT = 9999 )'ZHESV_AA', UPLO, N,
      $                        IMAT, K, RESULT( K )
                            NFAIL = NFAIL + 1
                         END IF
@@ -520,6 +520,6 @@ c                     END IF
      $      ', test ', I2, ', ratio =', G12.5 )
        RETURN
 *
-*     End of ZDRVHE_AASEN
+*     End of ZDRVHE_AA
 *
       END
diff --git a/TESTING/LIN/zerrvx.f b/TESTING/LIN/zerrvx.f
index 1bb2d222..ca0618b2 100644
--- a/TESTING/LIN/zerrvx.f
+++ b/TESTING/LIN/zerrvx.f
@@ -93,7 +93,7 @@
      $                   ZGTSVX, ZHESV, ZHESV_ROOK, ZHESVX, ZHPSV,
      $                   ZHPSVX, ZPBSV, ZPBSVX, ZPOSV, ZPOSVX, ZPPSV,
      $                   ZPPSVX, ZPTSV, ZPTSVX, ZSPSV, ZSPSVX, ZSYSV,
-     $                   ZSYSV_AASEN, ZSYSV_ROOK, ZSYSVX
+     $                   ZSYSV_AA, ZSYSV_ROOK, ZSYSVX
 *     ..
 *     .. Scalars in Common ..
       LOGICAL            LERR, OK
@@ -636,21 +636,21 @@
 *
       ELSE IF( LSAMEN( 2, C2, 'HA' ) ) THEN
 *
-*        ZHESV_AASEN
+*        ZHESV_AA
 *
-        SRNAMT = 'ZHESV_AASEN'
+        SRNAMT = 'ZHESV_AA'
         INFOT = 1
-        CALL ZHESV_AASEN( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO )
-        CALL CHKXER( 'ZHESV_AASEN', INFOT, NOUT, LERR, OK )
+        CALL ZHESV_AA( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO )
+        CALL CHKXER( 'ZHESV_AA', INFOT, NOUT, LERR, OK )
         INFOT = 2
-        CALL ZHESV_AASEN( 'U', -1, 0, A, 1, IP, B, 1, W, 1, INFO )
-        CALL CHKXER( 'ZHESV_AASEN', INFOT, NOUT, LERR, OK )
+        CALL ZHESV_AA( 'U', -1, 0, A, 1, IP, B, 1, W, 1, INFO )
+        CALL CHKXER( 'ZHESV_AA', INFOT, NOUT, LERR, OK )
         INFOT = 3
-        CALL ZHESV_AASEN( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
-        CALL CHKXER( 'ZHESV_AASEN', INFOT, NOUT, LERR, OK )
+        CALL ZHESV_AA( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
+        CALL CHKXER( 'ZHESV_AA', INFOT, NOUT, LERR, OK )
         INFOT = 8
-        CALL ZHESV_AASEN( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO )
-        CALL CHKXER( 'ZHESV_AASEN', INFOT, NOUT, LERR, OK )
+        CALL ZHESV_AA( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO )
+        CALL CHKXER( 'ZHESV_AA', INFOT, NOUT, LERR, OK )
 *
 
       ELSE IF( LSAMEN( 2, C2, 'HR' ) ) THEN
diff --git a/TESTING/LIN/zhet01_aasen.f b/TESTING/LIN/zhet01_aa.f
index 89b87990..13bf991e 100644
--- a/TESTING/LIN/zhet01_aasen.f
+++ b/TESTING/LIN/zhet01_aa.f
@@ -1,4 +1,4 @@
-*> \brief \b ZHET01_AASEN
+*> \brief \b ZHET01_AA
 *
 *  =========== DOCUMENTATION ===========
 *
@@ -8,7 +8,7 @@
 *  Definition:
 *  ===========
 *
-*       SUBROUTINE ZHET01_AASEN( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV,
+*       SUBROUTINE ZHET01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV,
 *                          C, LDC, RWORK, RESID )
 *
 *       .. Scalar Arguments ..
@@ -28,7 +28,7 @@
 *>
 *> \verbatim
 *>
-*> ZHET01_AASEN reconstructs a hermitian indefinite matrix A from its
+*> ZHET01_AA reconstructs a hermitian indefinite matrix A from its
 *> block L*D*L' or U*D*U' factorization and computes the residual
 *>    norm( C - A ) / ( N * norm(A) * EPS ),
 *> where C is the reconstructed matrix and EPS is the machine epsilon.
@@ -122,7 +122,7 @@
 *> \ingroup complex16_lin
 *
 *  =====================================================================
-      SUBROUTINE ZHET01_AASEN( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C,
+      SUBROUTINE ZHET01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C,
      $                         LDC, RWORK, RESID )
 *
 *  -- LAPACK test routine (version 3.7.0) --
@@ -262,6 +262,6 @@
 *
       RETURN
 *
-*     End of ZHET01_AASEN
+*     End of ZHET01_AA
 *
       END