Chombo&AMRSelfGravity: SelfGravF

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       ,CHFp_CONST_REAL(ar0)
00021       ,CHFp_CONST_REAL(au0)
00022       ,CHFp_CONST_REAL(ap0)
00023       ,CHFp_CONST_REAL(as0) );
00024 
00025 // Prototype for Fortran procedure COMPUTEPRESSUREF ...
00026 //
00027 #define FORT_COMPUTEPRESSUREF FORTRAN_NAME( COMPUTEPRESSUREF ,computepressuref )
00028 void 
00029 FORT_COMPUTEPRESSUREF(
00030       CHFp_FRA1(PRES)
00031       ,CHFp_CONST_FRA(U)
00032       ,CHFp_BOX(box) );
00033 
00034 // Prototype for Fortran procedure INTERPOLATEINTIME ...
00035 //
00036 #define FORT_INTERPOLATEINTIME FORTRAN_NAME( INTERPOLATEINTIME ,interpolateintime )
00037 void 
00038 FORT_INTERPOLATEINTIME(
00039       CHFp_FRA(phi)
00040       ,CHFp_CONST_FRA(phiNew)
00041       ,CHFp_CONST_FRA(phiOld)
00042       ,CHFp_CONST_REAL(alpha)
00043       ,CHFp_CONST_INT(srcComp)
00044       ,CHFp_CONST_INT(dstComp)
00045       ,CHFp_CONST_INT(sizeComp)
00046       ,CHFp_BOX(box) );
00047 
00048 // Prototype for Fortran procedure COMPUTEPLOTVARS ...
00049 //
00050 #define FORT_COMPUTEPLOTVARS FORTRAN_NAME( COMPUTEPLOTVARS ,computeplotvars )
00051 void 
00052 FORT_COMPUTEPLOTVARS(
00053       CHFp_FRA(W)
00054       ,CHFp_CONST_FRA(U)
00055       ,CHFp_BOX(box) );
00056 
00057 // Prototype for Fortran procedure GETRELGRADF ...
00058 //
00059 #define FORT_GETRELGRADF FORTRAN_NAME( GETRELGRADF ,getrelgradf )
00060 void 
00061 FORT_GETRELGRADF(
00062       CHFp_FRA1(du)
00063       ,CHFp_CONST_FRA1(u)
00064       ,CHFp_CONST_INT(idir)
00065       ,CHFp_BOX(loBox)
00066       ,CHFp_CONST_INT(hasLo)
00067       ,CHFp_BOX(hiBox)
00068       ,CHFp_CONST_INT(hasHi)
00069       ,CHFp_BOX(centerBox) );
00070 
00071 // Prototype for Fortran procedure MAGNITUDEF ...
00072 //
00073 #define FORT_MAGNITUDEF FORTRAN_NAME( MAGNITUDEF ,magnitudef )
00074 void 
00075 FORT_MAGNITUDEF(
00076       CHFp_FRA1(magdata)
00077       ,CHFp_CONST_FRA(data)
00078       ,CHFp_BOX(box) );
00079 
00080 // Prototype for Fortran procedure SHOCKPRESJUMPF ...
00081 //
00082 #define FORT_SHOCKPRESJUMPF FORTRAN_NAME( SHOCKPRESJUMPF ,shockpresjumpf )
00083 void 
00084 FORT_SHOCKPRESJUMPF(
00085       CHFp_FRA1(pjump)
00086       ,CHFp_FRA(wrk)
00087       ,CHFp_CONST_FRA(U)
00088       ,CHFp_BOX(gbox)
00089       ,CHFp_BOX(box) );
00090 
00091 // Prototype for Fortran procedure VORTICITYF ...
00092 //
00093 #define FORT_VORTICITYF FORTRAN_NAME( VORTICITYF ,vorticityf )
00094 void 
00095 FORT_VORTICITYF(
00096       CHFp_FRA1(vorticity)
00097       ,CHFp_FRA(wrk)
00098       ,CHFp_CONST_FRA(U)
00099       ,CHFp_BOX(gbox)
00100       ,CHFp_BOX(box) );
00101 
00102 }
00103 
00104 #endif
SelfGravF_F.H
