2
* headers of the (Fortran and C) functions called
6
/* from somespline.f */
7
int C2F(derivd) (double *x, double *y, double *d, int *n, int *inc, int *type);
9
int C2F(dpchim) (int *n, double *x, double *y, double *d, int *inc);
11
int C2F(splinecub) (double *x, double *y, double *d, int *n, int *type,
12
double *wk1, double *wk2, double *wk3, double *wk4);
14
int C2F(evalpwhermite) (double *t, double *st, double *dst, double *ddst, double *dddst,
15
int *m, double *x, double *y, double *d, int *n, int *outmode);
17
int C2F(bicubicsubspline)(double *x, double *y, double *z, int *nx, int *ny,
18
double *C, double *p, double *q, double *r, int *spline_type);
20
int C2F(bicubicspline)(double *x, double *y, double *u, int *nx, int *ny,
21
double *C, double *p, double *q, double *r,
22
double *A_d, double *A_sd, double *d, double *ll,
23
double *qdu, double *u_temp, int *spline_type);
25
int C2F(bicubicinterp)(double *x, double *y, double *C, int *nx, int *ny,
26
double *x_eval, double *y_eval, double *z_eval, int *m,
30
int C2F(spfit)(double *xp, double *yp, double *wp, int *m, double *x, int *l,
31
double *y, double *d, double *wk, int *ierr);
33
/* from someinterp.c */
34
void nlinear_interp(double **x , double val[], int dim[], int n,
35
double **xp, double yp[], int np, int outmode,
36
double u[], double v[], int ad[], int k[]);
39
integer C2F(getfastcode)(unsigned char *c, unsigned long c_len);
43
int C2F(cshep2) (int *n, double *x, double *y, double *z, int *nc, int *nw,
44
int *nr, int *lcell, int *lnext, double *xmin, double *xmax,
45
double *dx, double *dy, double *rmax, double *rw, double *a, int *ier);
47
double C2F(cs2val)(double *px, double *py, int *n, double *x, double *y,
48
double *f, int *nr, int *lcell, int *lnext, double *xmin, double *ymin,
49
double *dx, double *dy, double *rmax, double *rw, double *a);
51
int C2F(cs2grd) (double *px, double *py, int *n, double *x, double *y, double *f,
52
int *nr, int *lcell, int *lnext, double *xmin, double *ymin,
53
double *dx, double *dy, double *rmax, double *rw, double *a,
54
double *c, double *cx, double *cy, int *ier);
56
int C2F(cs2hes) (double *px, double *py, int *n, double *x, double *y, double *f,
57
int *nr, int *lcell, int *lnext, double *xmin, double *ymin,
58
double *dx, double *dy, double *rmax, double *rw, double *a,
59
double *c, double *cx, double *cy,
60
double *cxx, double *cxy, double *cyy, int *ier);
63
/* from the tensbs package */
64
double C2F(db2val)(double *xval, double *yval, int *idx, int *idy,
65
double *tx, double *ty, int *nx, int *ny,
66
int *kx, int *ky, double *bcoef, double *work);
67
double C2F(db3val)(double *xval, double *yval, double *zval, int *idx, int *idy, int *idz,
68
double *tx, double *ty, double *tz, int *nx, int *ny, int *nz,
69
int *kx, int *ky, int *kz, double *bcoef, double *work);