amroc/weno/WENOStdFunctions.h

Go to the documentation of this file.

// -*- C++ -*-

// Copyright (C) 2003-2007 California Institute of Technology
// Ralf Deiterding, Carlos Pantano

#ifndef AMROC_WENOSTD_FUNCTIONS_H
#define AMROC_WENOSTD_FUNCTIONS_H

#define f_initial FORTRAN_NAME(ic, IC)
#define f_boundary FORTRAN_NAME(physbd, PHYSBD)
#define f_lset FORTRAN_NAME(ls, LS)
#define f_exact FORTRAN_NAME(exact, EXACT)

extern "C" {
#if DIM < 3
  void FORTRAN_NAME(particularstructurefunction, PARTICULARSTRUCTUREFUNCTION) () {
    return;
  }
  void FORTRAN_NAME(setsubgridlength, SETSUBGRIDLENGTH) () {
    return;
  }
  void FORTRAN_NAME(integratestructure, INTEGRATESTRUCTURE) () {
    return;
  }
#endif
}

#if DIM == 1

#define f_restrict FORTRAN_NAME(restrict1, RESTRICT1)
#define f_prolong FORTRAN_NAME(prolong1, PROLONG1)
#define f_rkstep FORTRAN_NAME(onedrkstep, ONEDRKSTEP)
#define f_bounds FORTRAN_NAME(onedsetarraybounds, ONEDSETARRAYBOUNDS)
#define f_flgout FORTRAN_NAME(out1eu, OUT1EU)
#define f_check FORTRAN_NAME(chk1eu, CHK1EU)
#define f_ibndrfl FORTRAN_NAME(ip1eurfl, IP1EURFL)
#define f_ibndex FORTRAN_NAME(ip1euex, IP1EUEX)
#define f_itrans FORTRAN_NAME(it1eu, IT1EU)
#define f_flgin FORTRAN_NAME(in1eu, IN1EU)

#elif DIM == 2

#define f_restrict FORTRAN_NAME(restrict2, RESTRICT2)
#define f_prolong FORTRAN_NAME(prolong2, PROLONG2)
#define f_rkstep FORTRAN_NAME(twodrkstep, TWODRKSTEP)
#define f_bounds FORTRAN_NAME(twodsetarraybounds, TWODSETARRAYBOUNDS)
#define f_flgout FORTRAN_NAME(out2eu, OUT2EU)
#define f_check FORTRAN_NAME(chk2eu, CHK2EU)
#define f_ibndrfl FORTRAN_NAME(ip2eurfl, IP2EURFL)
#define f_ibndex FORTRAN_NAME(ip2euex, IP2EUEX)
#define f_itrans FORTRAN_NAME(it2eu, IT2EU)
#define f_flgin FORTRAN_NAME(in2eu, IN2EU)

#elif DIM == 3

#define f_restrict FORTRAN_NAME(restrict3, RESTRICT3)
#define f_prolong FORTRAN_NAME(prolong3, PROLONG3)
#define f_rkstep FORTRAN_NAME(threedrkstep, THREEDRKSTEP)
#define f_bounds FORTRAN_NAME(threedsetarraybounds, THREEDSETARRAYBOUNDS)
#define f_flgout FORTRAN_NAME(out3eu, OUT3EU)
#define f_check FORTRAN_NAME(chk3eu, CHK3EU)
#define f_ibndrfl FORTRAN_NAME(ip3eurfl, IP3EURFL)
#define f_ibndex FORTRAN_NAME(ip3euex, IP3EUEX)
#define f_itrans FORTRAN_NAME(it3eu, IT3EU)
#define f_flgin FORTRAN_NAME(in3eu, IN3EU)

#endif

extern "C" {
  void f_initial();
  void f_boundary();
  void f_lset();
  void f_exact();
  void f_restrict();
  void f_prolong();
  void f_rkstep();
  void f_bounds();
  void f_flgout();
  void f_check();
  void f_ibndrfl();
  void f_ibndex();
  void f_itrans();
  void f_flgin(); 
}

#endif