slaqtr.f slar1v.f slar2v.f ilaslr.f ilaslc.f
slarf.f slarfb.f slarfg.f slarfgp.f slarft.f slarfx.f slargv.f
slarrv.f slartv.f
- slarz.f slarzb.f slarzt.f slaswp.f slasy2.f slasyf.f slasyf_rook.f slasyf_aasen.f
+ slarz.f slarzb.f slarzt.f slaswp.f slasy2.f slasyf.f slasyf_rook.f slasyf_aa.f
slatbs.f slatdf.f slatps.f slatrd.f slatrs.f slatrz.f
slauu2.f slauum.f sopgtr.f sopmtr.f sorg2l.f sorg2r.f
sorgbr.f sorghr.f sorgl2.f sorglq.f sorgql.f sorgqr.f sorgr2.f
ssygst.f ssygv.f ssygvd.f ssygvx.f ssyrfs.f ssysv.f ssysvx.f
ssytd2.f ssytf2.f ssytrd.f ssytrf.f ssytri.f ssytri2.f ssytri2x.f
ssyswapr.f ssytrs.f ssytrs2.f ssyconv.f
- ssysv_aasen.f ssytrf_aasen.f ssytrs_aasen.f
+ ssysv_aa.f ssytrf_aa.f ssytrs_aa.f
ssytf2_rook.f ssytrf_rook.f ssytrs_rook.f
ssytri_rook.f ssycon_rook.f ssysv_rook.f
stbcon.f
chetf2.f chetrd.f
chetrf.f chetri.f chetri2.f chetri2x.f cheswapr.f
chetrs.f chetrs2.f
- chesv_aasen.f chetrf_aasen.f chetrs_aasen.f
+ chesv_aa.f chetrf_aa.f chetrs_aa.f
chetf2_rook.f chetrf_rook.f chetri_rook.f chetrs_rook.f checon_rook.f chesv_rook.f
chgeqz.f chpcon.f chpev.f chpevd.f
chpevx.f chpgst.f chpgv.f chpgvd.f chpgvx.f chprfs.f chpsv.f
clacgv.f clacon.f clacn2.f clacp2.f clacpy.f clacrm.f clacrt.f cladiv.f
claed0.f claed7.f claed8.f
claein.f claesy.f claev2.f clags2.f clagtm.f
- clahef.f clahef_rook.f clahef_aasen.f clahqr.f
+ clahef.f clahef_rook.f clahef_aa.f clahqr.f
clahr2.f claic1.f clals0.f clalsa.f clalsd.f clangb.f clange.f clangt.f
clanhb.f clanhe.f
clanhp.f clanhs.f clanht.f clansb.f clansp.f clansy.f clantb.f
dlaqtr.f dlar1v.f dlar2v.f iladlr.f iladlc.f
dlarf.f dlarfb.f dlarfg.f dlarfgp.f dlarft.f dlarfx.f dlargv.f
dlarrv.f dlartv.f
- dlarz.f dlarzb.f dlarzt.f dlaswp.f dlasy2.f dlasyf.f dlasyf_rook.f dlasyf_aasen.f
+ dlarz.f dlarzb.f dlarzt.f dlaswp.f dlasy2.f dlasyf.f dlasyf_rook.f dlasyf_aa.f
dlatbs.f dlatdf.f dlatps.f dlatrd.f dlatrs.f dlatrz.f dlauu2.f
dlauum.f dopgtr.f dopmtr.f dorg2l.f dorg2r.f
dorgbr.f dorghr.f dorgl2.f dorglq.f dorgql.f dorgqr.f dorgr2.f
dsysv.f dsysvx.f
dsytd2.f dsytf2.f dsytrd.f dsytrf.f dsytri.f dsytrs.f dsytrs2.f
dsytri2.f dsytri2x.f dsyswapr.f dsyconv.f
- dsysv_aasen.f dsytrf_aasen.f dsytrs_aasen.f
+ dsysv_aa.f dsytrf_aa.f dsytrs_aa.f
dsytf2_rook.f dsytrf_rook.f dsytrs_rook.f
dsytri_rook.f dsycon_rook.f dsysv_rook.f
dtbcon.f
zhetf2.f zhetrd.f
zhetrf.f zhetri.f zhetri2.f zhetri2x.f zheswapr.f
zhetrs.f zhetrs2.f
- zhesv_aasen.f zhetrf_aasen.f zhetrs_aasen.f
+ zhesv_aa.f zhetrf_aa.f zhetrs_aa.f
zhetf2_rook.f zhetrf_rook.f zhetri_rook.f zhetrs_rook.f zhecon_rook.f zhesv_rook.f
zhgeqz.f zhpcon.f zhpev.f zhpevd.f
zhpevx.f zhpgst.f zhpgv.f zhpgvd.f zhpgvx.f zhprfs.f zhpsv.f
zlacgv.f zlacon.f zlacn2.f zlacp2.f zlacpy.f zlacrm.f zlacrt.f zladiv.f
zlaed0.f zlaed7.f zlaed8.f
zlaein.f zlaesy.f zlaev2.f zlags2.f zlagtm.f
- zlahef.f zlahef_rook.f zlahef_aasen.f zlahqr.f
+ zlahef.f zlahef_rook.f zlahef_aa.f zlahqr.f
zlahr2.f zlaic1.f zlals0.f zlalsa.f zlalsd.f zlangb.f zlange.f
zlangt.f zlanhb.f
zlanhe.f
ssytd2.o ssytf2.o ssytrd.o ssytrf.o ssytri.o ssytri2.o ssytri2x.o \
ssyswapr.o ssytrs.o ssytrs2.o ssyconv.o \
ssytf2_rook.o ssytrf_rook.o ssytrs_rook.o \
- slasyf_aasen.o ssysv_aasen.o ssytrf_aasen.o ssytrs_aasen.o \
+ slasyf_aa.o ssysv_aa.o ssytrf_aa.o ssytrs_aa.o \
ssytri_rook.o ssycon_rook.o ssysv_rook.o \
stbcon.o \
stbrfs.o stbtrs.o stgevc.o stgex2.o stgexc.o stgsen.o \
chetrf.o chetri.o chetri2.o chetri2x.o cheswapr.o \
chetrs.o chetrs2.o \
chetf2_rook.o chetrf_rook.o chetri_rook.o chetrs_rook.o checon_rook.o chesv_rook.o \
- chesv_aasen.o chetrf_aasen.o chetrs_aasen.o clahef_aasen.o\
+ chesv_aa.o chetrf_aa.o chetrs_aa.o clahef_aa.o\
chgeqz.o chpcon.o chpev.o chpevd.o \
chpevx.o chpgst.o chpgv.o chpgvd.o chpgvx.o chprfs.o chpsv.o \
chpsvx.o \
dsytd2.o dsytf2.o dsytrd.o dsytrf.o dsytri.o dsytri2.o dsytri2x.o \
dsyswapr.o dsytrs.o dsytrs2.o dsyconv.o \
dsytf2_rook.o dsytrf_rook.o dsytrs_rook.o \
- dlasyf_aasen.o dsysv_aasen.o dsytrf_aasen.o dsytrs_aasen.o \
+ dlasyf_aa.o dsysv_aa.o dsytrf_aa.o dsytrs_aa.o \
dsytri_rook.o dsycon_rook.o dsysv_rook.o \
dtbcon.o dtbrfs.o dtbtrs.o dtgevc.o dtgex2.o dtgexc.o dtgsen.o \
dtgsja.o dtgsna.o dtgsy2.o dtgsyl.o dtpcon.o dtprfs.o dtptri.o \
zhetrf.o zhetri.o zhetri2.o zhetri2x.o zheswapr.o \
zhetrs.o zhetrs2.o \
zhetf2_rook.o zhetrf_rook.o zhetri_rook.o zhetrs_rook.o zhecon_rook.o zhesv_rook.o \
- zhesv_aasen.o zhetrf_aasen.o zhetrs_aasen.o zlahef_aasen.o \
+ zhesv_aa.o zhetrf_aa.o zhetrs_aa.o zlahef_aa.o \
zhgeqz.o zhpcon.o zhpev.o zhpevd.o \
zhpevx.o zhpgst.o zhpgv.o zhpgvd.o zhpgvx.o zhprfs.o zhpsv.o \
zhpsvx.o \
-*> \brief <b> CHESV_AASEN computes the solution to system of linear equations A * X = B for HE matrices</b>
+*> \brief <b> CHESV_AA computes the solution to system of linear equations A * X = B for HE matrices</b>
*
* =========== DOCUMENTATION ===========
*
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download CHESV_AASEN + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/chesv_aasen.f">
+*> Download CHESV_AA + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/chesv_aa.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/chesv_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/chesv_aa.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/chesv_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/chesv_aa.f">
*> [TXT]</a>
*> \endhtmlonly
*
* Definition:
* ===========
*
-* SUBROUTINE CHESV_AASEN( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
+* SUBROUTINE CHESV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
* LWORK, INFO )
*
* .. Scalar Arguments ..
*>
*> \verbatim
*>
-*> CHESV_AASEN computes the solution to a complex system of linear equations
+*> CHESV_AA computes the solution to a complex system of linear equations
*> A * X = B,
*> where A is an N-by-N Hermitian matrix and X and B are N-by-NRHS
*> matrices.
*> On exit, if INFO = 0, the tridiagonal matrix T and the
*> multipliers used to obtain the factor U or L from the
*> factorization A = U*T*U**H or A = L*T*L**H as computed by
-*> CHETRF_AASEN.
+*> CHETRF_AA.
*> \endverbatim
*>
*> \param[in] LDA
*> \ingroup complexHEsolve
*
* =====================================================================
- SUBROUTINE CHESV_AASEN( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
+ SUBROUTINE CHESV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
$ LWORK, INFO )
*
* -- LAPACK driver routine (version 3.7.0) --
END IF
*
IF( INFO.EQ.0 ) THEN
- NB = ILAENV( 1, 'CHETRF_AASEN', UPLO, N, -1, -1, -1 )
+ NB = ILAENV( 1, 'CHETRF_AA', UPLO, N, -1, -1, -1 )
LWKOPT = MAX( 3*N-2, (1+NB)*N )
WORK( 1 ) = LWKOPT
END IF
*
IF( INFO.NE.0 ) THEN
- CALL XERBLA( 'CHESV_AASEN ', -INFO )
+ CALL XERBLA( 'CHESV_AA ', -INFO )
RETURN
ELSE IF( LQUERY ) THEN
RETURN
*
* Compute the factorization A = U*T*U**H or A = L*T*L**H.
*
- CALL CHETRF_AASEN( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO )
+ CALL CHETRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO )
IF( INFO.EQ.0 ) THEN
*
* Solve the system A*X = B, overwriting B with X.
*
- CALL CHETRS_AASEN( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
+ CALL CHETRS_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
$ LWORK, INFO )
*
END IF
*
RETURN
*
-* End of CHESV_AASEN
+* End of CHESV_AA
*
END
-*> \brief \b CHETRF_AASEN
+*> \brief \b CHETRF_AA
*
* =========== DOCUMENTATION ===========
*
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download CHETRF_AASEN + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/chetrf_aasen.f">
+*> Download CHETRF_AA + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/chetrf_aa.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/chetrf_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/chetrf_aa.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/chetrf_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/chetrf_aa.f">
*> [TXT]</a>
*> \endhtmlonly
*
* Definition:
* ===========
*
-* SUBROUTINE CHETRF_AASEN( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO )
+* SUBROUTINE CHETRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO )
*
* .. Scalar Arguments ..
* CHARACTER UPLO
*>
*> \verbatim
*>
-*> CHETRF_AASEN computes the factorization of a complex hermitian matrix A
+*> CHETRF_AA computes the factorization of a complex hermitian matrix A
*> using the Aasen's algorithm. The form of the factorization is
*>
*> A = U*T*U**T or A = L*T*L**T
*> \ingroup complexHEcomputational
*
* =====================================================================
- SUBROUTINE CHETRF_AASEN( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
+ SUBROUTINE CHETRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
*
* -- LAPACK computational routine (version 3.7.0) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
END IF
*
IF( INFO.NE.0 ) THEN
- CALL XERBLA( 'CHETRF_AASEN', -INFO )
+ CALL XERBLA( 'CHETRF_AA', -INFO )
RETURN
ELSE IF( LQUERY ) THEN
RETURN
*
* Panel factorization
*
- CALL CLAHEF_AASEN( UPLO, 2-K1, N-J, JB,
+ CALL CLAHEF_AA( UPLO, 2-K1, N-J, JB,
$ A( MAX(1, J), J+1 ), LDA,
$ IPIV( J+1 ), WORK, N, WORK( N*NB+1 ),
$ IINFO )
*
* Panel factorization
*
- CALL CLAHEF_AASEN( UPLO, 2-K1, N-J, JB,
+ CALL CLAHEF_AA( UPLO, 2-K1, N-J, JB,
$ A( J+1, MAX(1, J) ), LDA,
$ IPIV( J+1 ), WORK, N, WORK( N*NB+1 ), IINFO)
IF( (IINFO.GT.0) .AND. (INFO.EQ.0) ) THEN
20 CONTINUE
RETURN
*
-* End of CHETRF_AASEN
+* End of CHETRF_AA
*
END
-*> \brief \b CHETRS_AASEN
+*> \brief \b CHETRS_AA
*
* =========== DOCUMENTATION ===========
*
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download CHETRS_AASEN + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/chetrs_aasen.f">
+*> Download CHETRS_AA + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/chetrs_aa.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/chetrs_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/chetrs_aa.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/chetrs_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/chetrs_aa.f">
*> [TXT]</a>
*> \endhtmlonly
*
* Definition:
* ===========
*
-* SUBROUTINE CHETRS_AASEN( UPLO, N, NRHS, A, LDA, IPIV, B, LDB,
+* SUBROUTINE CHETRS_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB,
* WORK, LWORK, INFO )
*
* .. Scalar Arguments ..
*>
*> \verbatim
*>
-*> CHETRS_AASEN solves a system of linear equations A*X = B with a real
+*> CHETRS_AA solves a system of linear equations A*X = B with a real
*> hermitian matrix A using the factorization A = U*T*U**T or
-*> A = L*T*L**T computed by CHETRF_AASEN.
+*> A = L*T*L**T computed by CHETRF_AA.
*> \endverbatim
*
* Arguments:
*> \param[in,out] A
*> \verbatim
*> A is COMPLEX array, dimension (LDA,N)
-*> Details of factors computed by CHETRF_AASEN.
+*> Details of factors computed by CHETRF_AA.
*> \endverbatim
*>
*> \param[in] LDA
*> \param[in] IPIV
*> \verbatim
*> IPIV is INTEGER array, dimension (N)
-*> Details of the interchanges as computed by CHETRF_AASEN.
+*> Details of the interchanges as computed by CHETRF_AA.
*> \endverbatim
*>
*> \param[in,out] B
*> \ingroup complexHEcomputational
*
* =====================================================================
- SUBROUTINE CHETRS_AASEN( UPLO, N, NRHS, A, LDA, IPIV, B, LDB,
+ SUBROUTINE CHETRS_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB,
$ WORK, LWORK, INFO )
*
* -- LAPACK computational routine (version 3.7.0) --
INFO = -10
END IF
IF( INFO.NE.0 ) THEN
- CALL XERBLA( 'CHETRS_AASEN', -INFO )
+ CALL XERBLA( 'CHETRS_AA', -INFO )
RETURN
ELSE IF( LQUERY ) THEN
LWKOPT = (3*N-2)
*
RETURN
*
-* End of CHETRS_AASEN
+* End of CHETRS_AA
*
END
-*> \brief \b CLAHEF_AASEN
+*> \brief \b CLAHEF_AA
*
* =========== DOCUMENTATION ===========
*
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download CLAHEF_AASEN + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/clahef_aasen.f">
+*> Download CLAHEF_AA + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/clahef_aa.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/clahef_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/clahef_aa.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/clahef_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/clahef_aa.f">
*> [TXT]</a>
*> \endhtmlonly
*
* Definition:
* ===========
*
-* SUBROUTINE CLAHEF_AASEN( UPLO, J1, M, NB, A, LDA, IPIV,
+* SUBROUTINE CLAHEF_AA( UPLO, J1, M, NB, A, LDA, IPIV,
* H, LDH, WORK, INFO )
*
* .. Scalar Arguments ..
*>
*> \verbatim
*>
-*> DLATRF_AASEN factorizes a panel of a real hermitian matrix A using
+*> DLATRF_AA factorizes a panel of a real hermitian matrix A using
*> the Aasen's algorithm. The panel consists of a set of NB rows of A
*> when UPLO is U, or a set of NB columns when UPLO is L.
*>
*> J1 is INTEGER
*> The location of the first row, or column, of the panel
*> within the submatrix of A, passed to this routine, e.g.,
-*> when called by CHETRF_AASEN, for the first panel, J1 is 1,
+*> when called by CHETRF_AA, for the first panel, J1 is 1,
*> while for the remaining panels, J1 is 2.
*> \endverbatim
*>
*> \ingroup complexSYcomputational
*
* =====================================================================
- SUBROUTINE CLAHEF_AASEN( UPLO, J1, M, NB, A, LDA, IPIV,
+ SUBROUTINE CLAHEF_AA( UPLO, J1, M, NB, A, LDA, IPIV,
$ H, LDH, WORK, INFO )
*
* -- LAPACK computational routine (version 3.7.0) --
$ GO TO 20
*
* K is the column to be factorized
-* when being called from CHETRF_AASEN,
+* when being called from CHETRF_AA,
* > for the first block column, J1 is 1, hence J1+J-1 is J,
* > for the rest of the columns, J1 is 2, and J1+J-1 is J+1,
*
$ GO TO 40
*
* K is the column to be factorized
-* when being called from CHETRF_AASEN,
+* when being called from CHETRF_AA,
* > for the first block column, J1 is 1, hence J1+J-1 is J,
* > for the rest of the columns, J1 is 2, and J1+J-1 is J+1,
*
END IF
RETURN
*
-* End of CLAHEF_AASEN
+* End of CLAHEF_AA
*
END
-*> \brief \b DLASYF_AASEN
+*> \brief \b DLASYF_AA
*
* =========== DOCUMENTATION ===========
*
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download DLASYF_AASEN + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dlasyf_aasen.f">
+*> Download DLASYF_AA + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dlasyf_aa.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dlasyf_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dlasyf_aa.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dlasyf_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dlasyf_aa.f">
*> [TXT]</a>
*> \endhtmlonly
*
* Definition:
* ===========
*
-* SUBROUTINE DLASYF_AASEN( UPLO, J1, M, NB, A, LDA, IPIV,
+* SUBROUTINE DLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV,
* H, LDH, WORK, INFO )
*
* .. Scalar Arguments ..
*>
*> \verbatim
*>
-*> DLATRF_AASEN factorizes a panel of a real symmetric matrix A using
+*> DLATRF_AA factorizes a panel of a real symmetric matrix A using
*> the Aasen's algorithm. The panel consists of a set of NB rows of A
*> when UPLO is U, or a set of NB columns when UPLO is L.
*>
*> J1 is INTEGER
*> The location of the first row, or column, of the panel
*> within the submatrix of A, passed to this routine, e.g.,
-*> when called by DSYTRF_AASEN, for the first panel, J1 is 1,
+*> when called by DSYTRF_AA, for the first panel, J1 is 1,
*> while for the remaining panels, J1 is 2.
*> \endverbatim
*>
*> \ingroup doubleSYcomputational
*
* =====================================================================
- SUBROUTINE DLASYF_AASEN( UPLO, J1, M, NB, A, LDA, IPIV,
+ SUBROUTINE DLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV,
$ H, LDH, WORK, INFO )
*
* -- LAPACK computational routine (version 3.7.0) --
$ GO TO 20
*
* K is the column to be factorized
-* when being called from DSYTRF_AASEN,
+* when being called from DSYTRF_AA,
* > for the first block column, J1 is 1, hence J1+J-1 is J,
* > for the rest of the columns, J1 is 2, and J1+J-1 is J+1,
*
$ GO TO 40
*
* K is the column to be factorized
-* when being called from DSYTRF_AASEN,
+* when being called from DSYTRF_AA,
* > for the first block column, J1 is 1, hence J1+J-1 is J,
* > for the rest of the columns, J1 is 2, and J1+J-1 is J+1,
*
END IF
RETURN
*
-* End of DLASYF_AASEN
+* End of DLASYF_AA
*
END
-*> \brief <b> DSYSV_AASEN computes the solution to system of linear equations A * X = B for SY matrices</b>
+*> \brief <b> DSYSV_AA computes the solution to system of linear equations A * X = B for SY matrices</b>
*
* =========== DOCUMENTATION ===========
*
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download DSYSV_AASEN + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dsysv_aasen.f">
+*> Download DSYSV_AA + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dsysv_aa.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dsysv_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dsysv_aa.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dsysv_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dsysv_aa.f">
*> [TXT]</a>
*> \endhtmlonly
*
* Definition:
* ===========
*
-* SUBROUTINE DSYSV_AASEN( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
+* SUBROUTINE DSYSV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
* LWORK, INFO )
*
* .. Scalar Arguments ..
*> LWORK is INTEGER
*> The length of WORK. LWORK >= MAX(2*N, 3*N-2), and for
*> the best performance, LWORK >= max(1,N*NB), where NB is
-*> the optimal blocksize for DSYTRF_AASEN.
+*> the optimal blocksize for DSYTRF_AA.
*>
*> If LWORK = -1, then a workspace query is assumed; the routine
*> only calculates the optimal size of the WORK array, returns
*> \ingroup doubleSYsolve
*
* =====================================================================
- SUBROUTINE DSYSV_AASEN( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
+ SUBROUTINE DSYSV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
$ LWORK, INFO )
*
* -- LAPACK driver routine (version 3.7.0) --
END IF
*
IF( INFO.EQ.0 ) THEN
- NB = ILAENV( 1, 'DSYTRF_AASEN', UPLO, N, -1, -1, -1 )
+ NB = ILAENV( 1, 'DSYTRF_AA', UPLO, N, -1, -1, -1 )
LWKOPT = MAX( 3*N-2, (1+NB)*N )
WORK( 1 ) = LWKOPT
END IF
*
IF( INFO.NE.0 ) THEN
- CALL XERBLA( 'DSYSV_AASEN ', -INFO )
+ CALL XERBLA( 'DSYSV_AA ', -INFO )
RETURN
ELSE IF( LQUERY ) THEN
RETURN
*
* Compute the factorization A = U*T*U**T or A = L*T*L**T.
*
- CALL DSYTRF_AASEN( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO )
+ CALL DSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO )
IF( INFO.EQ.0 ) THEN
*
* Solve the system A*X = B, overwriting B with X.
*
- CALL DSYTRS_AASEN( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
+ CALL DSYTRS_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
$ LWORK, INFO )
*
END IF
*
RETURN
*
-* End of DSYSV_AASEN
+* End of DSYSV_AA
*
END
-*> \brief \b DSYTRF_AASEN
+*> \brief \b DSYTRF_AA
*
* =========== DOCUMENTATION ===========
*
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download DSYTRF_AASEN + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dsytrf_aasen.f">
+*> Download DSYTRF_AA + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dsytrf_aa.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dsytrf_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dsytrf_aa.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dsytrf_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dsytrf_aa.f">
*> [TXT]</a>
*> \endhtmlonly
*
* Definition:
* ===========
*
-* SUBROUTINE DSYTRF_AASEN( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO )
+* SUBROUTINE DSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO )
*
* .. Scalar Arguments ..
* CHARACTER UPLO
*>
*> \verbatim
*>
-*> DSYTRF_AASEN computes the factorization of a real symmetric matrix A
+*> DSYTRF_AA computes the factorization of a real symmetric matrix A
*> using the Aasen's algorithm. The form of the factorization is
*>
*> A = U*T*U**T or A = L*T*L**T
*> \ingroup doubleSYcomputational
*
* =====================================================================
- SUBROUTINE DSYTRF_AASEN( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
+ SUBROUTINE DSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
*
* -- LAPACK computational routine (version 3.7.0) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
END IF
*
IF( INFO.NE.0 ) THEN
- CALL XERBLA( 'DSYTRF_AASEN', -INFO )
+ CALL XERBLA( 'DSYTRF_AA', -INFO )
RETURN
ELSE IF( LQUERY ) THEN
RETURN
*
* Panel factorization
*
- CALL DLASYF_AASEN( UPLO, 2-K1, N-J, JB,
+ CALL DLASYF_AA( UPLO, 2-K1, N-J, JB,
$ A( MAX(1, J), J+1 ), LDA,
$ IPIV( J+1 ), WORK, N, WORK( N*NB+1 ),
$ IINFO )
*
* Panel factorization
*
- CALL DLASYF_AASEN( UPLO, 2-K1, N-J, JB,
+ CALL DLASYF_AA( UPLO, 2-K1, N-J, JB,
$ A( J+1, MAX(1, J) ), LDA,
$ IPIV( J+1 ), WORK, N, WORK( N*NB+1 ), IINFO)
IF( (IINFO.GT.0) .AND. (INFO.EQ.0) ) THEN
20 CONTINUE
RETURN
*
-* End of DSYTRF_AASEN
+* End of DSYTRF_AA
*
END
-*> \brief \b DSYTRS_AASEN
+*> \brief \b DSYTRS_AA
*
* =========== DOCUMENTATION ===========
*
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download DSYTRS_AASEN + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dsytrs_aasen.f">
+*> Download DSYTRS_AA + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dsytrs_aa.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dsytrs_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dsytrs_aa.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dsytrs_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dsytrs_aa.f">
*> [TXT]</a>
*> \endhtmlonly
*
* Definition:
* ===========
*
-* SUBROUTINE DSYTRS_AASEN( UPLO, N, NRHS, A, LDA, IPIV, B, LDB,
+* SUBROUTINE DSYTRS_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB,
* WORK, LWORK, INFO )
*
* .. Scalar Arguments ..
*>
*> \verbatim
*>
-*> DSYTRS_AASEN solves a system of linear equations A*X = B with a real
+*> DSYTRS_AA solves a system of linear equations A*X = B with a real
*> symmetric matrix A using the factorization A = U*T*U**T or
-*> A = L*T*L**T computed by DSYTRF_AASEN.
+*> A = L*T*L**T computed by DSYTRF_AA.
*> \endverbatim
*
* Arguments:
*> \param[in,out] A
*> \verbatim
*> A is DOUBLE PRECISION array, dimension (LDA,N)
-*> Details of factors computed by DSYTRF_AASEN.
+*> Details of factors computed by DSYTRF_AA.
*> \endverbatim
*>
*> \param[in] LDA
*> \param[in] IPIV
*> \verbatim
*> IPIV is INTEGER array, dimension (N)
-*> Details of the interchanges as computed by DSYTRF_AASEN.
+*> Details of the interchanges as computed by DSYTRF_AA.
*> \endverbatim
*>
*> \param[in,out] B
*> \ingroup doubleSYcomputational
*
* =====================================================================
- SUBROUTINE DSYTRS_AASEN( UPLO, N, NRHS, A, LDA, IPIV, B, LDB,
+ SUBROUTINE DSYTRS_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB,
$ WORK, LWORK, INFO )
*
* -- LAPACK computational routine (version 3.7.0) --
INFO = -10
END IF
IF( INFO.NE.0 ) THEN
- CALL XERBLA( 'DSYTRS_AASEN', -INFO )
+ CALL XERBLA( 'DSYTRS_AA', -INFO )
RETURN
ELSE IF( LQUERY ) THEN
LWKOPT = (3*N-2)
*
RETURN
*
-* End of DSYTRS_AASEN
+* End of DSYTRS_AA
*
END
-*> \brief \b SLASYF_AASEN
+*> \brief \b SLASYF_AA
*
* =========== DOCUMENTATION ===========
*
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download SLASYF_AASEN + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/slasyf_aasen.f">
+*> Download SLASYF_AA + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/slasyf_aa.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/slasyf_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/slasyf_aa.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/slasyf_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/slasyf_aa.f">
*> [TXT]</a>
*> \endhtmlonly
*
* Definition:
* ===========
*
-* SUBROUTINE SLASYF_AASEN( UPLO, J1, M, NB, A, LDA, IPIV,
+* SUBROUTINE SLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV,
* H, LDH, WORK, INFO )
*
* .. Scalar Arguments ..
*>
*> \verbatim
*>
-*> DLATRF_AASEN factorizes a panel of a real symmetric matrix A using
+*> DLATRF_AA factorizes a panel of a real symmetric matrix A using
*> the Aasen's algorithm. The panel consists of a set of NB rows of A
*> when UPLO is U, or a set of NB columns when UPLO is L.
*>
*> J1 is INTEGER
*> The location of the first row, or column, of the panel
*> within the submatrix of A, passed to this routine, e.g.,
-*> when called by SSYTRF_AASEN, for the first panel, J1 is 1,
+*> when called by SSYTRF_AA, for the first panel, J1 is 1,
*> while for the remaining panels, J1 is 2.
*> \endverbatim
*>
*> \ingroup realSYcomputational
*
* =====================================================================
- SUBROUTINE SLASYF_AASEN( UPLO, J1, M, NB, A, LDA, IPIV,
+ SUBROUTINE SLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV,
$ H, LDH, WORK, INFO )
*
* -- LAPACK computational routine (version 3.7.0) --
$ GO TO 20
*
* K is the column to be factorized
-* when being called from SSYTRF_AASEN,
+* when being called from SSYTRF_AA,
* > for the first block column, J1 is 1, hence J1+J-1 is J,
* > for the rest of the columns, J1 is 2, and J1+J-1 is J+1,
*
$ GO TO 40
*
* K is the column to be factorized
-* when being called from SSYTRF_AASEN,
+* when being called from SSYTRF_AA,
* > for the first block column, J1 is 1, hence J1+J-1 is J,
* > for the rest of the columns, J1 is 2, and J1+J-1 is J+1,
*
END IF
RETURN
*
-* End of SLASYF_AASEN
+* End of SLASYF_AA
*
END
-*> \brief <b> SSYSV_AASEN computes the solution to system of linear equations A * X = B for SY matrices</b>
+*> \brief <b> SSYSV_AA computes the solution to system of linear equations A * X = B for SY matrices</b>
*
* =========== DOCUMENTATION ===========
*
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download SSYSV_AASEN + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ssysv_aasen.f">
+*> Download SSYSV_AA + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ssysv_aa.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ssysv_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ssysv_aa.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ssysv_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ssysv_aa.f">
*> [TXT]</a>
*> \endhtmlonly
*
* Definition:
* ===========
*
-* SUBROUTINE SSYSV_AASEN( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
+* SUBROUTINE SSYSV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
* LWORK, INFO )
*
* .. Scalar Arguments ..
*> LWORK is INTEGER
*> The length of WORK. LWORK >= MAX(2*N, 3*N-2), and for
*> the best performance, LWORK >= max(1,N*NB), where NB is
-*> the optimal blocksize for SSYTRF_AASEN.
+*> the optimal blocksize for SSYTRF_AA.
*>
*> If LWORK = -1, then a workspace query is assumed; the routine
*> only calculates the optimal size of the WORK array, returns
*> \ingroup realSYsolve
*
* =====================================================================
- SUBROUTINE SSYSV_AASEN( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
+ SUBROUTINE SSYSV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
$ LWORK, INFO )
*
* -- LAPACK driver routine (version 3.7.0) --
END IF
*
IF( INFO.NE.0 ) THEN
- CALL XERBLA( 'SSYSV_AASEN', -INFO )
+ CALL XERBLA( 'SSYSV_AA', -INFO )
RETURN
ELSE IF( LQUERY ) THEN
RETURN
*
* Compute the factorization A = U*T*U**T or A = L*T*L**T.
*
- CALL SSYTRF_AASEN( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO )
+ CALL SSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO )
IF( INFO.EQ.0 ) THEN
*
* Solve the system A*X = B, overwriting B with X.
*
- CALL SSYTRS_AASEN( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
+ CALL SSYTRS_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
$ LWORK, INFO )
*
END IF
*
RETURN
*
-* End of SSYSV_AASEN
+* End of SSYSV_AA
*
END
-*> \brief \b SSYTRF_AASEN
+*> \brief \b SSYTRF_AA
*
* =========== DOCUMENTATION ===========
*
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download SSYTRF_AASEN + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ssytrf_aasen.f">
+*> Download SSYTRF_AA + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ssytrf_aa.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ssytrf_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ssytrf_aa.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ssytrf_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ssytrf_aa.f">
*> [TXT]</a>
*> \endhtmlonly
*
* Definition:
* ===========
*
-* SUBROUTINE SSYTRF_AASEN( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO )
+* SUBROUTINE SSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO )
*
* .. Scalar Arguments ..
* CHARACTER UPLO
*>
*> \verbatim
*>
-*> SSYTRF_AASEN computes the factorization of a real symmetric matrix A
+*> SSYTRF_AA computes the factorization of a real symmetric matrix A
*> using the Aasen's algorithm. The form of the factorization is
*>
*> A = U*T*U**T or A = L*T*L**T
*> \ingroup realSYcomputational
*
* =====================================================================
- SUBROUTINE SSYTRF_AASEN( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
+ SUBROUTINE SSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
*
* -- LAPACK computational routine (version 3.7.0) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
END IF
*
IF( INFO.NE.0 ) THEN
- CALL XERBLA( 'SSYTRF_AASEN', -INFO )
+ CALL XERBLA( 'SSYTRF_AA', -INFO )
RETURN
ELSE IF( LQUERY ) THEN
RETURN
*
* Panel factorization
*
- CALL SLASYF_AASEN( UPLO, 2-K1, N-J, JB,
+ CALL SLASYF_AA( UPLO, 2-K1, N-J, JB,
$ A( MAX(1, J), J+1 ), LDA,
$ IPIV( J+1 ), WORK, N, WORK( N*NB+1 ),
$ IINFO )
*
* Panel factorization
*
- CALL SLASYF_AASEN( UPLO, 2-K1, N-J, JB,
+ CALL SLASYF_AA( UPLO, 2-K1, N-J, JB,
$ A( J+1, MAX(1, J) ), LDA,
$ IPIV( J+1 ), WORK, N, WORK( N*NB+1 ), IINFO)
IF( (IINFO.GT.0) .AND. (INFO.EQ.0) ) THEN
20 CONTINUE
RETURN
*
-* End of SSYTRF_AASEN
+* End of SSYTRF_AA
*
END
-*> \brief \b SSYTRS_AASEN
+*> \brief \b SSYTRS_AA
*
* =========== DOCUMENTATION ===========
*
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download SSYTRS_AASEN + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ssytrs_aasen.f">
+*> Download SSYTRS_AA + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ssytrs_aa.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ssytrs_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ssytrs_aa.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ssytrs_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ssytrs_aa.f">
*> [TXT]</a>
*> \endhtmlonly
*
* Definition:
* ===========
*
-* SUBROUTINE SSYTRS_AASEN( UPLO, N, NRHS, A, LDA, IPIV, B, LDB,
+* SUBROUTINE SSYTRS_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB,
* WORK, LWORK, INFO )
*
* .. Scalar Arguments ..
*>
*> \verbatim
*>
-*> SSYTRS_AASEN solves a system of linear equations A*X = B with a real
+*> SSYTRS_AA solves a system of linear equations A*X = B with a real
*> symmetric matrix A using the factorization A = U*T*U**T or
-*> A = L*T*L**T computed by SSYTRF_AASEN.
+*> A = L*T*L**T computed by SSYTRF_AA.
*> \endverbatim
*
* Arguments:
*> \param[in,out] A
*> \verbatim
*> A is REAL array, dimension (LDA,N)
-*> Details of factors computed by SSYTRF_AASEN.
+*> Details of factors computed by SSYTRF_AA.
*> \endverbatim
*>
*> \param[in] LDA
*> \param[in] IPIV
*> \verbatim
*> IPIV is INTEGER array, dimension (N)
-*> Details of the interchanges as computed by SSYTRF_AASEN.
+*> Details of the interchanges as computed by SSYTRF_AA.
*> \endverbatim
*>
*> \param[in,out] B
*> \ingroup realSYcomputational
*
* =====================================================================
- SUBROUTINE SSYTRS_AASEN( UPLO, N, NRHS, A, LDA, IPIV, B, LDB,
+ SUBROUTINE SSYTRS_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB,
$ WORK, LWORK, INFO )
*
* -- LAPACK computational routine (version 3.7.0) --
INFO = -10
END IF
IF( INFO.NE.0 ) THEN
- CALL XERBLA( 'SSYTRS_AASEN', -INFO )
+ CALL XERBLA( 'SSYTRS_AA', -INFO )
RETURN
ELSE IF( LQUERY ) THEN
LWKOPT = (3*N-2)
*
RETURN
*
-* End of SSYTRS_AASEN
+* End of SSYTRS_AA
*
END
-*> \brief <b> ZHESV_AASEN computes the solution to system of linear equations A * X = B for HE matrices</b>
+*> \brief <b> ZHESV_AA computes the solution to system of linear equations A * X = B for HE matrices</b>
*
* =========== DOCUMENTATION ===========
*
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download ZHESV_AASEN + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zhesv_aasen.f">
+*> Download ZHESV_AA + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zhesv_aa.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zhesv_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zhesv_aa.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zhesv_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zhesv_aa.f">
*> [TXT]</a>
*> \endhtmlonly
*
* Definition:
* ===========
*
-* SUBROUTINE ZHESV_AASEN( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
+* SUBROUTINE ZHESV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
* LWORK, INFO )
*
* .. Scalar Arguments ..
*>
*> \verbatim
*>
-*> ZHESV_AASEN computes the solution to a complex system of linear equations
+*> ZHESV_AA computes the solution to a complex system of linear equations
*> A * X = B,
*> where A is an N-by-N Hermitian matrix and X and B are N-by-NRHS
*> matrices.
*> On exit, if INFO = 0, the tridiagonal matrix T and the
*> multipliers used to obtain the factor U or L from the
*> factorization A = U*T*U**H or A = L*T*L**H as computed by
-*> ZHETRF_AASEN.
+*> ZHETRF_AA.
*> \endverbatim
*>
*> \param[in] LDA
*> \ingroup complex16HEsolve
*
* =====================================================================
- SUBROUTINE ZHESV_AASEN( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
+ SUBROUTINE ZHESV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
$ LWORK, INFO )
*
* -- LAPACK driver routine (version 3.7.0) --
END IF
*
IF( INFO.EQ.0 ) THEN
- NB = ILAENV( 1, 'ZHETRF_AASEN', UPLO, N, -1, -1, -1 )
+ NB = ILAENV( 1, 'ZHETRF_AA', UPLO, N, -1, -1, -1 )
LWKOPT = MAX( 3*N-2, (1+NB)*N )
WORK( 1 ) = LWKOPT
END IF
*
IF( INFO.NE.0 ) THEN
- CALL XERBLA( 'ZHESV_AASEN ', -INFO )
+ CALL XERBLA( 'ZHESV_AA ', -INFO )
RETURN
ELSE IF( LQUERY ) THEN
RETURN
*
* Compute the factorization A = U*T*U**H or A = L*T*L**H.
*
- CALL ZHETRF_AASEN( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO )
+ CALL ZHETRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO )
IF( INFO.EQ.0 ) THEN
*
* Solve the system A*X = B, overwriting B with X.
*
- CALL ZHETRS_AASEN( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
+ CALL ZHETRS_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
$ LWORK, INFO )
*
END IF
*
RETURN
*
-* End of ZHESV_AASEN
+* End of ZHESV_AA
*
END
-*> \brief \b ZHETRF_AASEN
+*> \brief \b ZHETRF_AA
*
* =========== DOCUMENTATION ===========
*
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download ZHETRF_AASEN + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zhetrf_aasen.f">
+*> Download ZHETRF_AA + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zhetrf_aa.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zhetrf_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zhetrf_aa.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zhetrf_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zhetrf_aa.f">
*> [TXT]</a>
*> \endhtmlonly
*
* Definition:
* ===========
*
-* SUBROUTINE ZHETRF_AASEN( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO )
+* SUBROUTINE ZHETRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO )
*
* .. Scalar Arguments ..
* CHARACTER UPLO
*>
*> \verbatim
*>
-*> ZHETRF_AASEN computes the factorization of a complex hermitian matrix A
+*> ZHETRF_AA computes the factorization of a complex hermitian matrix A
*> using the Aasen's algorithm. The form of the factorization is
*>
*> A = U*T*U**T or A = L*T*L**T
*> \ingroup complex16HEcomputational
*
* =====================================================================
- SUBROUTINE ZHETRF_AASEN( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
+ SUBROUTINE ZHETRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
*
* -- LAPACK computational routine (version 3.7.0) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
END IF
*
IF( INFO.NE.0 ) THEN
- CALL XERBLA( 'ZHETRF_AASEN', -INFO )
+ CALL XERBLA( 'ZHETRF_AA', -INFO )
RETURN
ELSE IF( LQUERY ) THEN
RETURN
*
* Panel factorization
*
- CALL ZLAHEF_AASEN( UPLO, 2-K1, N-J, JB,
+ CALL ZLAHEF_AA( UPLO, 2-K1, N-J, JB,
$ A( MAX(1, J), J+1 ), LDA,
$ IPIV( J+1 ), WORK, N, WORK( N*NB+1 ),
$ IINFO )
*
* Panel factorization
*
- CALL ZLAHEF_AASEN( UPLO, 2-K1, N-J, JB,
+ CALL ZLAHEF_AA( UPLO, 2-K1, N-J, JB,
$ A( J+1, MAX(1, J) ), LDA,
$ IPIV( J+1 ), WORK, N, WORK( N*NB+1 ), IINFO)
IF( (IINFO.GT.0) .AND. (INFO.EQ.0) ) THEN
20 CONTINUE
RETURN
*
-* End of ZHETRF_AASEN
+* End of ZHETRF_AA
*
END
-*> \brief \b ZHETRS_AASEN
+*> \brief \b ZHETRS_AA
*
* =========== DOCUMENTATION ===========
*
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download ZHETRS_AASEN + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zhetrs_aasen.f">
+*> Download ZHETRS_AA + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zhetrs_aa.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zhetrs_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zhetrs_aa.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zhetrs_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zhetrs_aa.f">
*> [TXT]</a>
*> \endhtmlonly
*
* Definition:
* ===========
*
-* SUBROUTINE ZHETRS_AASEN( UPLO, N, NRHS, A, LDA, IPIV, B, LDB,
+* SUBROUTINE ZHETRS_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB,
* WORK, LWORK, INFO )
*
* .. Scalar Arguments ..
*>
*> \verbatim
*>
-*> ZHETRS_AASEN solves a system of linear equations A*X = B with a real
+*> ZHETRS_AA solves a system of linear equations A*X = B with a real
*> hermitian matrix A using the factorization A = U*T*U**T or
-*> A = L*T*L**T computed by ZHETRF_AASEN.
+*> A = L*T*L**T computed by ZHETRF_AA.
*> \endverbatim
*
* Arguments:
*> \param[in,out] A
*> \verbatim
*> A is COMPLEX*16 array, dimension (LDA,N)
-*> Details of factors computed by ZHETRF_AASEN.
+*> Details of factors computed by ZHETRF_AA.
*> \endverbatim
*>
*> \param[in] LDA
*> \param[in] IPIV
*> \verbatim
*> IPIV is INTEGER array, dimension (N)
-*> Details of the interchanges as computed by ZHETRF_AASEN.
+*> Details of the interchanges as computed by ZHETRF_AA.
*> \endverbatim
*>
*> \param[in,out] B
*> \ingroup complex16HEcomputational
*
* =====================================================================
- SUBROUTINE ZHETRS_AASEN( UPLO, N, NRHS, A, LDA, IPIV, B, LDB,
+ SUBROUTINE ZHETRS_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB,
$ WORK, LWORK, INFO )
*
* -- LAPACK computational routine (version 3.7.0) --
INFO = -10
END IF
IF( INFO.NE.0 ) THEN
- CALL XERBLA( 'ZHETRS_AASEN', -INFO )
+ CALL XERBLA( 'ZHETRS_AA', -INFO )
RETURN
ELSE IF( LQUERY ) THEN
LWKOPT = (3*N-2)
*
RETURN
*
-* End of ZHETRS_AASEN
+* End of ZHETRS_AA
*
END
-*> \brief \b ZLAHEF_AASEN
+*> \brief \b ZLAHEF_AA
*
* =========== DOCUMENTATION ===========
*
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download ZLAHEF_AASEN + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zlahef_aasen.f">
+*> Download ZLAHEF_AA + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zlahef_aa.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zlahef_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zlahef_aa.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zlahef_aasen.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zlahef_aa.f">
*> [TXT]</a>
*> \endhtmlonly
*
* Definition:
* ===========
*
-* SUBROUTINE ZLAHEF_AASEN( UPLO, J1, M, NB, A, LDA, IPIV,
+* SUBROUTINE ZLAHEF_AA( UPLO, J1, M, NB, A, LDA, IPIV,
* H, LDH, WORK, INFO )
*
* .. Scalar Arguments ..
*>
*> \verbatim
*>
-*> DLATRF_AASEN factorizes a panel of a real hermitian matrix A using
+*> DLATRF_AA factorizes a panel of a real hermitian matrix A using
*> the Aasen's algorithm. The panel consists of a set of NB rows of A
*> when UPLO is U, or a set of NB columns when UPLO is L.
*>
*> J1 is INTEGER
*> The location of the first row, or column, of the panel
*> within the submatrix of A, passed to this routine, e.g.,
-*> when called by ZHETRF_AASEN, for the first panel, J1 is 1,
+*> when called by ZHETRF_AA, for the first panel, J1 is 1,
*> while for the remaining panels, J1 is 2.
*> \endverbatim
*>
*> \ingroup complex16HEcomputational
*
* =====================================================================
- SUBROUTINE ZLAHEF_AASEN( UPLO, J1, M, NB, A, LDA, IPIV,
+ SUBROUTINE ZLAHEF_AA( UPLO, J1, M, NB, A, LDA, IPIV,
$ H, LDH, WORK, INFO )
*
* -- LAPACK computational routine (version 3.7.0) --
$ GO TO 20
*
* K is the column to be factorized
-* when being called from ZHETRF_AASEN,
+* when being called from ZHETRF_AA,
* > for the first block column, J1 is 1, hence J1+J-1 is J,
* > for the rest of the columns, J1 is 2, and J1+J-1 is J+1,
*
$ GO TO 40
*
* K is the column to be factorized
-* when being called from ZHETRF_AASEN,
+* when being called from ZHETRF_AA,
* > for the first block column, J1 is 1, hence J1+J-1 is J,
* > for the rest of the columns, J1 is 2, and J1+J-1 is J+1,
*
END IF
RETURN
*
-* End of ZLAHEF_AASEN
+* End of ZLAHEF_AA
*
END
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
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
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
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
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
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
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
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
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 \
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 \
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 \
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 \
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 \
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 \
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 \
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 \
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 ),
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 )
-*> \brief \b CCHKHE_AASEN
+*> \brief \b CCHKHE_AA
*
* =========== DOCUMENTATION ===========
*
* 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 )
*
*>
*> \verbatim
*>
-*> CCHKHE_AASEN tests CHETRF_AASEN, -TRS_AASEN.
+*> CCHKHE_AA tests CHETRF_AA, -TRS_AA.
*> \endverbatim
*
* Arguments:
*> \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 )
*
* ..
* .. 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 ..
* 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
* 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
*+ 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
*
$ 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
$ I6 )
RETURN
*
-* End of CCHKHE_AASEN
+* End of CCHKHE_AA
*
END
-*> \brief \b CDRVHE_AASEN
+*> \brief \b CDRVHE_AA
*
* =========== DOCUMENTATION ===========
*
* 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 )
*
*>
*> \verbatim
*>
-*> CDRVHE_AASEN tests the driver routine CHESV_AASEN.
+*> CDRVHE_AA tests the driver routine CHESV_AA.
*> \endverbatim
*
* Arguments:
*> \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 )
*
* .. 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
* 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.
$ 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
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
* 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 ) )
*
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
$ ', test ', I2, ', ratio =', G12.5 )
RETURN
*
-* End of CDRVHE_AASEN
+* End of CDRVHE_AA
*
END
$ 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
*
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
-*> \brief \b CHET01_AASEN
+*> \brief \b CHET01_AA
*
* =========== DOCUMENTATION ===========
*
* 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 ..
*>
*> \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.
*> \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) --
*
RETURN
*
-* End of CHET01_AASEN
+* End of CHET01_AA
*
END
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 ),
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 )
-*> \brief \b DCHKSY_AASEN
+*> \brief \b DCHKSY_AA
*
* =========== DOCUMENTATION ===========
*
* 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 )
*
*>
*> \verbatim
*>
-*> DCHKSY_AASEN tests DSYTRF_AASEN, -TRS_AASEN.
+*> DCHKSY_AA tests DSYTRF_AA, -TRS_AA.
*> \endverbatim
*
* Arguments:
*> \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 )
*
* .. 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
* 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
* 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
*+ 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
*
$ 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
$ I6 )
RETURN
*
-* End of DCHKSY_AASEN
+* End of DCHKSY_AA
*
END
-*> \brief \b DDRVSY_AASEN
+*> \brief \b DDRVSY_AA
*
* =========== DOCUMENTATION ===========
*
* 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 )
*
*>
*> \verbatim
*>
-*> DDRVSY_AASEN tests the driver routine DSYSV_AASEN.
+*> DDRVSY_AA tests the driver routine DSYSV_AA.
*> \endverbatim
*
* Arguments:
*> \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 )
*
* .. 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
$ 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
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
* 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 ) )
*
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
$ ', test ', I2, ', ratio =', G12.5 )
RETURN
*
-* End of DDRVSY_AASEN
+* End of DDRVSY_AA
*
END
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
*
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
*> \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) --
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 ),
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 )
-*> \brief \b SCHKSY_AASEN
+*> \brief \b SCHKSY_AA
*
* =========== DOCUMENTATION ===========
*
*>
*> \verbatim
*>
-*> SCHKSY_AASEN tests SSYTRF_AASEN, -TRS_AASEN.
+*> SCHKSY_AA tests SSYTRF_AA, -TRS_AA.
*> \endverbatim
*
* Arguments:
*> \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 )
*
* .. 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
* 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
* 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
*+ 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
*
$ 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
$ I6 )
RETURN
*
-* End of SCHKSY_AASEN
+* End of SCHKSY_AA
*
END
-*> \brief \b SDRVSY_AASEN
+*> \brief \b SDRVSY_AA
*
* =========== DOCUMENTATION ===========
*
* 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 )
*
*>
*> \verbatim
*>
-*> SDRVSY_AASEN tests the driver routine SSYSV_AASEN.
+*> SDRVSY_AA tests the driver routine SSYSV_AA.
*> \endverbatim
*
* Arguments:
*> \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 )
*
* .. 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
$ 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
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
* 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 ) )
*
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
$ ', test ', I2, ', ratio =', G12.5 )
RETURN
*
-* End of SDRVSY_AASEN
+* End of SDRVSY_AA
*
END
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
*
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
*
-*> \brief \b SSYT01_AASEN
+*> \brief \b SSYT01_AA
*
* =========== DOCUMENTATION ===========
*
* 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 ..
*>
*> \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.
*> \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) --
*
RETURN
*
-* End of SSYT01_AASEN
+* End of SSYT01_AA
*
END
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 ),
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 )
-*> \brief \b ZCHKHE_AASEN
+*> \brief \b ZCHKHE_AA
*
* =========== DOCUMENTATION ===========
*
* 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 )
*
*>
*> \verbatim
*>
-*> ZCHKHE_AASEN tests ZHETRF_AASEN, -TRS_AASEN.
+*> ZCHKHE_AA tests ZHETRF_AA, -TRS_AA.
*> \endverbatim
*
* Arguments:
*> \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 )
*
* ..
* .. 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 ..
* 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
* 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
*+ 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
*
$ 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.
$ I6 )
RETURN
*
-* End of ZCHKHE_AASEN
+* End of ZCHKHE_AA
*
END
-*> \brief \b ZDRVHE_AASEN
+*> \brief \b ZDRVHE_AA
*
* =========== DOCUMENTATION ===========
*
* 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 )
*
*>
*> \verbatim
*>
-*> ZDRVHE_AASEN tests the driver routine ZHESV_AASEN.
+*> ZDRVHE_AA tests the driver routine ZHESV_AA.
*> \endverbatim
*
* Arguments:
*> \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 )
*
* ..
* .. 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
* ..
$ INFO )
XTYPE = 'C'
*
-* --- Test ZHESV_AASEN ---
+* --- Test ZHESV_AA ---
*
IF( IFACT.EQ.2 ) THEN
CALL ZLACPY( UPLO, N, N, A, LDA, AFAC, LDA )
*
* 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
* 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
* 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 ) )
*
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
$ ', test ', I2, ', ratio =', G12.5 )
RETURN
*
-* End of ZDRVHE_AASEN
+* End of ZDRVHE_AA
*
END
$ 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
*
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
-*> \brief \b ZHET01_AASEN
+*> \brief \b ZHET01_AA
*
* =========== DOCUMENTATION ===========
*
* 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 ..
*>
*> \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.
*> \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) --
*
RETURN
*
-* End of ZHET01_AASEN
+* End of ZHET01_AA
*
END