#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