Chombo&INSwithParticles: 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 GSRBLEVELLAP ...
00011 //
00012 #define FORT_GSRBLEVELLAP FORTRAN_NAME( GSRBLEVELLAP ,gsrblevellap )
00013 void 
00014 FORT_GSRBLEVELLAP(
00015       CHFp_FRA(phi)
00016       ,CHFp_CONST_FRA(rhs)
00017       ,CHFp_BOX(region)
00018       ,CHFp_CONST_REAL(dx)
00019       ,CHFp_CONST_INT(redBlack) );
00020 
00021 // Prototype for Fortran procedure OPERATORLAP ...
00022 //
00023 #define FORT_OPERATORLAP FORTRAN_NAME( OPERATORLAP ,operatorlap )
00024 void 
00025 FORT_OPERATORLAP(
00026       CHFp_FRA(lofphi)
00027       ,CHFp_CONST_FRA(phi)
00028       ,CHFp_BOX(region)
00029       ,CHFp_CONST_REAL(dx) );
00030 
00031 // Prototype for Fortran procedure INTERPHOMO ...
00032 //
00033 #define FORT_INTERPHOMO FORTRAN_NAME( INTERPHOMO ,interphomo )
00034 void 
00035 FORT_INTERPHOMO(
00036       CHFp_FRA(phi)
00037       ,CHFp_BOX(region)
00038       ,CHFp_CONST_REAL(x1)
00039       ,CHFp_CONST_REAL(m_dxCrse)
00040       ,CHFp_CONST_INT(a_idir)
00041       ,CHFp_CONST_INT(ihilo) );
00042 
00043 }
00044 
00045 #endif
PoissonOpF_F.H
