All Classes Namespaces Functions Variables Typedefs Enumerations Enumerator Pages
fortran_wrapper.h
1 #ifndef _NETLIBWRAPPER_H_
2 #define _NETLIBWRAPPER_H_
3 
4 
5 // Define as extern "C" if using a C++ compiler
6 #ifdef __cplusplus
7 extern "C" {
8 #endif
9 
10 #define DDASPK FC_FUNC(ddaspk,DDASPK)
11 void DDASPK(void (*)(double*,double*,double*,double*,double*,int*,double*,int*),int*,double*,
12  double*, double*,double*,int*,double*,double*,int*, double*, int*,
13  int*, int*, double*,int*, void(*)(double*, int*, int*, double*,
14  double*, double*, double*, double*, double*, double*, double*,
15  double*, int*, int*, double*, int*),void(*)(int*, double*,
16  double*, double*, double*, double*, double*, double*,double*,
17  int*, double*,double*, int*,double*,int*));
18 
19 #define DLSODAR FC_FUNC(dlsodar,DLSODAR)
20 void DLSODAR(void (*)(int*,double*,double*,double*), int*, double*, double*,
21  double*, int*, double*, double*, int*, int*, int*, double*, int*,
22  int*, int*, void(*)(int*,double*,double*,int*,int*,double*,int*),
23  int*, void(*)(int*, double*, double*,
24  int*, double*), int*, int*);
25 
26 #define DLSODER FC_FUNC(dlsoder,DLSODER)
27 void DLSODER(void (*)(int*,double*,double*,double*), int*, double*, double*,
28  double*, int*, double*, double*, int*, int*, int*, double*, int*,
29  int*, int*, void(*)(int*,double*,double*,int*,int*,double*,int*),
30  int*, void(*)(int*, double*, double*,
31  int*, double*), int*, int*);
32 
33 #define DLSODE FC_FUNC(dlsode,DLSODE)
34 void DLSODE(void (*)(int*,double*,double*,double*), int*, double*, double*,
35  double*, int*, double*, double*, int*, int*, int*, double*, int*,
36  int*, int*, void(*)(int*,double*,double*,int*,int*,double*,int*), int*);
37 
38 #define SETUP FC_FUNC(setup,SETUP)
39 void SETUP(int*, double*, double*, double*,
40  double*, double*, int*, char*, int*,
41  double*, double*, int*, int*);
42 
43 #define UT FC_FUNC(ut,UT)
44 void UT(void (*)(double*,double*,double*), double*, double*, double*, double*,
45  double*, double*, int*, double*);
46 #define CT FC_FUNC(ct,CT)
47 void CT(void (*)(double*,double*,double*), double*, double*,
48  double*, double*, int*, double*);
49 #define INTRP FC_FUNC(intrp,INTRP)
50 void INTRP(double*,char*,int*,double*,double*,void (*)(double*,double*,double*),double*,double*,int*);
51 
52 #define DOPRI5 FC_FUNC(dopri5,DOPRI5)
53 void DOPRI5(int*,void(*)(int*,double*,double*,double*,double*,int*),double*,double*,
54  double*, double*,double*,int*,
55  void(*)(int*,double*,double*,double*,int*,double*,int*,int*,double*,int*,int*),
56  int*,double*,int*,int*,int*,double*,int*,int*);
57 
58 #define CONTD5 FC_FUNC(contd5,CONTD5)
59 double CONTD5(int*,double*,double*,int*,int*);
60 
61 #define DOP853 FC_FUNC(dop853,DOP853)
62 void DOP853(int*,void(*)(int*,double*,double*,double*,double*,int*),double*,double*,
63  double*, double*,double*,int*,
64  void(*)(int*,double*,double*,double*,int*,double*,int*,int*,double*,int*,int*),
65  int*,double*,int*,int*,int*,double*,int*,int*);
66 
67 #define CONTD8 FC_FUNC(contd8,CONTD8)
68 double CONTD8(int*,double*,double*,int*,int*);
69 
70 #define ODEX FC_FUNC(odex,ODEX)
71 void ODEX(int*,void(*)(int*,double*,double*,double*,double*,int*),double*,double*,
72  double*, double*,double*,double*,int*,
73  void(*)(int*,double*,double*,double*,int*,double*,int*,int*,int*,double*,int*,int*),
74  int*,double*,int*,int*,int*,double*,int*,int*);
75 
76 #define CONTEX FC_FUNC(contex,CONTEX)
77 double CONTEX(int*,double*,double*,int*,int*,int*);
78 
79 #define RADAU5 FC_FUNC(radau5,RADAU5)
80 void RADAU5(int*,void(*)(int*,double*,double*,double*,double*,int*),double*,double*,double*,
81  double*,double*,double*,int*,void(*)(int*,double*,double*,double*,int*,double*,int*),
82  int*,int*,int*,void(*)(int*,double*,int*,double*,int*),int*,int*,int*,
83  void(*)(int*,double*,double*,double*,double*,int*,int*,double*,int*,int*),
84  int*,double*,int*,int*,int*,double*,int*,int*);
85 
86 #define CONTR5 FC_FUNC(contr5,CONTR5)
87 double CONTR5(int*,double*,double*,int*);
88 
89 #define DDASKR FC_FUNC(ddaskr,DDASKR)
90 void DDASKR(void(*)(double*,double*,double*,double*,double*, double*,int*), int*, double*, double*, double*, double*, int*, double*, double*,
91  int*, double*, int*, int*, int*, double*, int*, void(*)(double*, double*, double*, double*, double*, double*, int*), double*,
92  void(*)(int*,double*,double*,double*,int*, double*,double*,int*),int*, int*);
93 
94 #define MEXX FC_FUNC(mexx,MEXX)
95  void mexx_(int *np,int *nv,int *nl,int *ng,int *nu,void fprob(int *np, int *nv, int *nl, int *ng, int *nu, double *t, double *p, double *v, double *u, double *rlam, int *lda, int *ldg, int *ldf, double *am, double *gp, double *fl, double *f, double *pdot, double *udot, double *g, double *gi, int *lflag, int *ifail), double *t,double *tfin, double *p,double *v,double *u,double *a,double *rlam,int *itol,double *rtol,double *atol,double *h,int *mxjob,int *ierr,int *liwk,int *iwk,int *lrwk,double *rwk,void solout(int *nr, int *np, int *nv, int *nu, int *nl,double *t , double *p, double *v, double *u, double *a, double *rlam, int *irtrn),void denout(int *nr, int *icall, int *ipol, double *t, int *nd, double *yip, int *irtrn),int *nswit,void fswit(int *np,int *nv,int *nu,int *nl,double* t,double* p,double* v,double* u,double *a,double* rlam,int *nswit,double *g),int *iswit);
96 
97 
98 // END: Define as extern "C" if using a C++ compiler
99 #ifdef __cplusplus
100 }
101 #endif
102 
103 
104 #endif

Impressum / Disclaimer / Datenschutz Generated by doxygen 1.8.5 Valid HTML