OSchip
/
OpenBLAS
Not watched
1
0
Fork 0
Code
Releases 66 Wiki evaluate Activity
Issues 0 Pull Requests 0 Datasets Model Cloudbrain HPC
Browse Source

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

tags/v0.3.24
Martin Kroeker GitHub 2 years ago
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
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. +5
    -0
      lapack-netlib/SRC/dlaruv.f
  2. +5
    -0
      lapack-netlib/SRC/slaruv.f

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

@@ -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 )


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

@@ -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 )


Write Preview
Loading…
Cancel
Save