Merge pull request #5912 from martin-frbg/lapack1288

Fix seed advancement in SLARUV/DLARUV (Reference-LAPACK PR 1288)
2026-07-14 20:30:43 +02:00
parent fd88cac200 6b1d101317
commit 036e835019
2 changed files with 8 additions and 8 deletions
@@ -426,10 +426,10 @@
 *           the statistically correct thing to do in this situation is
 *           simply to iterate again.
 *           N.B. the case X( I ) = 0.0 should not be possible.
-            I1 = I1 + 2
-            I2 = I2 + 2
-            I3 = I3 + 2
-            I4 = I4 + 2
+            I1 = IT1
+            I2 = IT2
+            I3 = IT3
+            I4 = IT4
            GOTO 20
         END IF
 *
@@ -427,10 +427,10 @@
 *           the statistically correct thing to do in this situation is
 *           simply to iterate again.
 *           N.B. the case X( I ) = 0.0 should not be possible.
-            I1 = I1 + 2
-            I2 = I2 + 2
-            I3 = I3 + 2
-            I4 = I4 + 2
+            I1 = IT1
+            I2 = IT2
+            I3 = IT3
+            I4 = IT4
            GOTO 20
         END IF
 *