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 00022 #endif
1.3.2