Mercurial > octave-nkf

changeset 1770:efa268990e25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-01-23 06:56:03 by jwe]
author jwe
date Tue, 23 Jan 1996 06:56:03 +0000
parents bc7ae9be3378
children aad66ed62e09
files liboctave/acosh.c liboctave/asinh.c liboctave/atanh.c liboctave/erf.c liboctave/erfc.c liboctave/gamma.c liboctave/lgamma.c
diffstat 7 files changed, 14 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- a/liboctave/acosh.c	Tue Jan 23 06:49:08 1996 +0000
+++ b/liboctave/acosh.c	Tue Jan 23 06:56:03 1996 +0000
@@ -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
--- a/liboctave/asinh.c	Tue Jan 23 06:49:08 1996 +0000
+++ b/liboctave/asinh.c	Tue Jan 23 06:56:03 1996 +0000
@@ -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
--- a/liboctave/atanh.c	Tue Jan 23 06:49:08 1996 +0000
+++ b/liboctave/atanh.c	Tue Jan 23 06:56:03 1996 +0000
@@ -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
--- a/liboctave/erf.c	Tue Jan 23 06:49:08 1996 +0000
+++ b/liboctave/erf.c	Tue Jan 23 06:56:03 1996 +0000
@@ -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
--- a/liboctave/erfc.c	Tue Jan 23 06:49:08 1996 +0000
+++ b/liboctave/erfc.c	Tue Jan 23 06:56:03 1996 +0000
@@ -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
--- a/liboctave/gamma.c	Tue Jan 23 06:49:08 1996 +0000
+++ b/liboctave/gamma.c	Tue Jan 23 06:56:03 1996 +0000
@@ -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
--- a/liboctave/lgamma.c	Tue Jan 23 06:49:08 1996 +0000
+++ b/liboctave/lgamma.c	Tue Jan 23 06:56:03 1996 +0000
@@ -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;