ClpStdFunctions.h

Go to the documentation of this file.

// -*- C++ -*-

// Copyright (C) 2002 Ralf Deiterding
// Brandenburgische Universitaet Cottbus
//
// Copyright (C) 2003-2007 California Institute of Technology
// Ralf Deiterding, ralf@amroc.net

#ifndef AMROC_CLPSTD_FUNCTIONS_H
#define AMROC_CLPSTD_FUNCTIONS_H

#define f_initial FORTRAN_NAME(ic, IC)
#define f_boundary FORTRAN_NAME(physbd, PHYSBD)
#define f_source FORTRAN_NAME(src, SRC)
#define f_setaux FORTRAN_NAME(setaux, SETAUX)
#define f_lset FORTRAN_NAME(ls, LS)
#define f_exact FORTRAN_NAME(exact, EXACT)

#if DIM == 1

#define f_restrict FORTRAN_NAME(restrict1, RESTRICT1)
#define f_prolong FORTRAN_NAME(prolong1, PROLONG1)

#elif DIM == 2

#define f_restrict FORTRAN_NAME(restrict2, RESTRICT2)
#define f_prolong FORTRAN_NAME(prolong2, PROLONG2)

#elif DIM == 3

#define f_restrict FORTRAN_NAME(restrict3, RESTRICT3)
#define f_prolong FORTRAN_NAME(prolong3, PROLONG3)

#endif

extern "C" {
  void f_initial();
  void f_boundary();
  void f_source();
  void f_setaux();
  void f_restrict();
  void f_prolong();
  void f_lset();
  void f_exact();
}

#endif