Chombo&AMRSelfGravity: BoundariesF

00001 #ifndef _BOUNDARIESF_F_H_
00002 #define _BOUNDARIESF_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure SOLIDBCF ...
00011 //
00012 #define FORT_SOLIDBCF FORTRAN_NAME( SOLIDBCF ,solidbcf )
00013 void 
00014 FORT_SOLIDBCF(
00015       CHFp_FRA(Wgdnv)
00016       ,CHFp_CONST_FRA(Wextrap)
00017       ,CHFp_CONST_FRA(W)
00018       ,CHFp_CONST_INT(lohisign)
00019       ,CHFp_CONST_INT(dir)
00020       ,CHFp_BOX(box) );
00021 
00022 // Prototype for Fortran procedure INFLOWF ...
00023 //
00024 #define FORT_INFLOWF FORTRAN_NAME( INFLOWF ,inflowf )
00025 void 
00026 FORT_INFLOWF(
00027       CHFp_FRA(Wgdnv)
00028       ,CHFp_CONST_FRA(Wextrap)
00029       ,CHFp_CONST_FRA(W)
00030       ,CHFp_CONST_INT(lohisign)
00031       ,CHFp_CONST_INT(dir)
00032       ,CHFp_BOX(box) );
00033 
00034 // Prototype for Fortran procedure SLOPEBCSF ...
00035 //
00036 #define FORT_SLOPEBCSF FORTRAN_NAME( SLOPEBCSF ,slopebcsf )
00037 void 
00038 FORT_SLOPEBCSF(
00039       CHFp_FRA(dW)
00040       ,CHFp_CONST_FRA(W)
00041       ,CHFp_CONST_INT(dir)
00042       ,CHFp_BOX(loBox)
00043       ,CHFp_CONST_INT(hasLo)
00044       ,CHFp_BOX(hiBox)
00045       ,CHFp_CONST_INT(hasHi) );
00046 
00047 }
00048 
00049 #endif
BoundariesF_F.H
