Chombo&AMRSelfGravity: SelfGravityPhysicsF

00001 #ifndef _SELFGRAVITYPHYSICSF_F_H_
00002 #define _SELFGRAVITYPHYSICSF_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure MAXWAVESPEEDF ...
00011 //
00012 #define FORT_MAXWAVESPEEDF FORTRAN_NAME( MAXWAVESPEEDF ,maxwavespeedf )
00013 void 
00014 FORT_MAXWAVESPEEDF(
00015       CHFp_REAL(cmax)
00016       ,CHFp_CONST_FRA(U)
00017       ,CHFp_BOX(box) );
00018 
00019 // Prototype for Fortran procedure MAXWAVESPEEDWSOURCEF ...
00020 //
00021 #define FORT_MAXWAVESPEEDWSOURCEF FORTRAN_NAME( MAXWAVESPEEDWSOURCEF ,maxwavespeedwsourcef )
00022 void 
00023 FORT_MAXWAVESPEEDWSOURCEF(
00024       CHFp_REAL(cmax)
00025       ,CHFp_CONST_FRA(W)
00026       ,CHFp_CONST_FRA(srce)
00027       ,CHFp_CONST_REAL(dx)
00028       ,CHFp_BOX(box) );
00029 
00030 // Prototype for Fortran procedure CONSTOPRIMF ...
00031 //
00032 #define FORT_CONSTOPRIMF FORTRAN_NAME( CONSTOPRIMF ,constoprimf )
00033 void 
00034 FORT_CONSTOPRIMF(
00035       CHFp_FRA(W)
00036       ,CHFp_CONST_FRA(U)
00037       ,CHFp_BOX(box) );
00038 
00039 // Prototype for Fortran procedure PRIMTOCONSF ...
00040 //
00041 #define FORT_PRIMTOCONSF FORTRAN_NAME( PRIMTOCONSF ,primtoconsf )
00042 void 
00043 FORT_PRIMTOCONSF(
00044       CHFp_FRA(U)
00045       ,CHFp_CONST_FRA(W)
00046       ,CHFp_BOX(box) );
00047 
00048 // Prototype for Fortran procedure RIEMANNF ...
00049 //
00050 #define FORT_RIEMANNF FORTRAN_NAME( RIEMANNF ,riemannf )
00051 void 
00052 FORT_RIEMANNF(
00053       CHFp_FRA(Wgdnv)
00054       ,CHFp_CONST_FRA(WLeft)
00055       ,CHFp_CONST_FRA(WRight)
00056       ,CHFp_CONST_INT(idir)
00057       ,CHFp_BOX(box) );
00058 
00059 // Prototype for Fortran procedure RIEMANNF ...
00060 //
00061 #define FORT_RIEMANNF FORTRAN_NAME( RIEMANNF ,riemannf )
00062 void 
00063 FORT_RIEMANNF(
00064       CHFp_FRA(Wgdnv)
00065       ,CHFp_CONST_FRA(WLeft)
00066       ,CHFp_CONST_FRA(WRight)
00067       ,CHFp_CONST_INT(idir)
00068       ,CHFp_BOX(box) );
00069 
00070 // Prototype for Fortran procedure GETFLUXF ...
00071 //
00072 #define FORT_GETFLUXF FORTRAN_NAME( GETFLUXF ,getfluxf )
00073 void 
00074 FORT_GETFLUXF(
00075       CHFp_FRA(F)
00076       ,CHFp_CONST_FRA(Wgdnv)
00077       ,CHFp_CONST_INT(idir)
00078       ,CHFp_BOX(box) );
00079 
00080 // Prototype for Fortran procedure CHARANALYSISF ...
00081 //
00082 #define FORT_CHARANALYSISF FORTRAN_NAME( CHARANALYSISF ,charanalysisf )
00083 void 
00084 FORT_CHARANALYSISF(
00085       CHFp_FRA(dW)
00086       ,CHFp_CONST_FRA(W)
00087       ,CHFp_CONST_INT(normdir)
00088       ,CHFp_BOX(box) );
00089 
00090 // Prototype for Fortran procedure CHARSYNTHESISF ...
00091 //
00092 #define FORT_CHARSYNTHESISF FORTRAN_NAME( CHARSYNTHESISF ,charsynthesisf )
00093 void 
00094 FORT_CHARSYNTHESISF(
00095       CHFp_FRA(dW)
00096       ,CHFp_CONST_FRA(W)
00097       ,CHFp_CONST_INT(normdir)
00098       ,CHFp_BOX(box) );
00099 
00100 // Prototype for Fortran procedure CHARVALUESF ...
00101 //
00102 #define FORT_CHARVALUESF FORTRAN_NAME( CHARVALUESF ,charvaluesf )
00103 void 
00104 FORT_CHARVALUESF(
00105       CHFp_FRA(lambda)
00106       ,CHFp_CONST_FRA(W)
00107       ,CHFp_CONST_INT(normdir)
00108       ,CHFp_BOX(box) );
00109 
00110 // Prototype for Fortran procedure GETADWDXF ...
00111 //
00112 #define FORT_GETADWDXF FORTRAN_NAME( GETADWDXF ,getadwdxf )
00113 void 
00114 FORT_GETADWDXF(
00115       CHFp_FRA(adwdx)
00116       ,CHFp_CONST_FRA(WHalf)
00117       ,CHFp_CONST_FRA(W)
00118       ,CHFp_CONST_REAL(scale)
00119       ,CHFp_CONST_INT(normdir)
00120       ,CHFp_BOX(box) );
00121 
00122 // Prototype for Fortran procedure POSTNORMALPREDF ...
00123 //
00124 #define FORT_POSTNORMALPREDF FORTRAN_NAME( POSTNORMALPREDF ,postnormalpredf )
00125 void 
00126 FORT_POSTNORMALPREDF(
00127       CHFp_FRA(dWMinus)
00128       ,CHFp_FRA(dWPlus)
00129       ,CHFp_CONST_FRA(W)
00130       ,CHFp_BOX(box) );
00131 
00132 // Prototype for Fortran procedure COMPUTESOURCEF ...
00133 //
00134 #define FORT_COMPUTESOURCEF FORTRAN_NAME( COMPUTESOURCEF ,computesourcef )
00135 void 
00136 FORT_COMPUTESOURCEF(
00137       CHFp_FRA(srce)
00138       ,CHFp_CONST_FRA(tsrce)
00139       ,CHFp_CONST_FRA(W)
00140       ,CHFp_BOX(gbox)
00141       ,CHFp_BOX(sbox) );
00142 
00143 // Prototype for Fortran procedure COMPUTELOCALSOURCEF ...
00144 //
00145 #define FORT_COMPUTELOCALSOURCEF FORTRAN_NAME( COMPUTELOCALSOURCEF ,computelocalsourcef )
00146 void 
00147 FORT_COMPUTELOCALSOURCEF(
00148       CHFp_FRA(locsrce)
00149       ,CHFp_CONST_FRA(srce)
00150       ,CHFp_CONST_FRA(W)
00151       ,CHFp_BOX(box) );
00152 
00153 // Prototype for Fortran procedure APPLYSOURCEF ...
00154 //
00155 #define FORT_APPLYSOURCEF FORTRAN_NAME( APPLYSOURCEF ,applysourcef )
00156 void 
00157 FORT_APPLYSOURCEF(
00158       CHFp_FRA(U)
00159       ,CHFp_CONST_FRA(src)
00160       ,CHFp_CONST_REAL(dt)
00161       ,CHFp_BOX(box) );
00162 
00163 // Prototype for Fortran procedure APPLYFORCECORRF ...
00164 //
00165 #define FORT_APPLYFORCECORRF FORTRAN_NAME( APPLYFORCECORRF ,applyforcecorrf )
00166 void 
00167 FORT_APPLYFORCECORRF(
00168       CHFp_FRA(U)
00169       ,CHFp_CONST_FRA(force)
00170       ,CHFp_CONST_REAL(dt)
00171       ,CHFp_BOX(box) );
00172 
00173 // Prototype for Fortran procedure SYNCHRONIZEF ...
00174 //
00175 #define FORT_SYNCHRONIZEF FORTRAN_NAME( SYNCHRONIZEF ,synchronizef )
00176 void 
00177 FORT_SYNCHRONIZEF(
00178       CHFp_FRA(U)
00179       ,CHFp_BOX(box) );
00180 
00181 // Prototype for Fortran procedure RESETPRESSURE ...
00182 //
00183 #define FORT_RESETPRESSURE FORTRAN_NAME( RESETPRESSURE ,resetpressure )
00184 void 
00185 FORT_RESETPRESSURE(
00186       CHFp_FRA(U)
00187       ,CHFp_BOX(box) );
00188 
00189 // Prototype for Fortran procedure RESETTEMPERATUREF ...
00190 //
00191 #define FORT_RESETTEMPERATUREF FORTRAN_NAME( RESETTEMPERATUREF ,resettemperaturef )
00192 void 
00193 FORT_RESETTEMPERATUREF(
00194       CHFp_FRA(U)
00195       ,CHFp_CONST_REAL(tempMin)
00196       ,CHFp_BOX(box) );
00197 
00198 }
00199 
00200 #endif
SelfGravityPhysicsF_F.H
