diff --git a/lapack-netlib/SRC/dlaruv.f b/lapack-netlib/SRC/dlaruv.f index 0f5c9541d..1a4ce4009 100644 --- a/lapack-netlib/SRC/dlaruv.f +++ b/lapack-netlib/SRC/dlaruv.f @@ -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 ) diff --git a/lapack-netlib/SRC/slaruv.f b/lapack-netlib/SRC/slaruv.f index c25dc2e2f..cd37a1c47 100644 --- a/lapack-netlib/SRC/slaruv.f +++ b/lapack-netlib/SRC/slaruv.f @@ -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 )