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

Add quick return if scaling with one (Reference-LAPACK PR674)

Browse Source
This commit is contained in:
Martin Kroeker
2022-11-20 13:30:25 +01:00
committed by GitHub
parent 60af35bfab
commit 3f31b69121
4 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lapack-netlib/SRC/clascl.f
View File

@@ -272,6 +272,8 @@
ELSE
MUL = CTOC / CFROMC
DONE = .TRUE.
IF (MUL .EQ. ONE)
$ RETURN
END IF
END IF
*

2
lapack-netlib/SRC/dlascl.f
View File

@@ -272,6 +272,8 @@
ELSE
MUL = CTOC / CFROMC
DONE = .TRUE.
IF (MUL .EQ. ONE)
$ RETURN
END IF
END IF
*

2
lapack-netlib/SRC/slascl.f
View File

@@ -272,6 +272,8 @@
ELSE
MUL = CTOC / CFROMC
DONE = .TRUE.
IF (MUL .EQ. ONE)
$ RETURN
END IF
END IF
*

2
lapack-netlib/SRC/zlascl.f
View File

@@ -272,6 +272,8 @@
ELSE
MUL = CTOC / CFROMC
DONE = .TRUE.
IF (MUL .EQ. ONE)
$ RETURN
END IF
END IF
*