00001 #ifndef _IAMRGODUNOVF_F_H_ 00002 #define _IAMRGODUNOVF_F_H_ 00003 00004 #include "FORT_PROTO.H" 00005 #include "REAL.H" 00006 00007 extern "C" 00008 { 00009 00010 // Prototype for Fortran procedure UDELS ... 00011 // 00012 #define FORT_UDELS FORTRAN_NAME( UDELS ,udels ) 00013 void 00014 FORT_UDELS( 00015 CHFp_FRA(uDotDelS) 00016 ,CHFp_FRA(sEdge) 00017 ,CHFp_FRA(vel) 00018 ,CHFp_BOX(gridBox) 00019 ,CHFp_REAL(dx) 00020 ,CHFp_INT(dir) ); 00021 00022 } 00023 00024 #endif