amroc/clawpack/ClpStdFunctions.h

Go to the documentation of this file.
00001 // -*- C++ -*-
00002 
00003 // Copyright (C) 2002 Ralf Deiterding
00004 // Brandenburgische Universitaet Cottbus
00005 //
00006 // Copyright (C) 2003-2007 California Institute of Technology
00007 // Ralf Deiterding, ralf@cacr.caltech.edu
00008 
00009 #ifndef AMROC_CLPSTD_FUNCTIONS_H
00010 #define AMROC_CLPSTD_FUNCTIONS_H
00011 
00020 #define f_initial FORTRAN_NAME(ic, IC)
00021 #define f_boundary FORTRAN_NAME(physbd, PHYSBD)
00022 #define f_source FORTRAN_NAME(src, SRC)
00023 #define f_setaux FORTRAN_NAME(setaux, SETAUX)
00024 #define f_lset FORTRAN_NAME(ls, LS)
00025 #define f_exact FORTRAN_NAME(exact, EXACT)
00026 
00027 #if DIM == 1
00028 
00029 #define f_restrict FORTRAN_NAME(restrict1, RESTRICT1)
00030 #define f_prolong FORTRAN_NAME(prolong1, PROLONG1)
00031 
00032 #elif DIM == 2
00033 
00034 #define f_restrict FORTRAN_NAME(restrict2, RESTRICT2)
00035 #define f_prolong FORTRAN_NAME(prolong2, PROLONG2)
00036 
00037 #elif DIM == 3
00038 
00039 #define f_restrict FORTRAN_NAME(restrict3, RESTRICT3)
00040 #define f_prolong FORTRAN_NAME(prolong3, PROLONG3)
00041 
00042 #endif
00043 
00044 extern "C" {
00045   void f_initial();
00046   void f_boundary();
00047   void f_source();
00048   void f_setaux();
00049   void f_restrict();
00050   void f_prolong();
00051   void f_lset();
00052   void f_exact();
00053 }
00054 
00055 #endif