floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use LSAME for character comparison (Reference-LAPACK PR755)

This commit is contained in:
Martin Kroeker 2022-11-23 15:19:07 +01:00 committed by GitHub
parent 663bf68dbd
commit 19fd2d7f00
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lapack-netlib/SRC/iparam2stage.F
View File

@ -178,7 +178,8 @@
* .. * ..
* .. External Functions .. * .. External Functions ..
INTEGER ILAENV INTEGER ILAENV
EXTERNAL ILAENV LOGICAL LSAME
EXTERNAL ILAENV, LSAME
* .. * ..
* .. Executable Statements .. * .. Executable Statements ..
* *
@ -310,7 +311,7 @@
* *
* Will add the VECT OPTION HERE next release * Will add the VECT OPTION HERE next release
VECT = OPTS(1:1) VECT = OPTS(1:1)
IF( VECT.EQ.'N' ) THEN IF( LSAME( VECT, 'N' ) ) THEN
LHOUS = MAX( 1, 4*NI ) LHOUS = MAX( 1, 4*NI )
ELSE ELSE
* This is not correct, it need to call the ALGO and the stage2 * This is not correct, it need to call the ALGO and the stage2