250 lines
12 KiB
C
250 lines
12 KiB
C
|
|
#ifndef GET_INITIAL_H
|
|
#define GET_INITIAL_H
|
|
|
|
#ifdef fortran1
|
|
#define f_get_initial_kerrschild get_initial_kerrschild
|
|
#define f_get_initial_kerrschild_ss get_initial_kerrschild_ss
|
|
#define f_get_initial_single get_initial_bssn3
|
|
#define f_get_ansorg_single get_ansorg_single
|
|
#define f_get_initial_binary get_initial_bssn6
|
|
#define f_get_ansorg_binary get_ansorg_binary
|
|
#define f_get_ansorg_nbhs get_ansorg_nbhs
|
|
#define f_get_ansorg_nbhs_escalar get_ansorg_nbhs_escalar
|
|
#define f_get_ansorg_nbhs_ss get_ansorg_nbhs_ss
|
|
#define f_get_ansorg_nbhs_ss_escalar get_ansorg_nbhs_ss_escalar
|
|
#define f_get_initial_postdeal get_initial_postdeal
|
|
#define f_get_initial_nbhs get_initial_nbhs
|
|
#define f_get_lousto_nbhs get_lousto_nbhs
|
|
#define f_get_pablo_nbhs get_pablo_nbhs
|
|
#define f_get_shapiro get_shapiro
|
|
#define f_get_niall_minkowski get_niall_minkowski
|
|
#endif
|
|
#ifdef fortran2
|
|
#define f_get_initial_kerrschild GET_INITIAL_KERRSCHILD
|
|
#define f_get_initial_kerrschild_ss GET_INITIAL_KERRSCHILD_SS
|
|
#define f_get_initial_single GET_INITIAL_BSSN3
|
|
#define f_get_ansorg_single GET_ANSORG_SINGLE
|
|
#define f_get_initial_binary GET_INITIAL_BSSN6
|
|
#define f_get_ansorg_binary GET_ANSORG_BINARY
|
|
#define f_get_ansorg_nbhs GET_ANSORG_NBHS
|
|
#define f_get_ansorg_nbhs_escalar GET_ANSORG_NBHS_ESCALAR
|
|
#define f_get_ansorg_nbhs_ss GET_ANSORG_NBHS_SS
|
|
#define f_get_ansorg_nbhs_ss_escalar GET_ANSORG_NBHS_SS_ESCALAR
|
|
#define f_get_initial_postdeal GET_INITIAL_POSTDEAL
|
|
#define f_get_initial_nbhs GET_INITIAL_NBHS
|
|
#define f_get_lousto_nbhs GET_LOUSTO_NBHS
|
|
#define f_get_pablo_nbhs GET_PABLO_NBHS
|
|
#define f_get_shapiro GET_SHAPIRO
|
|
#define f_get_niall_minkowski GRT_NIALL_MINKOWSKI
|
|
#endif
|
|
#ifdef fortran3
|
|
#define f_get_initial_kerrschild get_initial_kerrschild_
|
|
#define f_get_initial_kerrschild_ss get_initial_kerrschild_ss_
|
|
#define f_get_initial_single get_initial_bssn3_
|
|
#define f_get_ansorg_single get_ansorg_single_
|
|
#define f_get_initial_binary get_initial_bssn6_
|
|
#define f_get_ansorg_binary get_ansorg_binary_
|
|
#define f_get_ansorg_nbhs get_ansorg_nbhs_
|
|
#define f_get_ansorg_nbhs_escalar get_ansorg_nbhs_escalar_
|
|
#define f_get_ansorg_nbhs_ss get_ansorg_nbhs_ss_
|
|
#define f_get_ansorg_nbhs_ss_escalar get_ansorg_nbhs_ss_escalar_
|
|
#define f_get_initial_postdeal get_initial_postdeal_
|
|
#define f_get_initial_nbhs get_initial_nbhs_
|
|
#define f_get_lousto_nbhs get_lousto_nbhs_
|
|
#define f_get_pablo_nbhs get_pablo_nbhs_
|
|
#define f_get_shapiro get_shapiro_
|
|
#define f_get_niall_minkowski get_niall_minkowski_
|
|
#endif
|
|
|
|
extern "C"
|
|
{
|
|
void f_get_initial_kerrschild(int *, double *, double *, double *,
|
|
double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *,
|
|
double *, double *, double *);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_get_initial_kerrschild_ss(int *, double *, double *, double *,
|
|
double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *,
|
|
double *, double *, double *);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_get_initial_single(int *, double *, double *, double *,
|
|
double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double &, double *, double *, double *);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_get_initial_binary(int *, double *, double *, double *,
|
|
double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_get_ansorg_single(int *, double *, double *, double *,
|
|
double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double &, double *, double *, double *);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_get_ansorg_binary(int *, double *, double *, double *,
|
|
double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_get_ansorg_nbhs(int *, double *, double *, double *,
|
|
double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *, int &);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_get_ansorg_nbhs_ss(int *, double *, double *, double *,
|
|
double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *, int &);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_get_initial_postdeal(int *, double *, double *, double *,
|
|
double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *,
|
|
double *, double *, double *);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_get_lousto_nbhs(int *, double *, double *, double *,
|
|
double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *, int &);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_get_initial_nbhs(int *, double *, double *, double *,
|
|
double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *, int &);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_get_pablo_nbhs(int *, double *, double *, double *,
|
|
double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *, int &);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_get_shapiro(int *, double *, double *, double *,
|
|
double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *,
|
|
double *, double *, double *, int &);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_get_niall_minkowski(int *, double *, double *, double *,
|
|
double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *,
|
|
double *, double *, double *);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_get_ansorg_nbhs_escalar(int *, double *, double *, double *,
|
|
double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *,
|
|
double *, double *, double *, double *, int &);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_get_ansorg_nbhs_ss_escalar(int *, double *, double *, double *,
|
|
double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *,
|
|
double *, double *, double *, double *, int &);
|
|
}
|
|
|
|
#endif /* GET_INITIAL_H */
|