Skip to content

SRC: use LSAME for UPLO checks in lalsd #1240

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
langou merged 1 commit into from
May 3, 2026
+12 −8
Merged

SRC: use LSAME for UPLO checks in lalsd #1240

Show file tree
Hide file tree
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
5 changes: 3 additions & 2 deletions SRC/clalsd.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -212,7 +212,8 @@ SUBROUTINE CLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND,
* .. External Functions ..
INTEGER ISAMAX
REAL SLAMCH, SLANST
EXTERNAL ISAMAX, SLAMCH, SLANST
LOGICAL LSAME
EXTERNAL ISAMAX, SLAMCH, SLANST, LSAME
* ..
* .. External Subroutines ..
EXTERNAL CCOPY, CLACPY, CLALSA, CLASCL, CLASET,
Expand Down Expand Up @@ -271,7 +272,7 @@ SUBROUTINE CLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND,
*
* Rotate the matrix if it is lower bidiagonal.
*
IF( UPLO.EQ.'L' ) THEN
IF( LSAME( UPLO, 'L' ) ) THEN
DO 10 I = 1, N - 1
CALL SLARTG( D( I ), E( I ), CS, SN, R )
D( I ) = R
Expand Down
5 changes: 3 additions & 2 deletions SRC/dlalsd.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -200,7 +200,8 @@ SUBROUTINE DLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND,
* .. External Functions ..
INTEGER IDAMAX
DOUBLE PRECISION DLAMCH, DLANST
EXTERNAL IDAMAX, DLAMCH, DLANST
LOGICAL LSAME
EXTERNAL IDAMAX, DLAMCH, DLANST, LSAME
* ..
* .. External Subroutines ..
EXTERNAL DCOPY, DGEMM, DLACPY, DLALSA, DLARTG,
Expand Down Expand Up @@ -258,7 +259,7 @@ SUBROUTINE DLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND,
*
* Rotate the matrix if it is lower bidiagonal.
*
IF( UPLO.EQ.'L' ) THEN
IF( LSAME( UPLO, 'L' ) ) THEN
DO 10 I = 1, N - 1
CALL DLARTG( D( I ), E( I ), CS, SN, R )
D( I ) = R
Expand Down
5 changes: 3 additions & 2 deletions SRC/slalsd.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -200,7 +200,8 @@ SUBROUTINE SLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND,
* .. External Functions ..
INTEGER ISAMAX
REAL SLAMCH, SLANST
EXTERNAL ISAMAX, SLAMCH, SLANST
LOGICAL LSAME
EXTERNAL ISAMAX, SLAMCH, SLANST, LSAME
* ..
* .. External Subroutines ..
EXTERNAL SCOPY, SGEMM, SLACPY, SLALSA, SLARTG,
Expand Down Expand Up @@ -258,7 +259,7 @@ SUBROUTINE SLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND,
*
* Rotate the matrix if it is lower bidiagonal.
*
IF( UPLO.EQ.'L' ) THEN
IF( LSAME( UPLO, 'L' ) ) THEN
DO 10 I = 1, N - 1
CALL SLARTG( D( I ), E( I ), CS, SN, R )
D( I ) = R
Expand Down
5 changes: 3 additions & 2 deletions SRC/zlalsd.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -213,7 +213,8 @@ SUBROUTINE ZLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND,
* .. External Functions ..
INTEGER IDAMAX
DOUBLE PRECISION DLAMCH, DLANST
EXTERNAL IDAMAX, DLAMCH, DLANST
LOGICAL LSAME
EXTERNAL IDAMAX, DLAMCH, DLANST, LSAME
* ..
* .. External Subroutines ..
EXTERNAL DGEMM, DLARTG, DLASCL, DLASDA, DLASDQ,
Expand Down Expand Up @@ -272,7 +273,7 @@ SUBROUTINE ZLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND,
*
* Rotate the matrix if it is lower bidiagonal.
*
IF( UPLO.EQ.'L' ) THEN
IF( LSAME( UPLO, 'L' ) ) THEN
DO 10 I = 1, N - 1
CALL DLARTG( D( I ), E( I ), CS, SN, R )
D( I ) = R
Expand Down
Loading