Sindbad~EG File Manager

double * vector(int nl,int nh);
#define free_vector(v,nl)  free((double *)((v)+(nl)))
int rkqc(double *,double *,int,double *,double,double,double *,
         double *,double *,double *,double,double, double *);
int derivs(int, double, double *, double *, double *, double *);
void reset_arrays(void);
int odeint( double *ystart, /* ystart[1..nvars] are the initial values         */
            int nvars,       /* number of dependent variables               */
            double x1,      /* starting value of independent variable      */
            double x2,      /* ending value of independent variable        */
            double eps,     /* accuracy desired                            */
            double h1,      /* guessed first stepsize                      */
            double hmin,    /* minimum allowed stepsize (can be zero)      */
            int *nok,       /* number of good steps taken                  */
            int *nbad,      /* number of bad, but retried and fixed, steps */
            double *xptr,   /* pointer to value of independent variable    */
            double **yptr,  /* array of pointers, dimension nvar,
                               legal indices starting from 1               */
            double xtol,    /* don't make lines more than this long        */
            double ytol,
            double *mass
          );