00001
00002
00003
00004
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
00026
00027
00028
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
00042
00043
00044
00045 }
00046
00047 #endif