Mercurial > octave

diff 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
line wrap: on
line diff
--- a/liboctave/oct-rand.cc	Mon Oct 27 17:04:38 2003 +0000
+++ b/liboctave/oct-rand.cc	Mon Oct 27 20:38:03 2003 +0000
@@ -42,19 +42,23 @@
 
 extern "C"
 {
-  int F77_FUNC (dgennor, DGENNOR) (const double&, const double&,
-				  double&);
+  F77_RET_T
+  F77_FUNC (dgennor, DGENNOR) (const double&, const double&, double&);
 
-  int F77_FUNC (dgenunf, DGENUNF) (const double&, const double&,
-				  double&);
+  F77_RET_T
+  F77_FUNC (dgenunf, DGENUNF) (const double&, const double&, double&);
+
+  F77_RET_T
+  F77_FUNC (setall, SETALL) (const int&, const int&);
 
-  int F77_FUNC (setall, SETALL) (const int&, const int&);
-
-  int F77_FUNC (getsd, GETSD) (int&, int&);
+  F77_RET_T
+  F77_FUNC (getsd, GETSD) (int&, int&);
 
-  int F77_FUNC (setsd, SETSD) (const int&, const int&);
+  F77_RET_T
+  F77_FUNC (setsd, SETSD) (const int&, const int&);
 
-  int F77_FUNC (setcgn, SETCGN) (const int&);
+  F77_RET_T
+  F77_FUNC (setcgn, SETCGN) (const int&);
 }
 
 static int