# HG changeset patch
# User jwe
# Date 797560846 0
# Node ID f0ad21c0b3a612666b2aef6999a309e0ecd2cacd
# Parent  668dc3c012b5920eba3a7ab7d6d38de6727a17c5
[project @ 1995-04-11 00:40:46 by jwe]

diff -r 668dc3c012b5 -r f0ad21c0b3a6 src/mappers.cc
--- 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;
 }