CellToEdgeF_F.H Source File

00001 #ifndef _CellToEdgeF_F_H_
00002 #define _CellToEdgeF_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure CELLTOEDGE ...
00011 //
00012 #define FORT_CELLTOEDGE FORTRAN_NAME( CELLTOEDGE ,celltoedge )
00013 void 
00014 FORT_CELLTOEDGE(
00015       CHFp_CONST_FRA1(cellData)
00016       ,CHFp_FRA1(edgeData)
00017       ,CHFp_BOX(edgeBox)
00018       ,CHFp_CONST_INT(dir) );
00019 
00020 }
00021 #endif