Main Page | Modules | Namespace List | Class Hierarchy | Alphabetical List | Compound List | File List | Compound Members | File Members

SelfGravF_F.H

Go to the documentation of this file.
00001 #ifndef _SELFGRAVF_F_H_
00002 #define _SELFGRAVF_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure SETSELFGRAV ...
00011 //
00012 #define FORT_SETSELFGRAV FORTRAN_NAME( SETSELFGRAV ,setselfgrav )
00013 void 
00014 FORT_SETSELFGRAV(
00015       CHFp_CONST_REAL(augamma)
00016       ,CHFp_CONST_REAL(auartvisc)
00017       ,CHFp_CONST_REAL(auRsTolerance)
00018       ,CHFp_CONST_REAL(aumaxRsIter)
00019       ,CHFp_CONST_REAL(aumaxMach) );
00020 
00021 // Prototype for Fortran procedure SETFLOORS ...
00022 //
00023 #define FORT_SETFLOORS FORTRAN_NAME( SETFLOORS ,setfloors )
00024 void 
00025 FORT_SETFLOORS(
00026       CHFp_CONST_REAL(ausmallr0)
00027       ,CHFp_CONST_REAL(ausmallu0)
00028       ,CHFp_CONST_REAL(ausmallp0)
00029       ,CHFp_CONST_REAL(ausmalls0) );
00030 
00031 // Prototype for Fortran procedure COMPUTEPRESSUREF ...
00032 //
00033 #define FORT_COMPUTEPRESSUREF FORTRAN_NAME( COMPUTEPRESSUREF ,computepressuref )
00034 void 
00035 FORT_COMPUTEPRESSUREF(
00036       CHFp_FRA1(PRES)
00037       ,CHFp_CONST_FRA(U)
00038       ,CHFp_BOX(box) );
00039 
00040 // Prototype for Fortran procedure INTERPOLATEINTIME ...
00041 //
00042 #define FORT_INTERPOLATEINTIME FORTRAN_NAME( INTERPOLATEINTIME ,interpolateintime )
00043 void 
00044 FORT_INTERPOLATEINTIME(
00045       CHFp_FRA(phi)
00046       ,CHFp_CONST_FRA(phiNew)
00047       ,CHFp_CONST_FRA(phiOld)
00048       ,CHFp_CONST_REAL(alpha)
00049       ,CHFp_CONST_INT(srcComp)
00050       ,CHFp_CONST_INT(dstComp)
00051       ,CHFp_CONST_INT(sizeComp)
00052       ,CHFp_BOX(box) );
00053 
00054 // Prototype for Fortran procedure COMPUTEPLOTVARS ...
00055 //
00056 #define FORT_COMPUTEPLOTVARS FORTRAN_NAME( COMPUTEPLOTVARS ,computeplotvars )
00057 void 
00058 FORT_COMPUTEPLOTVARS(
00059       CHFp_FRA(W)
00060       ,CHFp_CONST_FRA(U)
00061       ,CHFp_BOX(box) );
00062 
00063 // Prototype for Fortran procedure GETRELGRADF ...
00064 //
00065 #define FORT_GETRELGRADF FORTRAN_NAME( GETRELGRADF ,getrelgradf )
00066 void 
00067 FORT_GETRELGRADF(
00068       CHFp_FRA1(du)
00069       ,CHFp_CONST_FRA1(u)
00070       ,CHFp_CONST_INT(idir)
00071       ,CHFp_BOX(loBox)
00072       ,CHFp_CONST_INT(hasLo)
00073       ,CHFp_BOX(hiBox)
00074       ,CHFp_CONST_INT(hasHi)
00075       ,CHFp_BOX(centerBox) );
00076 
00077 // Prototype for Fortran procedure MAGNITUDEF ...
00078 //
00079 #define FORT_MAGNITUDEF FORTRAN_NAME( MAGNITUDEF ,magnitudef )
00080 void 
00081 FORT_MAGNITUDEF(
00082       CHFp_FRA1(magdata)
00083       ,CHFp_CONST_FRA(data)
00084       ,CHFp_BOX(box) );
00085 
00086 // Prototype for Fortran procedure SHOCKPRESJUMPF ...
00087 //
00088 #define FORT_SHOCKPRESJUMPF FORTRAN_NAME( SHOCKPRESJUMPF ,shockpresjumpf )
00089 void 
00090 FORT_SHOCKPRESJUMPF(
00091       CHFp_FRA1(pjump)
00092       ,CHFp_FRA(wrk)
00093       ,CHFp_CONST_FRA(U)
00094       ,CHFp_BOX(gbox)
00095       ,CHFp_BOX(box) );
00096 
00097 // Prototype for Fortran procedure VORTICITYF ...
00098 //
00099 #define FORT_VORTICITYF FORTRAN_NAME( VORTICITYF ,vorticityf )
00100 void 
00101 FORT_VORTICITYF(
00102       CHFp_FRA1(vorticity)
00103       ,CHFp_FRA(wrk)
00104       ,CHFp_CONST_FRA(U)
00105       ,CHFp_BOX(gbox)
00106       ,CHFp_BOX(box) );
00107 
00108 }
00109 
00110 #endif

Generated on Wed Oct 19 13:33:48 2005 for Chombo&AMRSelfGravity by doxygen 1.3.2