Chombo&AMRSelfGravity: GhostBCF

00001 #ifndef _GHOSTBCF_F_H_
00002 #define _GHOSTBCF_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure BOXGHOSTBC ...
00011 //
00012 #define FORT_BOXGHOSTBC FORTRAN_NAME( BOXGHOSTBC ,boxghostbc )
00013 void 
00014 FORT_BOXGHOSTBC(
00015       CHFp_FRA(state)
00016       ,CHFp_CONST_FRA(neumfac)
00017       ,CHFp_CONST_FRA(dircfac)
00018       ,CHFp_CONST_FRA(inhmval)
00019       ,CHFp_BOX(facebox)
00020       ,CHFp_BOX(interiorBox)
00021       ,CHFp_CONST_INT(idir)
00022       ,CHFp_CONST_INT(side)
00023       ,CHFp_CONST_REAL(dx)
00024       ,CHFp_CONST_INT(startcomp)
00025       ,CHFp_CONST_INT(endcomp) );
00026 
00027 }
00028 
00029 #endif
GhostBCF_F.H
