Applies changes from @zerothi at #225

Author: weslleyspereira

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 )