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

Add quick return for N < 1 (Reference-LAPACK PR 837)

This commit is contained in:
Martin Kroeker 2023-05-25 13:06:15 +02:00 committed by GitHub
parent 7796068930
commit 447368783a
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lapack-netlib/SRC/dlaruv.f
View File

@ -382,6 +382,11 @@
$ 1537 / $ 1537 /
* .. * ..
* .. Executable Statements .. * .. Executable Statements ..
*
* Quick return for N < 1
IF ( N < 1 ) THEN
RETURN
END IF
* *
I1 = ISEED( 1 ) I1 = ISEED( 1 )
I2 = ISEED( 2 ) I2 = ISEED( 2 )

5
lapack-netlib/SRC/slaruv.f
View File

@ -382,6 +382,11 @@
$ 1537 / $ 1537 /
* .. * ..
* .. Executable Statements .. * .. Executable Statements ..
*
* Quick return for N < 1
IF ( N < 1 ) THEN
RETURN
END IF
* *
I1 = ISEED( 1 ) I1 = ISEED( 1 )
I2 = ISEED( 2 ) I2 = ISEED( 2 )