Mercurial > hg > octave-nkf

diff liboctave/CollocWt.cc @ 3887:7da18459c08b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-04-04 00:44:21 by jwe]
author jwe
date Thu, 04 Apr 2002 00:46:37 +0000
parents 5eef8a2294bd
children 6e86256e9c54
line wrap: on
line diff
--- a/liboctave/CollocWt.cc
+++ b/liboctave/CollocWt.cc
@@ -36,11 +36,11 @@
 
 extern "C"
 {
-  int F77_FCN (jcobi, JCOBI) (int&, int&, int&, int&, double&,
+  int F77_FUNC (jcobi, JCOBI) (int&, int&, int&, int&, double&,
 			      double&, double*, double*, double*,
 			      double*);
 
-  int F77_FCN (dfopr, DFOPR) (int&, int&, int&, int&, int&, int&,
+  int F77_FUNC (dfopr, DFOPR) (int&, int&, int&, int&, int&, int&,
 			      double*, double*, double*, double*,
 			      double*);
 }
@@ -124,7 +124,7 @@
 
   // Compute roots.
 
-  F77_FCN (jcobi, JCOBI) (nt, n, inc_left, inc_right, Alpha, Beta,
+  F77_FUNC (jcobi, JCOBI) (nt, n, inc_left, inc_right, Alpha, Beta,
 			  pdif1, pdif2, pdif3, pr);
 
   int id;
@@ -134,7 +134,7 @@
   id = 1;
   for (int i = 1; i <= nt; i++)
     {
-      F77_FCN (dfopr, DFOPR) (nt, n, inc_left, inc_right, i, id, pdif1,
+      F77_FUNC (dfopr, DFOPR) (nt, n, inc_left, inc_right, i, id, pdif1,
 			      pdif2, pdif3, pr, pvect); 
 
       for (int j = 0; j < nt; j++)
@@ -146,7 +146,7 @@
   id = 2;
   for (int i = 1; i <= nt; i++)
     {
-      F77_FCN (dfopr, DFOPR) (nt, n, inc_left, inc_right, i, id, pdif1,
+      F77_FUNC (dfopr, DFOPR) (nt, n, inc_left, inc_right, i, id, pdif1,
 			      pdif2, pdif3, pr, pvect); 
 
       for (int j = 0; j < nt; j++)
@@ -157,7 +157,7 @@
 
   id = 3;
   double *pq = q.fortran_vec ();
-  F77_FCN (dfopr, DFOPR) (nt, n, inc_left, inc_right, id, id, pdif1,
+  F77_FUNC (dfopr, DFOPR) (nt, n, inc_left, inc_right, id, id, pdif1,
 			  pdif2, pdif3, pr, pq);
 
   initialized = 1;