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
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
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
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
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
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
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
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
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
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