Chombo&AMRIdealMHD: RotorMHDIBCF

00001 #ifndef _ROTORMHDIBCF_F_H_
00002 #define _ROTORMHDIBCF_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure ROTORMHDSETF ...
00011 //
00012 #define FORT_ROTORMHDSETF FORTRAN_NAME( ROTORMHDSETF ,rotormhdsetf )
00013 void 
00014 FORT_ROTORMHDSETF(
00015       CHFp_REAL(a_smallPressure)
00016       ,CHFp_CONST_REAL(a_gamma) );
00017 
00018 // Prototype for Fortran procedure ROTORMHDINITF ...
00019 //
00020 #define FORT_ROTORMHDINITF FORTRAN_NAME( ROTORMHDINITF ,rotormhdinitf )
00021 void 
00022 FORT_ROTORMHDINITF(
00023       CHFp_FRA(U)
00024       ,CHFp_CONST_REAL(dx)
00025       ,CHFp_BOX(box) );
00026 
00027 // Prototype for Fortran procedure ROTORMHDPARABOLICFLUXBCF ...
00028 //
00029 #define FORT_ROTORMHDPARABOLICFLUXBCF FORTRAN_NAME( ROTORMHDPARABOLICFLUXBCF ,rotormhdparabolicfluxbcf )
00030 void 
00031 FORT_ROTORMHDPARABOLICFLUXBCF(
00032       CHFp_FRA(F)
00033       ,CHFp_FRA(W)
00034       ,CHFp_CONST_REAL(time)
00035       ,CHFp_CONST_INT(lohisign)
00036       ,CHFp_CONST_REAL(dx)
00037       ,CHFp_CONST_INT(dir)
00038       ,CHFp_BOX(box) );
00039 
00040 // Prototype for Fortran procedure ROTORMHDBCF ...
00041 //
00042 #define FORT_ROTORMHDBCF FORTRAN_NAME( ROTORMHDBCF ,rotormhdbcf )
00043 void 
00044 FORT_ROTORMHDBCF(
00045       CHFp_FRA(F)
00046       ,CHFp_CONST_FRA(W)
00047       ,CHFp_CONST_REAL(time)
00048       ,CHFp_CONST_INT(lohisign)
00049       ,CHFp_CONST_REAL(dx)
00050       ,CHFp_CONST_INT(dir)
00051       ,CHFp_BOX(box) );
00052 
00053 // Prototype for Fortran procedure ROTORMHDPRIMBCF ...
00054 //
00055 #define FORT_ROTORMHDPRIMBCF FORTRAN_NAME( ROTORMHDPRIMBCF ,rotormhdprimbcf )
00056 void 
00057 FORT_ROTORMHDPRIMBCF(
00058       CHFp_FRA(WG)
00059       ,CHFp_CONST_FRA(W)
00060       ,CHFp_CONST_REAL(time)
00061       ,CHFp_CONST_INT(lohisign)
00062       ,CHFp_CONST_REAL(dx)
00063       ,CHFp_CONST_INT(dir)
00064       ,CHFp_BOX(box) );
00065 
00066 // Prototype for Fortran procedure ROTORMHDSOLIDBCF ...
00067 //
00068 #define FORT_ROTORMHDSOLIDBCF FORTRAN_NAME( ROTORMHDSOLIDBCF ,rotormhdsolidbcf )
00069 void 
00070 FORT_ROTORMHDSOLIDBCF(
00071       CHFp_FRA(F)
00072       ,CHFp_CONST_FRA(W)
00073       ,CHFp_CONST_REAL(time)
00074       ,CHFp_CONST_INT(lohisign)
00075       ,CHFp_CONST_REAL(dx)
00076       ,CHFp_CONST_INT(dir)
00077       ,CHFp_BOX(box) );
00078 
00079 // Prototype for Fortran procedure ROTORMHDSLOPEBCSF ...
00080 //
00081 #define FORT_ROTORMHDSLOPEBCSF FORTRAN_NAME( ROTORMHDSLOPEBCSF ,rotormhdslopebcsf )
00082 void 
00083 FORT_ROTORMHDSLOPEBCSF(
00084       CHFp_FRA(dW)
00085       ,CHFp_CONST_FRA(W)
00086       ,CHFp_CONST_REAL(dx)
00087       ,CHFp_CONST_INT(dir)
00088       ,CHFp_BOX(loBox)
00089       ,CHFp_CONST_INT(hasLo)
00090       ,CHFp_BOX(hiBox)
00091       ,CHFp_CONST_INT(hasHi) );
00092 
00093 // Prototype for Fortran procedure ROTORMHDINITPHIF ...
00094 //
00095 #define FORT_ROTORMHDINITPHIF FORTRAN_NAME( ROTORMHDINITPHIF ,rotormhdinitphif )
00096 void 
00097 FORT_ROTORMHDINITPHIF(
00098       CHFp_FRA(U)
00099       ,CHFp_CONST_REAL(dx)
00100       ,CHFp_BOX(box) );
00101 
00102 // Prototype for Fortran procedure ROTORMHDPHIBCLOF ...
00103 //
00104 #define FORT_ROTORMHDPHIBCLOF FORTRAN_NAME( ROTORMHDPHIBCLOF ,rotormhdphibclof )
00105 void 
00106 FORT_ROTORMHDPHIBCLOF(
00107       CHFp_FRA(U)
00108       ,CHFp_CONST_REAL(dx)
00109       ,CHFp_CONST_INT(dir)
00110       ,CHFp_BOX(box) );
00111 
00112 // Prototype for Fortran procedure ROTORMHDPHIBCHIF ...
00113 //
00114 #define FORT_ROTORMHDPHIBCHIF FORTRAN_NAME( ROTORMHDPHIBCHIF ,rotormhdphibchif )
00115 void 
00116 FORT_ROTORMHDPHIBCHIF(
00117       CHFp_FRA(U)
00118       ,CHFp_CONST_REAL(dx)
00119       ,CHFp_CONST_INT(dir)
00120       ,CHFp_BOX(box) );
00121 
00122 }
00123 
00124 #endif
RotorMHDIBCF_F.H
