# HG changeset patch
# User jwe
# Date 822380163 0
# Node ID efa268990e250e077d08cab6da6bbc2f637ae3ae
# Parent  bc7ae9be3378c89da01c77e7c62cfd45a4ce0b93
[project @ 1996-01-23 06:56:03 by jwe]

diff --git a/liboctave/acosh.c b/liboctave/acosh.c
--- a/liboctave/acosh.c
+++ b/liboctave/acosh.c
@@ -28,12 +28,12 @@
 
 #include "f77-uscore.h"
 
-extern double F77_FCN (dacosh, DACOSH) (const double&);
+extern double F77_FCN (dacosh, DACOSH) (const double*);
 
 double
 acosh (double x)
 {
-  return F77_FCN (dacosh, DACOSH) (x);
+  return F77_FCN (dacosh, DACOSH) (&x);
 }
 
 #endif
diff --git a/liboctave/asinh.c b/liboctave/asinh.c
--- a/liboctave/asinh.c
+++ b/liboctave/asinh.c
@@ -28,12 +28,12 @@
 
 #include "f77-uscore.h"
 
-extern double F77_FCN (dasinh, DASINH) (const double&);
+extern double F77_FCN (dasinh, DASINH) (const double*);
 
 double
 asinh (double x)
 {
-  return F77_FCN (dasinh, DASINH) (x);
+  return F77_FCN (dasinh, DASINH) (&x);
 }
 
 #endif
diff --git a/liboctave/atanh.c b/liboctave/atanh.c
--- a/liboctave/atanh.c
+++ b/liboctave/atanh.c
@@ -28,12 +28,12 @@
 
 #include "f77-uscore.h"
 
-extern double F77_FCN (datanh, DATANH) (const double&);
+extern double F77_FCN (datanh, DATANH) (const double*);
 
 double
 atanh (double x)
 {
-  return F77_FCN (datanh, DATANH) (x);
+  return F77_FCN (datanh, DATANH) (&x);
 }
 
 #endif
diff --git a/liboctave/erf.c b/liboctave/erf.c
--- a/liboctave/erf.c
+++ b/liboctave/erf.c
@@ -28,12 +28,12 @@
 
 #include "f77-uscore.h"
 
-extern double F77_FCN (derf, DERF) (const double&);
+extern double F77_FCN (derf, DERF) (const double*);
 
 double
 erf (double x)
 {
-  return F77_FCN (derf, DERF) (x);
+  return F77_FCN (derf, DERF) (&x);
 }
 
 #endif
diff --git a/liboctave/erfc.c b/liboctave/erfc.c
--- a/liboctave/erfc.c
+++ b/liboctave/erfc.c
@@ -28,12 +28,12 @@
 
 #include "f77-uscore.h"
 
-extern double F77_FCN (derfc, DERFC) (const double&);
+extern double F77_FCN (derfc, DERFC) (const double*);
 
 double
 erfc (double x)
 {
-  return F77_FCN (derfc, DERFC) (x);
+  return F77_FCN (derfc, DERFC) (&x);
 }
 
 #endif
diff --git a/liboctave/gamma.c b/liboctave/gamma.c
--- a/liboctave/gamma.c
+++ b/liboctave/gamma.c
@@ -28,12 +28,12 @@
 
 #include "f77-uscore.h"
 
-extern double F77_FCN (dgamma, DGAMMA) (const double&);
+extern double F77_FCN (dgamma, DGAMMA) (const double*);
 
 double
 gamma (double x)
 {
-  return F77_FCN (dgamma, DGAMMA) (x);
+  return F77_FCN (dgamma, DGAMMA) (&x);
 }
 
 #endif
diff --git a/liboctave/lgamma.c b/liboctave/lgamma.c
--- a/liboctave/lgamma.c
+++ b/liboctave/lgamma.c
@@ -33,7 +33,7 @@
 
 int signgam;
 
-extern int F77_FCN (dlgams, DLGAMS) (const double&, double&, double&);
+extern int F77_FCN (dlgams, DLGAMS) (const double*, double*, double*);
 
 double
 lgamma (double x)
@@ -41,7 +41,7 @@
   double result;
   double sgngam;
 
-  F77_FCN (dlgams, DLGAMS) (x, result, sgngam);
+  F77_FCN (dlgams, DLGAMS) (&x, &result, &sgngam);
 
   signgam = (int) sgngam;