amroc/clawpack/src/2d/equations/euler/eulerrhok2.h

Go to the documentation of this file.
00001 #ifndef AMROC_EULERRHOK2_H
00002 #define AMROC_EULERRHOK2_H
00003 
00004 // Copyright (C) 2002 Ralf Deiterding
00005 // Brandenburgische Universitaet Cottbus
00006 //
00007 // Copyright (C) 2003-2007 California Institute of Technology
00008 // Ralf Deiterding, ralf@cacr.caltech.edu
00009 
00015 #define DIM        2
00016 #define NWAVES     3
00017 
00018 #include "DAGHFortranInterfaces.h"                           
00019 
00020 #define f_normalflux FORTRAN_NAME(rpn2eurhok, RPN2EURHOK)
00021 #define f_transverseflux FORTRAN_NAME(rpt2eurhok, RPT2EURHOK)
00022 #define f_check FORTRAN_NAME(chk2eurhok, CHK2EURHOK)
00023 #define f_flg FORTRAN_NAME(flg2eurhok, FLG2EURHOK)
00024 #define f_out FORTRAN_NAME(out2eurhok, OUT2EURHOK)
00025 #define f_tupdate FORTRAN_NAME(tupdate2, TUPDATE2)
00026 #define f_ibndrfl FORTRAN_NAME(ip2eurhokrfl, IP2EURHOKRFL)
00027 #define f_ibndex FORTRAN_NAME(ip2eurhokex, IP2EURHOKEX)
00028 #define f_itrans FORTRAN_NAME(it2eurhokrfl, IT2EURHOKRFL)
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