Merge pull request #4060 from martin-frbg/lapack837

Add quick return from SLARUV/DLARUV for N < 1 (Reference-LAPACK PR 837)

Author: martin-frbg

lapack-netlib/SRC/dlaruv.f

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

lapack-netlib/SRC/slaruv.f

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