99 lines
2.7 KiB
C
99 lines
2.7 KiB
C
|
|
#ifndef INITIAL_NULL2_H
|
|
#define INITIAL_NULL2_H
|
|
|
|
#ifdef fortran1
|
|
#define f_get_initial_null2 get_initial_null2
|
|
#define f_get_initial_null3 get_initial_null3
|
|
#define f_get_gauge_g00 get_gauge_g00
|
|
#define f_get_gauge_g00_K get_gauge_g00_k
|
|
#define f_get_gauge_g00_real get_gauge_g00_real
|
|
#define f_get_null_boundary2 get_null_boundary2
|
|
#define f_get_null_boundary3 get_null_boundary3
|
|
#define f_get_g00_with_t get_g00_with_t
|
|
#endif
|
|
#ifdef fortran2
|
|
#define f_get_initial_null2 GET_INITIAL_NULL2
|
|
#define f_get_initial_null3 GET_INITIAL_NULL3
|
|
#define f_get_gauge_g00 GET_GAUGE_G00
|
|
#define f_get_gauge_g00_K GET_GAUGE_G00_K
|
|
#define f_get_gauge_g00_real GET_GAUGE_G00_REAL
|
|
#define f_get_null_boundary2 GET_NULL_BOUNDARY2
|
|
#define f_get_null_boundary3 GET_NULL_BOUNDARY3
|
|
#define f_get_g00_with_t GET_G00_WITH_T
|
|
#endif
|
|
#ifdef fortran3
|
|
#define f_get_initial_null2 get_initial_null2_
|
|
#define f_get_initial_null3 get_initial_null3_
|
|
#define f_get_gauge_g00 get_gauge_g00_
|
|
#define f_get_gauge_g00_K get_gauge_g00_k_
|
|
#define f_get_gauge_g00_real get_gauge_g00_real_
|
|
#define f_get_null_boundary2 get_null_boundary2_
|
|
#define f_get_null_boundary3 get_null_boundary3_
|
|
#define f_get_g00_with_t get_g00_with_t_
|
|
#endif
|
|
|
|
extern "C"
|
|
{
|
|
void f_get_initial_null2(int *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
int &, double &);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_get_gauge_g00(int *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double &, int &);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_get_gauge_g00_K(int *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double &);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_get_gauge_g00_real(int *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double &);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_get_null_boundary2(int *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double &);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_get_g00_with_t(double &, int *, double *, double *, double *,
|
|
double *, double &, int &);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_get_null_boundary3(double &, int *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double &, int &);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_get_initial_null3(int *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
int &, double &);
|
|
}
|
|
|
|
#endif /* INITIAL_NULL2_H */
|