Chombo&AMRSelfGravity: RampIBCF

00001 #ifndef _RAMPIBCF_F_H_
00002 #define _RAMPIBCF_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure RAMPSETF ...
00011 //
00012 #define FORT_RAMPSETF FORTRAN_NAME( RAMPSETF ,rampsetf )
00013 void 
00014 FORT_RAMPSETF(
00015       CHFp_REAL(ausmallPressure)
00016       ,CHFp_CONST_REAL(augamma)
00017       ,CHFp_CONST_REAL(aualpha)
00018       ,CHFp_CONST_REAL(aums)
00019       ,CHFp_CONST_REAL(auxcorner)
00020       ,CHFp_CONST_REAL(auartvisc)
00021       ,CHFp_CONST_REAL(auRsTolerance)
00022       ,CHFp_CONST_INT(aumaxRsIter)
00023       ,CHFp_CONST_REAL(aumaxMach) );
00024 
00025 // Prototype for Fortran procedure RAMPINITF ...
00026 //
00027 #define FORT_RAMPINITF FORTRAN_NAME( RAMPINITF ,rampinitf )
00028 void 
00029 FORT_RAMPINITF(
00030       CHFp_FRA(U)
00031       ,CHFp_CONST_REAL(dx)
00032       ,CHFp_BOX(box) );
00033 
00034 // Prototype for Fortran procedure RAMPBCF ...
00035 //
00036 #define FORT_RAMPBCF FORTRAN_NAME( RAMPBCF ,rampbcf )
00037 void 
00038 FORT_RAMPBCF(
00039       CHFp_FRA(Wgdnv)
00040       ,CHFp_CONST_FRA(Wextrap)
00041       ,CHFp_CONST_FRA(W)
00042       ,CHFp_CONST_REAL(time)
00043       ,CHFp_CONST_INT(lohisign)
00044       ,CHFp_CONST_REAL(dx)
00045       ,CHFp_CONST_INT(dir)
00046       ,CHFp_BOX(box) );
00047 
00048 // Prototype for Fortran procedure RAMPSLOPEBCSF ...
00049 //
00050 #define FORT_RAMPSLOPEBCSF FORTRAN_NAME( RAMPSLOPEBCSF ,rampslopebcsf )
00051 void 
00052 FORT_RAMPSLOPEBCSF(
00053       CHFp_FRA(dW)
00054       ,CHFp_CONST_FRA(W)
00055       ,CHFp_CONST_REAL(dx)
00056       ,CHFp_CONST_INT(dir)
00057       ,CHFp_BOX(loBox)
00058       ,CHFp_CONST_INT(hasLo)
00059       ,CHFp_BOX(hiBox)
00060       ,CHFp_CONST_INT(hasHi) );
00061 
00062 // Prototype for Fortran procedure RAMPARTVISCF ...
00063 //
00064 #define FORT_RAMPARTVISCF FORTRAN_NAME( RAMPARTVISCF ,rampartviscf )
00065 void 
00066 FORT_RAMPARTVISCF(
00067       CHFp_FRA(F)
00068       ,CHFp_CONST_FRA(U)
00069       ,CHFp_CONST_FRA1(divu)
00070       ,CHFp_CONST_INT(lohisign)
00071       ,CHFp_CONST_REAL(dx)
00072       ,CHFp_CONST_INT(dir)
00073       ,CHFp_BOX(box) );
00074 
00075 }
00076 
00077 #endif
RampIBCF_F.H
