00001 #ifndef AMROC_EULERRHOK3_H
00002 #define AMROC_EULERRHOK3_H
00003
00004
00005
00006
00007
00008
00009
00015 #define DIM 3
00016 #define NWAVES 3
00017
00018 #include "DAGHFortranInterfaces.h"
00019
00020 #define f_normalflux FORTRAN_NAME(rpn3eurhok, RPN3EURHOK)
00021 #define f_transverseflux FORTRAN_NAME(rpt3eurhok, RPT3EURHOK)
00022 #define f_check FORTRAN_NAME(chk3eurhok, CHK3EURHOK)
00023 #define f_flg FORTRAN_NAME(flg3eurhok, FLG3EURHOK)
00024 #define f_out FORTRAN_NAME(out3eurhok, OUT3EURHOK)
00025 #define f_tupdate FORTRAN_NAME(tupdate3, TUPDATE3)
00026 #define f_ibndrfl FORTRAN_NAME(ip3eurhokrfl, IP3EURHOKRFL)
00027 #define f_ibndex FORTRAN_NAME(ip3eurhokex, IP3EURHOKEX)
00028 #define f_itrans FORTRAN_NAME(it3eurhokrfl, IT3EURHOKRFL)
00029
00030 extern "C" {
00031 void f_normalflux();
00032 void f_transverseflux();
00033 void f_check();
00034 void f_flg();
00035 void f_out();
00036 void f_tupdate();
00037 void f_ibndrfl();
00038 void f_ibndex();
00039 void f_itrans();
00040 }
00041
00042 #include "ClpStdFunctions.h"
00043
00044 #endif
00045