Browse Source
Merge pull request #4060 from martin-frbg/lapack837
Add quick return from SLARUV/DLARUV for N < 1 (Reference-LAPACK PR 837)
tags/v0.3.24
Martin Kroeker
GitHub
2 years ago
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with
10 additions and
0 deletions
-
lapack-netlib/SRC/dlaruv.f
-
lapack-netlib/SRC/slaruv.f
|
|
|
@@ -382,6 +382,11 @@ |
|
|
|
$ 1537 / |
|
|
|
* .. |
|
|
|
* .. Executable Statements .. |
|
|
|
* |
|
|
|
* Quick return for N < 1 |
|
|
|
IF ( N < 1 ) THEN |
|
|
|
RETURN |
|
|
|
END IF |
|
|
|
* |
|
|
|
I1 = ISEED( 1 ) |
|
|
|
I2 = ISEED( 2 ) |
|
|
|
|
|
|
|
@@ -382,6 +382,11 @@ |
|
|
|
$ 1537 / |
|
|
|
* .. |
|
|
|
* .. Executable Statements .. |
|
|
|
* |
|
|
|
* Quick return for N < 1 |
|
|
|
IF ( N < 1 ) THEN |
|
|
|
RETURN |
|
|
|
END IF |
|
|
|
* |
|
|
|
I1 = ISEED( 1 ) |
|
|
|
I2 = ISEED( 2 ) |
|
|
|
|
