Chombo&AMRSelfGravity: GodunovUtilitiesF

00001 #ifndef _GODUNOVUTILITIESF_F_H_
00002 #define _GODUNOVUTILITIESF_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure MINFLATF ...
00011 //
00012 #define FORT_MINFLATF FORTRAN_NAME( MINFLATF ,minflatf )
00013 void 
00014 FORT_MINFLATF(
00015       CHFp_FRA1(flattening)
00016       ,CHFp_CONST_FRA(zetaDir)
00017       ,CHFp_CONST_FRA(du)
00018       ,CHFp_BOX(box) );
00019 
00020 // Prototype for Fortran procedure GETDPTWOF ...
00021 //
00022 #define FORT_GETDPTWOF FORTRAN_NAME( GETDPTWOF ,getdptwof )
00023 void 
00024 FORT_GETDPTWOF(
00025       CHFp_FRA1(delta2p)
00026       ,CHFp_CONST_FRA1(delta1p)
00027       ,CHFp_CONST_INT(idir)
00028       ,CHFp_BOX(loBox)
00029       ,CHFp_CONST_INT(hasLo)
00030       ,CHFp_BOX(hiBox)
00031       ,CHFp_CONST_INT(hasHi)
00032       ,CHFp_BOX(centerBox) );
00033 
00034 // Prototype for Fortran procedure GETFLATF ...
00035 //
00036 #define FORT_GETFLATF FORTRAN_NAME( GETFLATF ,getflatf )
00037 void 
00038 FORT_GETFLATF(
00039       CHFp_FRA1(zetaTwiddle)
00040       ,CHFp_CONST_FRA1(delta1p)
00041       ,CHFp_CONST_FRA1(delta2p)
00042       ,CHFp_CONST_REAL(smallp)
00043       ,CHFp_CONST_FRA1(bulkMin)
00044       ,CHFp_BOX(box) );
00045 
00046 // Prototype for Fortran procedure GETGRADF ...
00047 //
00048 #define FORT_GETGRADF FORTRAN_NAME( GETGRADF ,getgradf )
00049 void 
00050 FORT_GETGRADF(
00051       CHFp_FRA1(du)
00052       ,CHFp_CONST_FRA1(u)
00053       ,CHFp_CONST_INT(idir)
00054       ,CHFp_BOX(loBox)
00055       ,CHFp_CONST_INT(hasLo)
00056       ,CHFp_BOX(hiBox)
00057       ,CHFp_CONST_INT(hasHi)
00058       ,CHFp_BOX(centerBox) );
00059 
00060 // Prototype for Fortran procedure MIN3PTSF ...
00061 //
00062 #define FORT_MIN3PTSF FORTRAN_NAME( MIN3PTSF ,min3ptsf )
00063 void 
00064 FORT_MIN3PTSF(
00065       CHFp_FRA1(mindata)
00066       ,CHFp_CONST_FRA1(data)
00067       ,CHFp_CONST_INT(idir)
00068       ,CHFp_BOX(loBox)
00069       ,CHFp_CONST_INT(hasLo)
00070       ,CHFp_BOX(hiBox)
00071       ,CHFp_CONST_INT(hasHi)
00072       ,CHFp_BOX(centerBox) );
00073 
00074 // Prototype for Fortran procedure SECONDSLOPEDIFFSF ...
00075 //
00076 #define FORT_SECONDSLOPEDIFFSF FORTRAN_NAME( SECONDSLOPEDIFFSF ,secondslopediffsf )
00077 void 
00078 FORT_SECONDSLOPEDIFFSF(
00079       CHFp_FRA(deltaWC)
00080       ,CHFp_FRA(deltaWL)
00081       ,CHFp_FRA(deltaWR)
00082       ,CHFp_CONST_FRA(W)
00083       ,CHFp_CONST_INT(numSlopes)
00084       ,CHFp_CONST_INT(idir)
00085       ,CHFp_BOX(loBox)
00086       ,CHFp_CONST_INT(hasLo)
00087       ,CHFp_BOX(hiBox)
00088       ,CHFp_CONST_INT(hasHi)
00089       ,CHFp_BOX(centerBox) );
00090 
00091 // Prototype for Fortran procedure FOURTHSLOPEDIFFSF ...
00092 //
00093 #define FORT_FOURTHSLOPEDIFFSF FORTRAN_NAME( FOURTHSLOPEDIFFSF ,fourthslopediffsf )
00094 void 
00095 FORT_FOURTHSLOPEDIFFSF(
00096       CHFp_FRA(delta4WC)
00097       ,CHFp_CONST_FRA(W)
00098       ,CHFp_CONST_FRA(delta2W)
00099       ,CHFp_CONST_INT(numSlopes)
00100       ,CHFp_CONST_INT(idir)
00101       ,CHFp_BOX(loBox)
00102       ,CHFp_CONST_INT(hasLo)
00103       ,CHFp_BOX(hiBox)
00104       ,CHFp_CONST_INT(hasHi)
00105       ,CHFp_BOX(centerBox) );
00106 
00107 // Prototype for Fortran procedure APPLYFLATF ...
00108 //
00109 #define FORT_APPLYFLATF FORTRAN_NAME( APPLYFLATF ,applyflatf )
00110 void 
00111 FORT_APPLYFLATF(
00112       CHFp_FRA(dW)
00113       ,CHFp_CONST_FRA1(flattening)
00114       ,CHFp_CONST_INT(numSlopes)
00115       ,CHFp_BOX(box) );
00116 
00117 // Prototype for Fortran procedure VANLEERLIMITERF ...
00118 //
00119 #define FORT_VANLEERLIMITERF FORTRAN_NAME( VANLEERLIMITERF ,vanleerlimiterf )
00120 void 
00121 FORT_VANLEERLIMITERF(
00122       CHFp_FRA(dW)
00123       ,CHFp_CONST_FRA(dWleft)
00124       ,CHFp_CONST_FRA(dWright)
00125       ,CHFp_CONST_INT(numslopes)
00126       ,CHFp_BOX(box) );
00127 
00128 // Prototype for Fortran procedure PLMNORMALPREDF ...
00129 //
00130 #define FORT_PLMNORMALPREDF FORTRAN_NAME( PLMNORMALPREDF ,plmnormalpredf )
00131 void 
00132 FORT_PLMNORMALPREDF(
00133       CHFp_FRA(dWMinus)
00134       ,CHFp_FRA(dWPlus)
00135       ,CHFp_CONST_FRA(dW)
00136       ,CHFp_CONST_FRA(lambda)
00137       ,CHFp_CONST_REAL(dtbydx)
00138       ,CHFp_CONST_INT(nSlope)
00139       ,CHFp_BOX(box) );
00140 
00141 // Prototype for Fortran procedure DIVUEDGEF ...
00142 //
00143 #define FORT_DIVUEDGEF FORTRAN_NAME( DIVUEDGEF ,divuedgef )
00144 void 
00145 FORT_DIVUEDGEF(
00146       CHFp_FRA1(divu)
00147       ,CHFp_CONST_FRA1(uNorm)
00148       ,CHFp_CONST_FRA(duTan)
00149       ,CHFp_CONST_INT(idir)
00150       ,CHFp_BOX(loBox)
00151       ,CHFp_CONST_INT(hasLo)
00152       ,CHFp_BOX(hiBox)
00153       ,CHFp_CONST_INT(hasHi)
00154       ,CHFp_BOX(centerBox) );
00155 
00156 // Prototype for Fortran procedure ARTVISCF ...
00157 //
00158 #define FORT_ARTVISCF FORTRAN_NAME( ARTVISCF ,artviscf )
00159 void 
00160 FORT_ARTVISCF(
00161       CHFp_FRA(F)
00162       ,CHFp_CONST_FRA(U)
00163       ,CHFp_CONST_FRA1(divu)
00164       ,CHFp_CONST_REAL(coeff)
00165       ,CHFp_CONST_INT(idir)
00166       ,CHFp_BOX(box) );
00167 
00168 // Prototype for Fortran procedure PPMLIMITERF ...
00169 //
00170 #define FORT_PPMLIMITERF FORTRAN_NAME( PPMLIMITERF ,ppmlimiterf )
00171 void 
00172 FORT_PPMLIMITERF(
00173       CHFp_FRA(dWMinus)
00174       ,CHFp_FRA(dWPlus)
00175       ,CHFp_CONST_INT(numSlopes)
00176       ,CHFp_BOX(box) );
00177 
00178 // Prototype for Fortran procedure PPMFACEVALUESF ...
00179 //
00180 #define FORT_PPMFACEVALUESF FORTRAN_NAME( PPMFACEVALUESF ,ppmfacevaluesf )
00181 void 
00182 FORT_PPMFACEVALUESF(
00183       CHFp_FRA(WFace)
00184       ,CHFp_CONST_FRA(W)
00185       ,CHFp_CONST_FRA(dW)
00186       ,CHFp_CONST_INT(numSlopes)
00187       ,CHFp_CONST_INT(idir)
00188       ,CHFp_BOX(loBox)
00189       ,CHFp_CONST_INT(haslo)
00190       ,CHFp_BOX(hiBox)
00191       ,CHFp_CONST_INT(hasHi)
00192       ,CHFp_BOX(centerBox) );
00193 
00194 // Prototype for Fortran procedure PPMNORMALPREDF ...
00195 //
00196 #define FORT_PPMNORMALPREDF FORTRAN_NAME( PPMNORMALPREDF ,ppmnormalpredf )
00197 void 
00198 FORT_PPMNORMALPREDF(
00199       CHFp_FRA(dWMinus)
00200       ,CHFp_FRA(dWPlus)
00201       ,CHFp_CONST_FRA(lambda)
00202       ,CHFp_CONST_REAL(dtbydx)
00203       ,CHFp_CONST_INT(nSlope)
00204       ,CHFp_BOX(box) );
00205 
00206 }
00207 
00208 #endif
GodunovUtilitiesF_F.H
