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
|
#ifndef OPT_H
#define OPT_H
#define F77
#ifdef F77
#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 thaw_param_ thaw_param__
#define perform_fit_ perform_fit__
#define get_param_ get_param__
#endif
extern "C"
{
void alloc_fit_(int&);
void free_fit_(const int& nxc);
void load_data_(const int& nfit,const int& ndatas,double* x,double* y,double* yl,double* yu=0,double* xl=0,double* xu=0);
void set_model_(const int& nfit,const char* model_name);
void set_param_(const int& nfit,const char* param_name,const double& value);
void freeze_param_(const int& nfit,const char* param_name);
void thraw_param_(const int& nfit,const char* param_name);
void perform_fit_(const int& nfit);
void get_param_(const int& nfit,double& r,const char* param_name);
}
#endif
|
