Chombo&AMRIdealMHD: ExplosionMHDBCF

00001 #ifndef _EXPLOSIONMHDBCF_F_H_
00002 #define _EXPLOSIONMHDBCF_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure EXPLOSIONSETF ...
00011 //
00012 #define FORT_EXPLOSIONSETF FORTRAN_NAME( EXPLOSIONSETF ,explosionsetf )
00013 void 
00014 FORT_EXPLOSIONSETF(
00015       CHFp_REAL(ausmallPressure)
00016       ,CHFp_CONST_REAL(augamma)
00017       ,CHFp_CONST_REAL(apjump)
00018       ,CHFp_CONST_REAL(arhojump)
00019       ,CHFp_CONST_REAL(ap0)
00020       ,CHFp_CONST_REAL(arho0)
00021       ,CHFp_CONST_INT(abdir)
00022       ,CHFp_CONST_REAL(abmag)
00023       ,CHFp_CONST_REALVECT(aucenter)
00024       ,CHFp_CONST_REAL(ausize)
00025       ,CHFp_CONST_REALVECT(auvelocity)
00026       ,CHFp_CONST_REAL(auartvisc) );
00027 
00028 // Prototype for Fortran procedure EXPLOSIONINITF ...
00029 //
00030 #define FORT_EXPLOSIONINITF FORTRAN_NAME( EXPLOSIONINITF ,explosioninitf )
00031 void 
00032 FORT_EXPLOSIONINITF(
00033       CHFp_FRA(U)
00034       ,CHFp_CONST_REAL(dx)
00035       ,CHFp_BOX(box) );
00036 
00037 // Prototype for Fortran procedure EXPLOSIONMHDSLOPEBCSF ...
00038 //
00039 #define FORT_EXPLOSIONMHDSLOPEBCSF FORTRAN_NAME( EXPLOSIONMHDSLOPEBCSF ,explosionmhdslopebcsf )
00040 void 
00041 FORT_EXPLOSIONMHDSLOPEBCSF(
00042       CHFp_FRA(dW)
00043       ,CHFp_CONST_FRA(W)
00044       ,CHFp_CONST_REAL(dx)
00045       ,CHFp_CONST_INT(dir)
00046       ,CHFp_BOX(loBox)
00047       ,CHFp_CONST_INT(hasLo)
00048       ,CHFp_BOX(hiBox)
00049       ,CHFp_CONST_INT(hasHi) );
00050 
00051 // Prototype for Fortran procedure EXPLOSIONMHDPRIMBCF ...
00052 //
00053 #define FORT_EXPLOSIONMHDPRIMBCF FORTRAN_NAME( EXPLOSIONMHDPRIMBCF ,explosionmhdprimbcf )
00054 void 
00055 FORT_EXPLOSIONMHDPRIMBCF(
00056       CHFp_FRA(WG)
00057       ,CHFp_CONST_FRA(W)
00058       ,CHFp_CONST_REAL(time)
00059       ,CHFp_CONST_INT(lohisign)
00060       ,CHFp_CONST_REAL(dx)
00061       ,CHFp_CONST_INT(dir)
00062       ,CHFp_BOX(box) );
00063 
00064 }
00065 
00066 #endif
ExplosionMHDBCF_F.H
