Mercurial > hg > octave-nkf

diff src/mappers.cc @ 1255:fa24599e3d2c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-04-11 17:49:27 by jwe]
author jwe
date Tue, 11 Apr 1995 17:49:27 +0000
parents f0ad21c0b3a6
children 8c8a83cf184a
line wrap: on
line diff
--- a/src/mappers.cc
+++ b/src/mappers.cc
@@ -44,8 +44,8 @@
 
 extern "C"
 {
-  double F77_FCN (dgamma) (const double&);
-  int F77_FCN (dlgams) (const double&, double&, double&);
+  double F77_FCN (dgamma, DGAMMA) (const double&);
+  int F77_FCN (dlgams, 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, DGAMMA) (x);
 }
 
 double
@@ -180,7 +180,7 @@
   double result;
   double sgngam;
 
-  F77_FCN (dlgams) (x, result, sgngam);
+  F77_FCN (dlgams, DLGAMS) (x, result, sgngam);
 
   return result;
 }