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)

This commit is contained in:
Martin Kroeker 2022-11-20 13:30:25 +01:00 committed by GitHub
parent 60af35bfab
commit 3f31b69121
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 8 additions and 0 deletions
Show Stats 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 ELSE
MUL = CTOC / CFROMC MUL = CTOC / CFROMC
DONE = .TRUE. DONE = .TRUE.
IF (MUL .EQ. ONE)
$ RETURN
END IF END IF
END IF END IF
* *

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

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

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

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

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

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