Mercurial > hg > octave-nkf
changeset 1244:f0ad21c0b3a6
[project @ 1995-04-11 00:40:46 by jwe]
author | jwe |
---|---|
date | Tue, 11 Apr 1995 00:40:46 +0000 |
parents | 668dc3c012b5 |
children | 85d1899047e1 |
files | src/mappers.cc |
diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/src/mappers.cc +++ b/src/mappers.cc @@ -44,8 +44,8 @@ extern "C" { - double F77_FCN (dgamma) (double*); - int F77_FCN (dlgams) (double*, double*, double*); + double F77_FCN (dgamma) (const double&); + int F77_FCN (dlgams) (const double&, double&, double&); } #ifndef M_LOG10E @@ -159,7 +159,7 @@ double xgamma (double x) { - return F77_FCN (dgamma) (&x); + return F77_FCN (dgamma) (x); } double @@ -180,7 +180,7 @@ double result; double sgngam; - F77_FCN (dlgams) (&x, &result, &sgngam); + F77_FCN (dlgams) (x, result, sgngam); return result; }