Mercurial > hg > octave-max

comparison liboctave/oct-rand.cc @ 4552:6f3382e08a52

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-10-27 20:38:02 by jwe]
author jwe
date Mon, 27 Oct 2003 20:38:03 +0000
parents 79df15d4470c
children 23b37da9fd5b
comparison
equal deleted inserted replaced
4551:2c619e5138fd 4552:6f3382e08a52
40 // Has the seed been set yet? 40 // Has the seed been set yet?
41 static bool initialized = false; 41 static bool initialized = false;
42 42
43 extern "C" 43 extern "C"
44 { 44 {
45 int F77_FUNC (dgennor, DGENNOR) (const double&, const double&, 45 F77_RET_T
46 double&); 46 F77_FUNC (dgennor, DGENNOR) (const double&, const double&, double&);
47 47
48 int F77_FUNC (dgenunf, DGENUNF) (const double&, const double&, 48 F77_RET_T
49 double&); 49 F77_FUNC (dgenunf, DGENUNF) (const double&, const double&, double&);
50 50
51 int F77_FUNC (setall, SETALL) (const int&, const int&); 51 F77_RET_T
52 52 F77_FUNC (setall, SETALL) (const int&, const int&);
53 int F77_FUNC (getsd, GETSD) (int&, int&); 53
54 54 F77_RET_T
55 int F77_FUNC (setsd, SETSD) (const int&, const int&); 55 F77_FUNC (getsd, GETSD) (int&, int&);
56 56
57 int F77_FUNC (setcgn, SETCGN) (const int&); 57 F77_RET_T
58 F77_FUNC (setsd, SETSD) (const int&, const int&);
59
60 F77_RET_T
61 F77_FUNC (setcgn, SETCGN) (const int&);
58 } 62 }
59 63
60 static int 64 static int
61 force_to_fit_range (int i, int lo, int hi) 65 force_to_fit_range (int i, int lo, int hi)
62 { 66 {