GaussianF_F.H Source File

00001 #ifndef _GaussianF_F_H_
00002 #define _GaussianF_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure SETGAUSSIAN ...
00011 //
00012 #define FORT_SETGAUSSIAN FORTRAN_NAME( SETGAUSSIAN ,setgaussian )
00013 void 
00014 FORT_SETGAUSSIAN(
00015       CHFp_CONST_REAL(augamma)
00016       ,CHFp_CONST_REAL(auambientDensity)
00017       ,CHFp_CONST_REAL(audeltaDensity)
00018       ,CHFp_CONST_INT(aupressure)
00019       ,CHFp_REALVECT(aucenter)
00020       ,CHFp_CONST_REAL(ausize)
00021       ,CHFp_REALVECT(auvelocity) );
00022 
00023 // Prototype for Fortran procedure GAUSSIANINIT ...
00024 //
00025 #define FORT_GAUSSIANINIT FORTRAN_NAME( GAUSSIANINIT ,gaussianinit )
00026 void 
00027 FORT_GAUSSIANINIT(
00028       CHFp_FRA(U)
00029       ,CHFp_CONST_REAL(dx)
00030       ,CHFp_BOX(box) );
00031 
00032 }
00033 #endif