//$Id: initial_puncture.h,v 1.4 2012/09/14 08:43:42 zjcao Exp $
#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_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_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_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_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 */
