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

Merge pull request #4060 from martin-frbg/lapack837 

Add quick return from SLARUV/DLARUV for N < 1 (Reference-LAPACK PR 837)
This commit is contained in:
Martin Kroeker 2023-05-25 16:00:25 +02:00 committed by GitHub
parent 7796068930 447368783a
commit eb1aa6d9cd
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 )