Chombo&AMRSelfGravity: PoissonOpF

00001 #ifndef _POISSONOPF_F_H_
00002 #define _POISSONOPF_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure gsmulticolor ...
00011 //
00012 #define FORT_GSMULTICOLOR FORTRAN_NAME( GSMULTICOLOR ,gsmulticolor )
00013 void 
00014 FORT_GSMULTICOLOR(
00015       CHFp_FRA1(newphi)
00016       ,CHFp_CONST_FRA1(oldphi)
00017       ,CHFp_CONST_REAL(weight)
00018       ,CHFp_CONST_FRA1(resid)
00019       ,CHFp_BOX(coloredbox) );
00020 
00021 // Prototype for Fortran procedure OLDGSRBLEVELLAP ...
00022 //
00023 #define FORT_OLDGSRBLEVELLAP FORTRAN_NAME( OLDGSRBLEVELLAP ,oldgsrblevellap )
00024 void 
00025 FORT_OLDGSRBLEVELLAP(
00026       CHFp_FRA(phi)
00027       ,CHFp_CONST_FRA(rhs)
00028       ,CHFp_BOX(region)
00029       ,CHFp_CONST_REAL(dx)
00030       ,CHFp_CONST_INT(redBlack) );
00031 
00032 // Prototype for Fortran procedure OLDOPERATORLAP ...
00033 //
00034 #define FORT_OLDOPERATORLAP FORTRAN_NAME( OLDOPERATORLAP ,oldoperatorlap )
00035 void 
00036 FORT_OLDOPERATORLAP(
00037       CHFp_FRA(lofphi)
00038       ,CHFp_CONST_FRA(phi)
00039       ,CHFp_BOX(region)
00040       ,CHFp_CONST_REAL(dx) );
00041 
00042 // Prototype for Fortran procedure OLDINTERPHOMO ...
00043 //
00044 #define FORT_OLDINTERPHOMO FORTRAN_NAME( OLDINTERPHOMO ,oldinterphomo )
00045 void 
00046 FORT_OLDINTERPHOMO(
00047       CHFp_FRA(phi)
00048       ,CHFp_BOX(region)
00049       ,CHFp_CONST_REAL(x1)
00050       ,CHFp_CONST_REAL(m_dxCrse)
00051       ,CHFp_CONST_INT(a_idir)
00052       ,CHFp_CONST_INT(ihilo) );
00053 
00054 }
00055 
00056 #endif
PoissonOpF_F.H
