Mercurial > hg > octave-nkf

diff liboctave/oct-rand.cc @ 6326:129ef2ae319f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-02-18 14:01:27 by dbateman]
author dbateman
date Sun, 18 Feb 2007 14:01:27 +0000
parents 22e23bee74c8
children 71888a0ab040
line wrap: on
line diff
--- a/liboctave/oct-rand.cc
+++ b/liboctave/oct-rand.cc
@@ -107,7 +107,9 @@
 do_old_initialization (void)
 {
   octave_localtime tm;
- 
+  int stored_distribution = current_distribution;
+  F77_FUNC (setcgn, SETCGN) (uniform_dist);
+
   int hour = tm.hour() + 1;
   int minute = tm.min() + 1;
   int second = tm.sec() + 1;
@@ -119,6 +121,7 @@
   s1 = force_to_fit_range (s1, 1, 2147483399);
 
   F77_FUNC (setall, SETALL) (s0, s1);
+  F77_FUNC (setcgn, SETCGN) (stored_distribution);
 
   old_initialized = true;
 }