ExplosionF_F.H Source File

00001 #ifndef _ExplosionF_F_H_
00002 #define _ExplosionF_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure SETEXPLOSION ...
00011 //
00012 #define FORT_SETEXPLOSION FORTRAN_NAME( SETEXPLOSION ,setexplosion )
00013 void 
00014 FORT_SETEXPLOSION(
00015       CHFp_CONST_REAL(augamma)
00016       ,CHFp_CONST_REAL(aums)
00017       ,CHFp_REALVECT(aucenter)
00018       ,CHFp_CONST_REAL(ausize)
00019       ,CHFp_REALVECT(auvelocity) );
00020 
00021 // Prototype for Fortran procedure EXPLOSIONINIT ...
00022 //
00023 #define FORT_EXPLOSIONINIT FORTRAN_NAME( EXPLOSIONINIT ,explosioninit )
00024 void 
00025 FORT_EXPLOSIONINIT(
00026       CHFp_FRA(U)
00027       ,CHFp_CONST_REAL(dx)
00028       ,CHFp_BOX(box) );
00029 
00030 }
00031 #endif