GradientF_F.H Source File

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 MACGRAD ...
00011 //
00012 #define FORT_MACGRAD FORTRAN_NAME( MACGRAD ,macgrad )
00013 void 
00014 FORT_MACGRAD(
00015       CHFp_FRA1(edgeGrad)
00016       ,CHFp_CONST_FRA1(phi)
00017       ,CHFp_BOX(edgeGrid)
00018       ,CHFp_CONST_REAL(dx)
00019       ,CHFp_INT(dir)
00020       ,CHFp_INT(edgeDir)
00021       ,CHFp_BOX(BLcornerBox)
00022       ,CHFp_BOX(BRcornerBox)
00023       ,CHFp_BOX(ULcornerBox)
00024       ,CHFp_BOX(URcornerBox) );
00025 
00026 // Prototype for Fortran procedure CRSEONESIDEGRAD ...
00027 //
00028 #define FORT_CRSEONESIDEGRAD FORTRAN_NAME( CRSEONESIDEGRAD ,crseonesidegrad )
00029 void 
00030 FORT_CRSEONESIDEGRAD(
00031       CHFp_FRA1(edgeGrad)
00032       ,CHFp_FIA1(mask)
00033       ,CHFp_BOX(loEdgeBox)
00034       ,CHFp_BOX(hiEdgeBox)
00035       ,CHFp_INT(dir)
00036       ,CHFp_INT(doLo)
00037       ,CHFp_INT(doHi) );
00038 
00039 // Prototype for Fortran procedure GRADCC ...
00040 //
00041 #define FORT_GRADCC FORTRAN_NAME( GRADCC ,gradcc )
00042 void 
00043 FORT_GRADCC(
00044       CHFp_FRA1(gradPhi)
00045       ,CHFp_CONST_FRA1(phi)
00046       ,CHFp_BOX(gridBox)
00047       ,CHFp_CONST_REAL(dx)
00048       ,CHFp_INT(dir) );
00049 
00050 }
00051 #endif