tportfortran.h

// Prototyping for FORTRAN routine readdata
#define f_readinput FORTRAN_NAME(readinput_, READINPUT, readinput)
extern "C" {
  void f_readinput(INTEGER *,INTEGER *,
                   DOUBLE *, DOUBLE *, 
                   DOUBLE *, DOUBLE *,
                   DOUBLE *,
                   INTEGER *, INTEGER *,
		   DOUBLE *, INTEGER *,
		   DOUBLE *,
                   INTEGER *, INTEGER *, 
		   INTEGER *);
}

#define f_initial FORTRAN_NAME(initial_, INITIAL, initial)
extern "C" {
  void f_initial(FI(DOUBLE), DOUBLE *, DOUBLE *, DOUBLE *);
}

#define f_evolveC FORTRAN_NAME(evolvec_, EVOLVEC, evolvec)
extern "C" {
  void f_evolveC(FI(DOUBLE), FI(DOUBLE),
		 DOUBLE *, DOUBLE *, DOUBLE *);
}

#define f_evolveP FORTRAN_NAME(evolvep_, EVOLVEP, evolvep)
extern "C" {
  void f_evolveP(FI(DOUBLE), FI(DOUBLE),
		 DOUBLE *, DOUBLE *, DOUBLE *);
}

#define f_restrict_amr FORTRAN_NAME(restrict2d2_, RESTRICT2D2, restrict2d2)
extern "C"
{
  void f_restrict_amr (FI(DOUBLE), FI(DOUBLE), BI, DOUBLE, INTEGER);
}

#define f_prolong_amr FORTRAN_NAME(prolong2d2_, PROLONG2D2, prolong2d2)
extern "C"
{
  void f_prolong_amr (FI(DOUBLE), FI(DOUBLE), BI, DOUBLE *, INTEGER *);
}

#define f_pythnorm FORTRAN_NAME(pythnorm_, PYTHNORM, pythnorm)
extern "C"
{
  void f_pythnorm(BI, FDI(DOUBLE), FDI(DOUBLE), DOUBLE *);
}