Chombo&AMRSelfGravity: GradientF

00001 #ifndef _GRADIENTF_F_H_
00002 #define _GRADIENTF_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure TWOPTSGRAD ...
00011 //
00012 #define FORT_TWOPTSGRAD FORTRAN_NAME( TWOPTSGRAD ,twoptsgrad )
00013 void 
00014 FORT_TWOPTSGRAD(
00015       CHFp_FRA1(dphi)
00016       ,CHFp_CONST_FRA1(phi)
00017       ,CHFp_CONST_INT(idir)
00018       ,CHFp_CONST_REAL(dl)
00019       ,CHFp_BOX(loBox)
00020       ,CHFp_CONST_INT(hasLo)
00021       ,CHFp_BOX(hiBox)
00022       ,CHFp_CONST_INT(hasHi)
00023       ,CHFp_BOX(centerBox) );
00024 
00025 // Prototype for Fortran procedure TWOPTSSTAGGRAD ...
00026 //
00027 #define FORT_TWOPTSSTAGGRAD FORTRAN_NAME( TWOPTSSTAGGRAD ,twoptsstaggrad )
00028 void 
00029 FORT_TWOPTSSTAGGRAD(
00030       CHFp_FRA1(dphi)
00031       ,CHFp_CONST_FRA1(phi)
00032       ,CHFp_CONST_INT(idir)
00033       ,CHFp_CONST_REAL(dl)
00034       ,CHFp_BOX(loBox)
00035       ,CHFp_CONST_INT(hasLo)
00036       ,CHFp_BOX(hiBox)
00037       ,CHFp_CONST_INT(hasHi)
00038       ,CHFp_BOX(centerBox) );
00039 
00040 // Prototype for Fortran procedure FOURPTSGRAD ...
00041 //
00042 #define FORT_FOURPTSGRAD FORTRAN_NAME( FOURPTSGRAD ,fourptsgrad )
00043 void 
00044 FORT_FOURPTSGRAD(
00045       CHFp_FRA1(dphi)
00046       ,CHFp_CONST_FRA1(phi)
00047       ,CHFp_CONST_INT(idir)
00048       ,CHFp_CONST_REAL(dl)
00049       ,CHFp_BOX(loBox)
00050       ,CHFp_CONST_INT(hasLo)
00051       ,CHFp_BOX(hiBox)
00052       ,CHFp_CONST_INT(hasHi)
00053       ,CHFp_BOX(centerBox) );
00054 
00055 // Prototype for Fortran procedure FOURPTSSTAGGRAD ...
00056 //
00057 #define FORT_FOURPTSSTAGGRAD FORTRAN_NAME( FOURPTSSTAGGRAD ,fourptsstaggrad )
00058 void 
00059 FORT_FOURPTSSTAGGRAD(
00060       CHFp_FRA1(dphi)
00061       ,CHFp_CONST_FRA1(phi)
00062       ,CHFp_CONST_INT(idir)
00063       ,CHFp_CONST_REAL(dl)
00064       ,CHFp_BOX(loBox)
00065       ,CHFp_CONST_INT(hasLo)
00066       ,CHFp_BOX(hiBox)
00067       ,CHFp_CONST_INT(hasHi)
00068       ,CHFp_BOX(centerBox) );
00069 
00070 // Prototype for Fortran procedure TENPTSGRAD ...
00071 //
00072 #define FORT_TENPTSGRAD FORTRAN_NAME( TENPTSGRAD ,tenptsgrad )
00073 void 
00074 FORT_TENPTSGRAD(
00075       CHFp_FRA1(dphi)
00076       ,CHFp_CONST_FRA1(phi)
00077       ,CHFp_CONST_INT(idir)
00078       ,CHFp_CONST_REAL(dl)
00079       ,CHFp_BOX(loBox)
00080       ,CHFp_CONST_INT(hasLo)
00081       ,CHFp_BOX(hiBox)
00082       ,CHFp_CONST_INT(hasHi)
00083       ,CHFp_BOX(centerBox) );
00084 
00085 // Prototype for Fortran procedure TENPTSSTAGGRAD ...
00086 //
00087 #define FORT_TENPTSSTAGGRAD FORTRAN_NAME( TENPTSSTAGGRAD ,tenptsstaggrad )
00088 void 
00089 FORT_TENPTSSTAGGRAD(
00090       CHFp_FRA1(dphi)
00091       ,CHFp_CONST_FRA1(phi)
00092       ,CHFp_CONST_INT(idir)
00093       ,CHFp_CONST_REAL(dl)
00094       ,CHFp_BOX(loBox)
00095       ,CHFp_CONST_INT(hasLo)
00096       ,CHFp_BOX(hiBox)
00097       ,CHFp_CONST_INT(hasHi)
00098       ,CHFp_BOX(centerBox) );
00099 
00100 }
00101 
00102 #endif
GradientF_F.H
