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
|
#ifndef OPT_H
#define OPT_H
//#define F77
#ifdef F77
#define optimize_powell_ optimize_powell__
#define alloc_fit_ alloc_fit__
#define free_fit_ free_fit__
#define load_data_ load_data__
#define set_model_ set_model__
#define set_param_ set_param__
#define freeze_param_ freeze_param__
#define thraw_param_ thraw_param__
#define perform_fit_ perform_fit__
#define get_param_ get_param__
#endif
extern "C"
{
void optimize_powell_(double (*pfunc)(const double*),const int& np,double* params,const double& precision);
int alloc_fit_(int&);
int free_fit_(const int& nxc);
int load_data_(const int& nfit,const int& ndatas,double* x,double* y,double* yl,double* yu=0,double* xl=0,double* xu=0);
int set_model_(const int& nfit,const char* model_name);
int set_param_(const int& nfit,const char* param_name,const double& value);
int freeze_param_(const int& nfit,const char* param_name);
int thraw_param_(const int& nfit,const char* param_name);
int perform_fit_(const int& nfit);
int get_param_(const int& nfit,double& r,const char* param_name);
}
#endif
|
