Chombo&AMRIdealMHD: WaveMHDIBCF

00001 #ifndef _WAVEMHDIBCF_F_H_
00002 #define _WAVEMHDIBCF_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure WAVEMHDSETF ...
00011 //
00012 #define FORT_WAVEMHDSETF FORTRAN_NAME( WAVEMHDSETF ,wavemhdsetf )
00013 void 
00014 FORT_WAVEMHDSETF(
00015       CHFp_REAL(a_smallPressure)
00016       ,CHFp_CONST_REAL(a_gamma) );
00017 
00018 // Prototype for Fortran procedure WAVEMHDSETPARAMETERSF ...
00019 //
00020 #define FORT_WAVEMHDSETPARAMETERSF FORTRAN_NAME( WAVEMHDSETPARAMETERSF ,wavemhdsetparametersf )
00021 void 
00022 FORT_WAVEMHDSETPARAMETERSF(
00023       CHFp_CONST_REAL(a_alpha)
00024       ,CHFp_CONST_INT(a_pdir)
00025       ,CHFp_CONST_INT(a_kratio)
00026       ,CHFp_CONST_INT(a_waveNumber)
00027       ,CHFp_CONST_REAL(a_pertAmplitude) );
00028 
00029 // Prototype for Fortran procedure WAVEMHDINITF ...
00030 //
00031 #define FORT_WAVEMHDINITF FORTRAN_NAME( WAVEMHDINITF ,wavemhdinitf )
00032 void 
00033 FORT_WAVEMHDINITF(
00034       CHFp_FRA(U)
00035       ,CHFp_CONST_REAL(dx)
00036       ,CHFp_BOX(box) );
00037 
00038 // Prototype for Fortran procedure WAVEMHDBCF ...
00039 //
00040 #define FORT_WAVEMHDBCF FORTRAN_NAME( WAVEMHDBCF ,wavemhdbcf )
00041 void 
00042 FORT_WAVEMHDBCF(
00043       CHFp_FRA(F)
00044       ,CHFp_CONST_FRA(W)
00045       ,CHFp_CONST_REAL(time)
00046       ,CHFp_CONST_INT(lohisign)
00047       ,CHFp_CONST_REAL(dx)
00048       ,CHFp_CONST_INT(dir)
00049       ,CHFp_BOX(box) );
00050 
00051 // Prototype for Fortran procedure WAVEMHDSLOPEBCSF ...
00052 //
00053 #define FORT_WAVEMHDSLOPEBCSF FORTRAN_NAME( WAVEMHDSLOPEBCSF ,wavemhdslopebcsf )
00054 void 
00055 FORT_WAVEMHDSLOPEBCSF(
00056       CHFp_FRA(dW)
00057       ,CHFp_CONST_FRA(W)
00058       ,CHFp_CONST_REAL(dx)
00059       ,CHFp_CONST_INT(dir)
00060       ,CHFp_BOX(loBox)
00061       ,CHFp_CONST_INT(hasLo)
00062       ,CHFp_BOX(hiBox)
00063       ,CHFp_CONST_INT(hasHi) );
00064 
00065 // Prototype for Fortran procedure WAVEMHDPHIINITF ...
00066 //
00067 #define FORT_WAVEMHDPHIINITF FORTRAN_NAME( WAVEMHDPHIINITF ,wavemhdphiinitf )
00068 void 
00069 FORT_WAVEMHDPHIINITF(
00070       CHFp_FRA(U)
00071       ,CHFp_CONST_REAL(dx)
00072       ,CHFp_BOX(box) );
00073 
00074 // Prototype for Fortran procedure WAVEMHDPHIBCLOF ...
00075 //
00076 #define FORT_WAVEMHDPHIBCLOF FORTRAN_NAME( WAVEMHDPHIBCLOF ,wavemhdphibclof )
00077 void 
00078 FORT_WAVEMHDPHIBCLOF(
00079       CHFp_FRA(U)
00080       ,CHFp_CONST_REAL(dx)
00081       ,CHFp_CONST_INT(dir)
00082       ,CHFp_BOX(box) );
00083 
00084 // Prototype for Fortran procedure WAVEMHDPHIBCHIF ...
00085 //
00086 #define FORT_WAVEMHDPHIBCHIF FORTRAN_NAME( WAVEMHDPHIBCHIF ,wavemhdphibchif )
00087 void 
00088 FORT_WAVEMHDPHIBCHIF(
00089       CHFp_FRA(U)
00090       ,CHFp_CONST_REAL(dx)
00091       ,CHFp_CONST_INT(dir)
00092       ,CHFp_BOX(box) );
00093 
00094 // Prototype for Fortran procedure WAVEMHDPRIMBCF ...
00095 //
00096 #define FORT_WAVEMHDPRIMBCF FORTRAN_NAME( WAVEMHDPRIMBCF ,wavemhdprimbcf )
00097 void 
00098 FORT_WAVEMHDPRIMBCF(
00099       CHFp_FRA(WG)
00100       ,CHFp_CONST_FRA(W)
00101       ,CHFp_CONST_REAL(time)
00102       ,CHFp_CONST_INT(lohisign)
00103       ,CHFp_CONST_REAL(dx)
00104       ,CHFp_CONST_INT(dir)
00105       ,CHFp_BOX(box) );
00106 
00107 }
00108 
00109 #endif
WaveMHDIBCF_F.H
