Mercurial > octave

comparison src/rand.cc @ 1250:5cca5ae20299

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-04-11 01:07:17 by jwe]
author jwe
date Tue, 11 Apr 1995 01:07:17 +0000
parents 86fc40576f22
children fa24599e3d2c
comparison
equal deleted inserted replaced
1249:86fc40576f22 1250:5cca5ae20299
52 static double 52 static double
53 curr_rand_seed (void) 53 curr_rand_seed (void)
54 { 54 {
55 union d2i { double d; int i[2]; }; 55 union d2i { double d; int i[2]; };
56 union d2i u; 56 union d2i u;
57 F77_FCN (getsd) (u.i[0]), u.i[1]); 57 F77_FCN (getsd) (u.i[0], u.i[1]);
58 return u.d; 58 return u.d;
59 } 59 }
60 60
61 static int 61 static int
62 force_to_fit_range (int i, int lo, int hi) 62 force_to_fit_range (int i, int lo, int hi)