Skip to content

Fix wrong name in XERBLA call of ZLA_SYRFSX_EXTENDED (Reference-LAPACK PR 1268) #5847

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
martin-frbg merged 1 commit into from
Jun 24, 2026
+10 −8
Merged

Fix wrong name in XERBLA call of ZLA_SYRFSX_EXTENDED (Reference-LAPACK PR 1268) #5847

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
18 changes: 10 additions & 8 deletions lapack-netlib/SRC/zla_syrfsx_extended.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,15 +5,13 @@
* Online html documentation available at
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
*> Download ZLA_SYRFSX_EXTENDED + dependencies
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zla_syrfsx_extended.f">
*> [TGZ]</a>
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zla_syrfsx_extended.f">
*> [ZIP]</a>
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zla_syrfsx_extended.f">
*> [TXT]</a>
*> \endhtmlonly
*
* Definition:
* ===========
Expand Down Expand Up @@ -370,7 +368,7 @@
*> \verbatim
*> INFO is INTEGER
*> = 0: Successful exit.
*> < 0: if INFO = -i, the ith argument to ZLA_HERFSX_EXTENDED had an illegal
*> < 0: if INFO = -i, the ith argument to ZLA_SYRFSX_EXTENDED had an illegal
*> value
*> \endverbatim
*
Expand All @@ -382,16 +380,18 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
*> \ingroup complex16SYcomputational
*> \ingroup la_herfsx_extended
*
* =====================================================================
SUBROUTINE ZLA_SYRFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA,
SUBROUTINE ZLA_SYRFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A,
$ LDA,
$ AF, LDAF, IPIV, COLEQU, C, B, LDB,
$ Y, LDY, BERR_OUT, N_NORMS,
$ ERR_BNDS_NORM, ERR_BNDS_COMP, RES,
$ AYB, DY, Y_TAIL, RCOND, ITHRESH,
$ RTHRESH, DZ_UB, IGNORE_CWISE,
$ INFO )
IMPLICIT NONE
*
* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
Expand Down Expand Up @@ -457,7 +457,8 @@ SUBROUTINE ZLA_SYRFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA,
INTEGER ILAUPLO
* ..
* .. External Subroutines ..
EXTERNAL ZAXPY, ZCOPY, ZSYTRS, ZSYMV, BLAS_ZSYMV_X,
EXTERNAL ZAXPY, ZCOPY, ZSYTRS, ZSYMV,
$ BLAS_ZSYMV_X,
$ BLAS_ZSYMV2_X, ZLA_SYAMV, ZLA_WWADDW,
$ ZLA_LIN_BERR
DOUBLE PRECISION DLAMCH
Expand Down Expand Up @@ -491,7 +492,7 @@ SUBROUTINE ZLA_SYRFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA,
INFO = -15
END IF
IF( INFO.NE.0 ) THEN
CALL XERBLA( 'ZLA_HERFSX_EXTENDED', -INFO )
CALL XERBLA( 'ZLA_SYRFSX_EXTENDED', -INFO )
RETURN
END IF
EPS = DLAMCH( 'Epsilon' )
Expand Down Expand Up @@ -537,7 +538,8 @@ SUBROUTINE ZLA_SYRFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA,
*
CALL ZCOPY( N, B( 1, J ), 1, RES, 1 )
IF ( Y_PREC_STATE .EQ. BASE_RESIDUAL ) THEN
CALL ZSYMV( UPLO, N, DCMPLX(-1.0D+0), A, LDA, Y(1,J), 1,
CALL ZSYMV( UPLO, N, DCMPLX(-1.0D+0), A, LDA, Y(1,J),
$ 1,
$ DCMPLX(1.0D+0), RES, 1 )
ELSE IF ( Y_PREC_STATE .EQ. EXTRA_RESIDUAL ) THEN
CALL BLAS_ZSYMV_X( UPLO2, N, DCMPLX(-1.0D+0), A, LDA,
Expand Down
Loading