1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55
|
/*
* definitions of global variables for ode.
* Copyright Nicholas B. Tufillaro, 1982-1994. All rights reserved.
* GNU enhancements copyright (C) 1996-1997 Free Software Foundation, Inc.
*/
#include "sys-defines.h"
#include "ode.h"
#include "extern.h"
/* defined and initialized */
const char *progname = "ode"; /* name of this program */
int prec = -1;
long it = 0;
double hmin = HMIN;
double hmax = HMAX;
double ssmin = 1e-11;
double ssmax = 1e-8;
double abmin = 1e-36;
double abmax = 1e36;
double acmax = 1e36;
struct sym *symtab = NULL;
struct sym *fsp = NULL;
struct sym *dqueue = NULL;
struct prt *pqueue = NULL;
struct expr exprzero =
{
O_CONST,
0.,
NULL,
NULL,
};
struct expr exprone =
{
O_CONST,
1.,
NULL,
NULL,
};
bool sawstep = false, sawprint = false;
bool sawevery = false, sawfrom = false;
bool tflag = false, pflag = false, sflag = false;
bool eflag = false, rflag = false, hflag = false, conflag = false;
integration_type algorithm = A_RUNGE_KUTTA_FEHLBERG;
/* defined but not initialized */
char *filename;
jmp_buf mark;
int fwd;
int tevery;
double tstart, tstop, tstep, tfrom;
bool printnum, prerr;
|