Skip to content

Commit eb1aa6d

Browse files
authored
Merge pull request #4060 from martin-frbg/lapack837
Add quick return from SLARUV/DLARUV for N < 1 (Reference-LAPACK PR 837)
2 parents 7796068 + 4473687 commit eb1aa6d

File tree

2 files changed

+10
-0
lines changed

2 files changed

+10
-0
lines changed

lapack-netlib/SRC/dlaruv.f

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -382,6 +382,11 @@ SUBROUTINE DLARUV( ISEED, N, X )
382382
$ 1537 /
383383
* ..
384384
* .. Executable Statements ..
385+
*
386+
* Quick return for N < 1
387+
IF ( N < 1 ) THEN
388+
RETURN
389+
END IF
385390
*
386391
I1 = ISEED( 1 )
387392
I2 = ISEED( 2 )

lapack-netlib/SRC/slaruv.f

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -382,6 +382,11 @@ SUBROUTINE SLARUV( ISEED, N, X )
382382
$ 1537 /
383383
* ..
384384
* .. Executable Statements ..
385+
*
386+
* Quick return for N < 1
387+
IF ( N < 1 ) THEN
388+
RETURN
389+
END IF
385390
*
386391
I1 = ISEED( 1 )
387392
I2 = ISEED( 2 )

0 commit comments

Comments
 (0)