amroc/balans/BalansStdFunctions.h

Go to the documentation of this file.
00001 // -*- C++ -*-
00002 
00003 // Copyright (C) 2003-2007 California Institute of Technology
00004 // Ralf Deiterding, ralf@cacr.caltech.edu
00005 
00006 #ifndef AMROC_BALANSSTD_FUNCTIONS_H
00007 #define AMROC_BALANSSTD_FUNCTIONS_H
00008 
00014 #define f_initial FORTRAN_NAME(ic, IC)
00015 #define f_boundary FORTRAN_NAME(physbd, PHYSBD)
00016 #define f_exact FORTRAN_NAME(exact, EXACT)
00017 
00018 #define f_restrict FORTRAN_NAME(restrict2, RESTRICT2)
00019 #define f_prolong FORTRAN_NAME(prolong2, PROLONG2)
00020 
00021 #define f_balansstep FORTRAN_NAME(balansstep, BALANSSTEP)
00022 #define f_flgout FORTRAN_NAME(flgout2, FLGOUT2)
00023 #define f_check FORTRAN_NAME(chk2, CHK2) 
00024 
00025 // #define f_lset FORTRAN_NAME(ls, LS)
00026 // #define f_ibndrfl FORTRAN_NAME(ip2eurfl, IP2EURFL)
00027 // #define f_ibndex FORTRAN_NAME(ip2euex, IP2EUEX)
00028 // #define f_itrans FORTRAN_NAME(it2eu, IT2EU)
00029 
00030 
00031 extern "C" {
00032   void f_initial();
00033   void f_boundary();
00034   void f_exact();
00035   void f_restrict();
00036   void f_prolong();
00037   void f_balansstep();
00038   void f_flgout();
00039   void f_check();
00040 
00041 //   void f_lset();
00042 //   void f_ibndrfl();
00043 //   void f_ibndex();
00044 //   void f_itrans();
00045 }
00046 
00047 #endif