46 |
|
|
47 |
|
#include "config.h" |
48 |
|
|
49 |
< |
#define newGayBerneType F90_FUNC_(set_gb_pair_params, SET_GB_PAIR_PARAMS) |
50 |
< |
#define completeGayBerneFF F90_FUNC(completegayberneff, COMPLETEGAYBERNEFF) |
51 |
< |
#define destroyGayBerneTypes F90_FUNC(destroygaybernetypes, DESTROYGAYBERNETYPES) |
49 |
> |
#define newGayBerneType F90_FUNC_(newgbtype, NEWGBTYPE) |
50 |
> |
#define destroyGayBerneTypes F90_FUNC(destroygbtypes, DESTROYGBTYPES) |
51 |
|
|
52 |
|
extern "C"{ |
53 |
< |
void newGayBerneType( double* GB_sigma, |
53 |
> |
void newGayBerneType( int* ident, |
54 |
> |
double* GB_sigma, |
55 |
|
double* GB_l2b_ratio, |
56 |
|
double* GB_eps, |
57 |
|
double* GB_eps_ratio, |
58 |
|
double* GB_mu, |
59 |
< |
double* GB_nu ); |
59 |
> |
double* GB_nu, |
60 |
> |
int* status); |
61 |
|
|
62 |
< |
void completeGayBerneFF( int* status); |
63 |
< |
void destroyGayBerneTypes(void); |
62 |
> |
void destroyGayBerneTypes( void ); |
63 |
> |
|
64 |
|
} |
65 |
|
#endif |