Merge pull request #837 from weslleyspereira/fix-laruv

Exits xLARUV when N < 1

Author: langou

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 )

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 )