00001 #ifndef _NODEAVERAGEF_F_H_
00002 #define _NODEAVERAGEF_F_H_
00003
00004 #include "FORT_PROTO.H"
00005 #include "CH_Timer.H"
00006 #include "REAL.H"
00007
00008 extern "C"
00009 {
00010
00011 #ifndef GUARDNODEAVERAGE
00012 #define GUARDNODEAVERAGE
00013
00014
00015 void FORTRAN_NAME( NODEAVERAGE ,nodeaverage )(
00016 CHFp_FRA(coarse)
00017 ,CHFp_CONST_FRA(fine)
00018 ,CHFp_BOX(b)
00019 ,CHFp_CONST_INT(ref_ratio)
00020 ,CHFp_CONST_FRA(weight) );
00021
00022 #define FORT_NODEAVERAGE FORTRAN_NAME( inlineNODEAVERAGE, inlineNODEAVERAGE)
00023 #define FORTNT_NODEAVERAGE FORTRAN_NAME( NODEAVERAGE, nodeaverage)
00024
00025 inline void FORTRAN_NAME(inlineNODEAVERAGE, inlineNODEAVERAGE)(
00026 CHFp_FRA(coarse)
00027 ,CHFp_CONST_FRA(fine)
00028 ,CHFp_BOX(b)
00029 ,CHFp_CONST_INT(ref_ratio)
00030 ,CHFp_CONST_FRA(weight) )
00031 {
00032 CH_TIMELEAF("FORT_NODEAVERAGE");
00033 FORTRAN_NAME( NODEAVERAGE ,nodeaverage )(
00034 CHFt_FRA(coarse)
00035 ,CHFt_CONST_FRA(fine)
00036 ,CHFt_BOX(b)
00037 ,CHFt_CONST_INT(ref_ratio)
00038 ,CHFt_CONST_FRA(weight) );
00039 }
00040 #endif // GUARDNODEAVERAGE
00041
00042 #ifndef GUARDNODEAVERAGEPOINT
00043 #define GUARDNODEAVERAGEPOINT
00044
00045
00046 void FORTRAN_NAME( NODEAVERAGEPOINT ,nodeaveragepoint )(
00047 CHFp_FRA(coarse)
00048 ,CHFp_CONST_FRA(fine)
00049 ,CHFp_CONST_INTVECT(pcrse)
00050 ,CHFp_CONST_INT(ref_ratio)
00051 ,CHFp_CONST_FRA(weight) );
00052
00053 #define FORT_NODEAVERAGEPOINT FORTRAN_NAME( inlineNODEAVERAGEPOINT, inlineNODEAVERAGEPOINT)
00054 #define FORTNT_NODEAVERAGEPOINT FORTRAN_NAME( NODEAVERAGEPOINT, nodeaveragepoint)
00055
00056 inline void FORTRAN_NAME(inlineNODEAVERAGEPOINT, inlineNODEAVERAGEPOINT)(
00057 CHFp_FRA(coarse)
00058 ,CHFp_CONST_FRA(fine)
00059 ,CHFp_CONST_INTVECT(pcrse)
00060 ,CHFp_CONST_INT(ref_ratio)
00061 ,CHFp_CONST_FRA(weight) )
00062 {
00063 CH_TIMELEAF("FORT_NODEAVERAGEPOINT");
00064 FORTRAN_NAME( NODEAVERAGEPOINT ,nodeaveragepoint )(
00065 CHFt_FRA(coarse)
00066 ,CHFt_CONST_FRA(fine)
00067 ,CHFt_CONST_INTVECT(pcrse)
00068 ,CHFt_CONST_INT(ref_ratio)
00069 ,CHFt_CONST_FRA(weight) );
00070 }
00071 #endif // GUARDNODEAVERAGEPOINT
00072
00073 #ifndef GUARDNODEAVERAGE_GETWEIGHTS
00074 #define GUARDNODEAVERAGE_GETWEIGHTS
00075
00076
00077 void FORTRAN_NAME( NODEAVERAGE_GETWEIGHTS ,nodeaverage_getweights )(
00078 CHFp_FRA(weight)
00079 ,CHFp_CONST_INT(ref_ratio) );
00080
00081 #define FORT_NODEAVERAGE_GETWEIGHTS FORTRAN_NAME( inlineNODEAVERAGE_GETWEIGHTS, inlineNODEAVERAGE_GETWEIGHTS)
00082 #define FORTNT_NODEAVERAGE_GETWEIGHTS FORTRAN_NAME( NODEAVERAGE_GETWEIGHTS, nodeaverage_getweights)
00083
00084 inline void FORTRAN_NAME(inlineNODEAVERAGE_GETWEIGHTS, inlineNODEAVERAGE_GETWEIGHTS)(
00085 CHFp_FRA(weight)
00086 ,CHFp_CONST_INT(ref_ratio) )
00087 {
00088 CH_TIMELEAF("FORT_NODEAVERAGE_GETWEIGHTS");
00089 FORTRAN_NAME( NODEAVERAGE_GETWEIGHTS ,nodeaverage_getweights )(
00090 CHFt_FRA(weight)
00091 ,CHFt_CONST_INT(ref_ratio) );
00092 }
00093 #endif // GUARDNODEAVERAGE_GETWEIGHTS
00094
00095 }
00096
00097 #endif
