amroc/rim/RIMStdFunctions.h

Go to the documentation of this file.
00001 // -*- C++ -*-
00002 // $Header: /home/proj/vtfng/vtf/amroc/rim/RIMStdFunctions.h,v 1.4 2005/03/11 03:57:55 ralf Exp $
00003 
00004 #ifndef AMROC_RIMSTD_FUNCTIONS_H
00005 #define AMROC_RIMSTD_FUNCTIONS_H
00006 
00012 #define f_initial FORTRAN_NAME(ic, IC)
00013 #define f_boundary FORTRAN_NAME(physbd, PHYSBD)
00014 #define f_exact FORTRAN_NAME(exact, EXACT)
00015 
00016 #define f_restrict FORTRAN_NAME(restrict2, RESTRICT2)
00017 #define f_prolong FORTRAN_NAME(prolong2, PROLONG2)
00018 
00019 #define f_rimstep FORTRAN_NAME(rimstep, RIMSTEP)
00020 #define f_flgout FORTRAN_NAME(flgout2, FLGOUT2)
00021 #define f_check FORTRAN_NAME(chk2, CHK2) 
00022 
00023 // #define f_lset FORTRAN_NAME(ls, LS)
00024 // #define f_ibndrfl FORTRAN_NAME(ip2eurfl, IP2EURFL)
00025 // #define f_ibndex FORTRAN_NAME(ip2euex, IP2EUEX)
00026 // #define f_itrans FORTRAN_NAME(it2eu, IT2EU)
00027 
00028 
00029 extern "C" {
00030   void f_initial();
00031   void f_boundary();
00032   void f_exact();
00033   void f_restrict();
00034   void f_prolong();
00035   void f_rimstep();
00036   void f_flgout();
00037   void f_check();
00038 
00039 //   void f_lset();
00040 //   void f_ibndrfl();
00041 //   void f_ibndex();
00042 //   void f_itrans();
00043 }
00044 
00045 #endif