Warp.H Source File

00001 #ifndef _Warp_F_H_
00002 #define _Warp_F_H_
00003 
00004 #include "FORT_PROTO.H"
00005 #include "REAL.H"
00006 
00007 extern "C"
00008 {
00009 
00010 // Prototype for Fortran procedure reachablenodes ...
00011 //
00012 #define FORT_REACHABLENODES FORTRAN_NAME( REACHABLENODES ,reachablenodes )
00013 void 
00014 FORT_REACHABLENODES(
00015       CHFp_CONST_REAL(dx)
00016       ,CHFp_FIA(mask) );
00017 
00018 // Prototype for Fortran procedure setends ...
00019 //
00020 //#define FORT_SETENDS FORTRAN_NAME( SETENDS ,setends )
00021 //void 
00022 //FORT_SETENDS(
00023 //      CHFp_CONST_REAL(dx)
00024 //      ,CHFp_BOX(domain) );
00025 
00026 // Prototype for Fortran procedure getmax ...
00027 //
00028 //#define FORT_GETMAX FORTRAN_NAME( GETMAX ,getmax )
00029 //void 
00030 //FORT_GETMAX(
00031 //      CHFp_CONST_REAL(dx) );
00032 
00033 // Prototype for Fortran procedure setradius ...
00034 //
00035 //#define FORT_SETRADIUS FORTRAN_NAME( SETRADIUS ,setradius )
00036 //void 
00037 //FORT_SETRADIUS(
00038 //      CHFp_CONST_REAL(r) );
00039 
00040 // Prototype for Fortran procedure nodalcoefficients ...
00041 //
00042 #define FORT_NODALCOEFFICIENTS FORTRAN_NAME( NODALCOEFFICIENTS ,nodalcoefficients )
00043 void 
00044 FORT_NODALCOEFFICIENTS(
00045       CHFp_CONST_REAL(dx)
00046       ,CHFp_FRA(coeffs) );
00047 
00048 }
00049 #endif