Mercurial > octave
diff liboctave/CollocWt.cc @ 1253:bb67a902760b
[project @ 1995-04-11 16:35:23 by jwe]
| author | jwe |
|---|---|
| date | Tue, 11 Apr 1995 16:35:23 +0000 |
| parents | 97eac19837dc |
| children | f93b7fa5e113 |
line wrap: on
line diff
--- a/liboctave/CollocWt.cc Tue Apr 11 16:04:14 1995 +0000 +++ b/liboctave/CollocWt.cc Tue Apr 11 16:35:23 1995 +0000 @@ -33,11 +33,13 @@ extern "C" { - int F77_FCN (jcobi) (int&, int&, int&, int&, double&, double&, - double*, double*, double*, double*); + int F77_FCN (jcobi, JCOBI) (int&, int&, int&, int&, double&, + double&, double*, double*, double*, + double*); - int F77_FCN (dfopr) (int&, int&, int&, int&, int&, int&, - double*, double*, double*, double*, double*); + int F77_FCN (dfopr, DFOPR) (int&, int&, int&, int&, int&, int&, + double*, double*, double*, double*, + double*); } // Error handling. @@ -275,8 +277,8 @@ // Compute roots. - F77_FCN (jcobi) (nt, n, inc_left, inc_right, Alpha, Beta, - dif1, dif2, dif3, pr); + F77_FCN (jcobi, JCOBI) (nt, n, inc_left, inc_right, Alpha, Beta, + dif1, dif2, dif3, pr); int id; int i, j; @@ -286,8 +288,8 @@ id = 1; for (i = 1; i <= nt; i++) { - F77_FCN (dfopr) (nt, n, inc_left, inc_right, i, id, dif1, - dif2, dif3, pr, vect); + F77_FCN (dfopr, DFOPR) (nt, n, inc_left, inc_right, i, id, dif1, + dif2, dif3, pr, vect); for (j = 0; j < nt; j++) A (i-1, j) = vect[j]; @@ -298,8 +300,8 @@ id = 2; for (i = 1; i <= nt; i++) { - F77_FCN (dfopr) (nt, n, inc_left, inc_right, i, id, dif1, - dif2, dif3, pr, vect); + F77_FCN (dfopr, DFOPR) (nt, n, inc_left, inc_right, i, id, dif1, + dif2, dif3, pr, vect); for (j = 0; j < nt; j++) B (i-1, j) = vect[j]; @@ -309,8 +311,8 @@ id = 3; double *pq = q.fortran_vec (); - F77_FCN (dfopr) (nt, n, inc_left, inc_right, i, id, dif1, - dif2, dif3, pr, pq); + F77_FCN (dfopr, DFOPR) (nt, n, inc_left, inc_right, i, id, dif1, + dif2, dif3, pr, pq); delete [] dif1; delete [] dif2;