amroc/clawpack/src/1d/equations/euler/eulerrhok1.h

Go to the documentation of this file.
00001 #ifndef AMROC_EULERRHOK1_H
00002 #define AMROC_EULERRHOK1_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        1
00016 #define NWAVES     3
00017 
00018 #include "DAGHFortranInterfaces.h"                           
00019 
00020 #define f_normalflux FORTRAN_NAME(rp1eurhok, RP1EURHOK)
00021 #define f_check FORTRAN_NAME(chk1eurhok, CHK1EURHOK)
00022 #define f_flg FORTRAN_NAME(flg1eurhok, FLG1EURHOK)
00023 #define f_out FORTRAN_NAME(out1eurhok, OUT1EURHOK)
00024 #define f_tupdate FORTRAN_NAME(tupdate1, TUPDATE1)
00025 
00026 extern "C" {
00027   void f_normalflux();
00028   void f_check();
00029   void f_flg();
00030   void f_out();
00031   void f_tupdate();
00032 }
00033 
00034 #include "ClpStdFunctions.h"
00035 
00036 #endif
00037 
00038