asc26 amss-ncku initialized
This commit is contained in:
249
AMSS_NCKU_source/initial_puncture.h
Normal file
249
AMSS_NCKU_source/initial_puncture.h
Normal file
@@ -0,0 +1,249 @@
|
||||
|
||||
#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 */
|
||||
Reference in New Issue
Block a user