00001 #ifndef _FOURTHORDERMAPPEDFINEINTERPF_F_H_
00002 #define _FOURTHORDERMAPPEDFINEINTERPF_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 GUARDLOADAVGDISPLA
00012 #define GUARDLOADAVGDISPLA
00013
00014
00015 void FORTRAN_NAME( LOADAVGDISPLA ,loadavgdispla )(
00016 CHFp_R1D(A,iAhi0)
00017 ,CHFp_CONST_INT(degree)
00018 ,CHFp_CONST_REALVECT(dxi)
00019 ,CHFp_CONST_REAL(dh) );
00020
00021 #define FORT_LOADAVGDISPLA FORTRAN_NAME( inlineLOADAVGDISPLA, inlineLOADAVGDISPLA)
00022 #define FORTNT_LOADAVGDISPLA FORTRAN_NAME( LOADAVGDISPLA, loadavgdispla)
00023
00024 inline void FORTRAN_NAME(inlineLOADAVGDISPLA, inlineLOADAVGDISPLA)(
00025 CHFp_R1D(A,iAhi0)
00026 ,CHFp_CONST_INT(degree)
00027 ,CHFp_CONST_REALVECT(dxi)
00028 ,CHFp_CONST_REAL(dh) )
00029 {
00030 CH_TIMELEAF("FORT_LOADAVGDISPLA");
00031 FORTRAN_NAME( LOADAVGDISPLA ,loadavgdispla )(
00032 CHFt_R1D(A,iAhi0)
00033 ,CHFt_CONST_INT(degree)
00034 ,CHFt_CONST_REALVECT(dxi)
00035 ,CHFt_CONST_REAL(dh) );
00036 }
00037 #endif // GUARDLOADAVGDISPLA
00038
00039 #ifndef GUARDGRADAVGXIP
00040 #define GUARDGRADAVGXIP
00041
00042
00043 void FORTRAN_NAME( GRADAVGXIP ,gradavgxip )(
00044 CHFp_RCHARRAY(RANK_SPACEDIM_PLUS_1,gradXip)
00045 ,CHFp_CONST_RCHARRAY(RANK_SPACEDIM_PLUS_1,Xip)
00046 ,CHFp_BOX(box) );
00047
00048 #define FORT_GRADAVGXIP FORTRAN_NAME( inlineGRADAVGXIP, inlineGRADAVGXIP)
00049 #define FORTNT_GRADAVGXIP FORTRAN_NAME( GRADAVGXIP, gradavgxip)
00050
00051 inline void FORTRAN_NAME(inlineGRADAVGXIP, inlineGRADAVGXIP)(
00052 CHFp_RCHARRAY(RANK_SPACEDIM_PLUS_1,gradXip)
00053 ,CHFp_CONST_RCHARRAY(RANK_SPACEDIM_PLUS_1,Xip)
00054 ,CHFp_BOX(box) )
00055 {
00056 CH_TIMELEAF("FORT_GRADAVGXIP");
00057 FORTRAN_NAME( GRADAVGXIP ,gradavgxip )(
00058 CHFt_RCHARRAY(RANK_SPACEDIM_PLUS_1,gradXip)
00059 ,CHFt_CONST_RCHARRAY(RANK_SPACEDIM_PLUS_1,Xip)
00060 ,CHFt_BOX(box) );
00061 }
00062 #endif // GUARDGRADAVGXIP
00063
00064 #ifndef GUARDGRADAVGXIPEXACT
00065 #define GUARDGRADAVGXIPEXACT
00066
00067
00068 void FORTRAN_NAME( GRADAVGXIPEXACT ,gradavgxipexact )(
00069 CHFp_RCHARRAY(RANK_SPACEDIM_PLUS_1,gradXip)
00070 ,CHFp_CONST_RCHARRAY(RANK_SPACEDIM_PLUS_1,Xip)
00071 ,CHFp_CONST_INT(maxdeg)
00072 ,CHFp_CONST_REALVECT(dx)
00073 ,CHFp_BOX(box) );
00074
00075 #define FORT_GRADAVGXIPEXACT FORTRAN_NAME( inlineGRADAVGXIPEXACT, inlineGRADAVGXIPEXACT)
00076 #define FORTNT_GRADAVGXIPEXACT FORTRAN_NAME( GRADAVGXIPEXACT, gradavgxipexact)
00077
00078 inline void FORTRAN_NAME(inlineGRADAVGXIPEXACT, inlineGRADAVGXIPEXACT)(
00079 CHFp_RCHARRAY(RANK_SPACEDIM_PLUS_1,gradXip)
00080 ,CHFp_CONST_RCHARRAY(RANK_SPACEDIM_PLUS_1,Xip)
00081 ,CHFp_CONST_INT(maxdeg)
00082 ,CHFp_CONST_REALVECT(dx)
00083 ,CHFp_BOX(box) )
00084 {
00085 CH_TIMELEAF("FORT_GRADAVGXIPEXACT");
00086 FORTRAN_NAME( GRADAVGXIPEXACT ,gradavgxipexact )(
00087 CHFt_RCHARRAY(RANK_SPACEDIM_PLUS_1,gradXip)
00088 ,CHFt_CONST_RCHARRAY(RANK_SPACEDIM_PLUS_1,Xip)
00089 ,CHFt_CONST_INT(maxdeg)
00090 ,CHFt_CONST_REALVECT(dx)
00091 ,CHFt_BOX(box) );
00092 }
00093 #endif // GUARDGRADAVGXIPEXACT
00094
00095 #ifndef GUARDMAPLSINTERP
00096 #define GUARDMAPLSINTERP
00097
00098
00099 void FORTRAN_NAME( MAPLSINTERP ,maplsinterp )(
00100 CHFp_FRA(JUFine)
00101 ,CHFp_CONST_FRA(JFine)
00102 ,CHFp_CONST_I1D(xctm,ixctmhi0)
00103 ,CHFp_BOX(fineBoxInCr)
00104 ,CHFp_CONST_INTVECT(fineSmlEnd)
00105 ,CHFp_CONST_RCHARRAY(2,LSbl)
00106 ,CHFp_CONST_R1D(LSd,iLSdhi0)
00107 ,CHFp_CONST_RCHARRAY(2,At)
00108 ,CHFp_CONST_RCHARRAY(RANK_SPACEDIM_PLUS_1,Xip)
00109 ,CHFp_CONST_RCHARRAY(RANK_SPACEDIM_PLUS_1,gradXip)
00110 ,CHFp_CONST_INT(lenM)
00111 ,CHFp_INT(stat) );
00112
00113 #define FORT_MAPLSINTERP FORTRAN_NAME( inlineMAPLSINTERP, inlineMAPLSINTERP)
00114 #define FORTNT_MAPLSINTERP FORTRAN_NAME( MAPLSINTERP, maplsinterp)
00115
00116 inline void FORTRAN_NAME(inlineMAPLSINTERP, inlineMAPLSINTERP)(
00117 CHFp_FRA(JUFine)
00118 ,CHFp_CONST_FRA(JFine)
00119 ,CHFp_CONST_I1D(xctm,ixctmhi0)
00120 ,CHFp_BOX(fineBoxInCr)
00121 ,CHFp_CONST_INTVECT(fineSmlEnd)
00122 ,CHFp_CONST_RCHARRAY(2,LSbl)
00123 ,CHFp_CONST_R1D(LSd,iLSdhi0)
00124 ,CHFp_CONST_RCHARRAY(2,At)
00125 ,CHFp_CONST_RCHARRAY(RANK_SPACEDIM_PLUS_1,Xip)
00126 ,CHFp_CONST_RCHARRAY(RANK_SPACEDIM_PLUS_1,gradXip)
00127 ,CHFp_CONST_INT(lenM)
00128 ,CHFp_INT(stat) )
00129 {
00130 CH_TIMELEAF("FORT_MAPLSINTERP");
00131 FORTRAN_NAME( MAPLSINTERP ,maplsinterp )(
00132 CHFt_FRA(JUFine)
00133 ,CHFt_CONST_FRA(JFine)
00134 ,CHFt_CONST_I1D(xctm,ixctmhi0)
00135 ,CHFt_BOX(fineBoxInCr)
00136 ,CHFt_CONST_INTVECT(fineSmlEnd)
00137 ,CHFt_CONST_RCHARRAY(2,LSbl)
00138 ,CHFt_CONST_R1D(LSd,iLSdhi0)
00139 ,CHFt_CONST_RCHARRAY(2,At)
00140 ,CHFt_CONST_RCHARRAY(RANK_SPACEDIM_PLUS_1,Xip)
00141 ,CHFt_CONST_RCHARRAY(RANK_SPACEDIM_PLUS_1,gradXip)
00142 ,CHFt_CONST_INT(lenM)
00143 ,CHFt_INT(stat) );
00144 }
00145 #endif // GUARDMAPLSINTERP
00146
00147 #ifndef GUARDMAPLSATAINVAT
00148 #define GUARDMAPLSATAINVAT
00149
00150
00151 void FORTRAN_NAME( MAPLSATAINVAT ,maplsatainvat )(
00152 CHFp_RCHARRAY(2,AtAinvAt)
00153 ,CHFp_CONST_INT(lenM)
00154 ,CHFp_CONST_RCHARRAY(2,At)
00155 ,CHFp_INT(stat) );
00156
00157 #define FORT_MAPLSATAINVAT FORTRAN_NAME( inlineMAPLSATAINVAT, inlineMAPLSATAINVAT)
00158 #define FORTNT_MAPLSATAINVAT FORTRAN_NAME( MAPLSATAINVAT, maplsatainvat)
00159
00160 inline void FORTRAN_NAME(inlineMAPLSATAINVAT, inlineMAPLSATAINVAT)(
00161 CHFp_RCHARRAY(2,AtAinvAt)
00162 ,CHFp_CONST_INT(lenM)
00163 ,CHFp_CONST_RCHARRAY(2,At)
00164 ,CHFp_INT(stat) )
00165 {
00166 CH_TIMELEAF("FORT_MAPLSATAINVAT");
00167 FORTRAN_NAME( MAPLSATAINVAT ,maplsatainvat )(
00168 CHFt_RCHARRAY(2,AtAinvAt)
00169 ,CHFt_CONST_INT(lenM)
00170 ,CHFt_CONST_RCHARRAY(2,At)
00171 ,CHFt_INT(stat) );
00172 }
00173 #endif // GUARDMAPLSATAINVAT
00174
00175 #ifndef GUARDMAPLSFILLGHOSTS
00176 #define GUARDMAPLSFILLGHOSTS
00177
00178
00179 void FORTRAN_NAME( MAPLSFILLGHOSTS ,maplsfillghosts )(
00180 CHFp_FRA(UFine)
00181 ,CHFp_FRA(JUFine)
00182 ,CHFp_CONST_FRA(JFine)
00183 ,CHFp_CONST_I1D(xctm,ixctmhi0)
00184 ,CHFp_BOX(fineBoxInCr)
00185 ,CHFp_CONST_INTVECT(fineSmlEnd)
00186 ,CHFp_CONST_RCHARRAY(2,LSbl)
00187 ,CHFp_CONST_RCHARRAY(2,At)
00188 ,CHFp_CONST_RCHARRAY(2,AtAinvAt)
00189 ,CHFp_CONST_RCHARRAY(RANK_SPACEDIM_PLUS_1,Xip)
00190 ,CHFp_CONST_RCHARRAY(RANK_SPACEDIM_PLUS_1,gradXip)
00191 ,CHFp_CONST_INT(lenM)
00192 ,CHFp_INT(stat) );
00193
00194 #define FORT_MAPLSFILLGHOSTS FORTRAN_NAME( inlineMAPLSFILLGHOSTS, inlineMAPLSFILLGHOSTS)
00195 #define FORTNT_MAPLSFILLGHOSTS FORTRAN_NAME( MAPLSFILLGHOSTS, maplsfillghosts)
00196
00197 inline void FORTRAN_NAME(inlineMAPLSFILLGHOSTS, inlineMAPLSFILLGHOSTS)(
00198 CHFp_FRA(UFine)
00199 ,CHFp_FRA(JUFine)
00200 ,CHFp_CONST_FRA(JFine)
00201 ,CHFp_CONST_I1D(xctm,ixctmhi0)
00202 ,CHFp_BOX(fineBoxInCr)
00203 ,CHFp_CONST_INTVECT(fineSmlEnd)
00204 ,CHFp_CONST_RCHARRAY(2,LSbl)
00205 ,CHFp_CONST_RCHARRAY(2,At)
00206 ,CHFp_CONST_RCHARRAY(2,AtAinvAt)
00207 ,CHFp_CONST_RCHARRAY(RANK_SPACEDIM_PLUS_1,Xip)
00208 ,CHFp_CONST_RCHARRAY(RANK_SPACEDIM_PLUS_1,gradXip)
00209 ,CHFp_CONST_INT(lenM)
00210 ,CHFp_INT(stat) )
00211 {
00212 CH_TIMELEAF("FORT_MAPLSFILLGHOSTS");
00213 FORTRAN_NAME( MAPLSFILLGHOSTS ,maplsfillghosts )(
00214 CHFt_FRA(UFine)
00215 ,CHFt_FRA(JUFine)
00216 ,CHFt_CONST_FRA(JFine)
00217 ,CHFt_CONST_I1D(xctm,ixctmhi0)
00218 ,CHFt_BOX(fineBoxInCr)
00219 ,CHFt_CONST_INTVECT(fineSmlEnd)
00220 ,CHFt_CONST_RCHARRAY(2,LSbl)
00221 ,CHFt_CONST_RCHARRAY(2,At)
00222 ,CHFt_CONST_RCHARRAY(2,AtAinvAt)
00223 ,CHFt_CONST_RCHARRAY(RANK_SPACEDIM_PLUS_1,Xip)
00224 ,CHFt_CONST_RCHARRAY(RANK_SPACEDIM_PLUS_1,gradXip)
00225 ,CHFt_CONST_INT(lenM)
00226 ,CHFt_INT(stat) );
00227 }
00228 #endif // GUARDMAPLSFILLGHOSTS
00229
00230 }
00231
00232 #endif
