Mercurial > octave

changeset 1244:f0ad21c0b3a6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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	Tue Apr 11 00:37:34 1995 +0000
+++ b/src/mappers.cc	Tue Apr 11 00:40:46 1995 +0000
@@ -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;
 }