Mercurial > hg > octave-avbm
changeset 1770:efa268990e25
[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 +++ 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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;