# HG changeset patch
# User jwe
# Date 797562237 0
# Node ID 86fc40576f22ef037407b13d8305de46dbbc5d82
# Parent  961d2acf5e860dbf82a445f840d9a4ef3a32d6ce
[project @ 1995-04-11 01:03:08 by jwe]

diff -r 961d2acf5e86 -r 86fc40576f22 liboctave/acosh.c
--- a/liboctave/acosh.c	Tue Apr 11 00:56:19 1995 +0000
+++ b/liboctave/acosh.c	Tue Apr 11 01:03:57 1995 +0000
@@ -21,19 +21,19 @@
 */
 
 #ifdef HAVE_CONFIG_H
-#include "config.h"
+#include <config.h>
 #endif
 
 #ifndef HAVE_ACOSH
 
 #include "f77-uscore.h"
 
-extern double F77_FCN (dacosh) (double*);
+extern double F77_FCN (dacosh) (const double&);
 
 double
 acosh (double x)
 {
-  return F77_FCN (dacosh) (&x);
+  return F77_FCN (dacosh) (x);
 }
 
 #endif
diff -r 961d2acf5e86 -r 86fc40576f22 src/rand.cc
--- a/src/rand.cc	Tue Apr 11 00:56:19 1995 +0000
+++ b/src/rand.cc	Tue Apr 11 01:03:57 1995 +0000
@@ -43,10 +43,10 @@
 
 extern "C"
 {
-  int *F77_FCN (dgennor) (double*, double*, double*);
-  int *F77_FCN (dgenunf) (double*, double*, double*);
-  int *F77_FCN (setall) (int*, int*);
-  int *F77_FCN (getsd) (int*, int*);
+  int *F77_FCN (dgennor) (const double&, const double&, double&);
+  int *F77_FCN (dgenunf) (const double&, const double&, double&);
+  int *F77_FCN (setall) (const int&, const int&);
+  int *F77_FCN (getsd) (int&, int&);
 }
 
 static double
@@ -54,7 +54,7 @@
 {
   union d2i { double d; int i[2]; };
   union d2i u;
-  F77_FCN (getsd) (&(u.i[0]), &(u.i[1]));
+  F77_FCN (getsd) (u.i[0]), u.i[1]);
   return u.d;
 }
 
@@ -81,7 +81,7 @@
   u.d = val;
   int i0 = force_to_fit_range (u.i[0], 1, 2147483563);
   int i1 = force_to_fit_range (u.i[1], 1, 2147483399);
-  F77_FCN (setall) (&i0, &i1);
+  F77_FCN (setall) (i0, i1);
 }
 
 static char *
@@ -147,7 +147,7 @@
       s0 = force_to_fit_range (s0, 1, 2147483563);
       s1 = force_to_fit_range (s1, 1, 2147483399);
 
-      F77_FCN (setall) (&s0, &s1);
+      F77_FCN (setall) (s0, s1);
       initialized = 1;
     }
 
@@ -266,18 +266,16 @@
       for (int j = 0; j < m; j++)
 	for (int i = 0; i < n; i++)
 	  {
-	    double d_zero = 0.0;
-	    double d_one = 1.0;
 	    double val;
 	    switch (current_distribution)
 	      {
 	      case uniform:
-		F77_FCN (dgenunf) (&d_zero, &d_one, &val);
+		F77_FCN (dgenunf) (0.0, 1.0, val);
 		rand_mat.elem (i, j) = val;
 		break;
 
 	      case normal:
-		F77_FCN (dgennor) (&d_zero, &d_one, &val);
+		F77_FCN (dgennor) (0.0, 1.0, val);
 		rand_mat.elem (i, j) = val;
 		break;