Chombo + EB + MF: CubedSphere2DF

00001 #ifndef _CUBEDSPHERE2DF_F_H_
00002 #define _CUBEDSPHERE2DF_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 GUARDCUBEDSPHERE2DMAPPEDTOREAL 
00012 #define GUARDCUBEDSPHERE2DMAPPEDTOREAL 
00013 // Prototype for Fortran procedure cubedsphere2dmappedtoreal ...
00014 //
00015 void FORTRAN_NAME( CUBEDSPHERE2DMAPPEDTOREAL ,cubedsphere2dmappedtoreal )(
00016       CHFp_FRA(coords)
00017       ,CHFp_CONST_FRA(xi)
00018       ,CHFp_CONST_INT(panel)
00019       ,CHFp_BOX(bx)
00020       ,CHFp_CONST_REALVECT(dx)
00021       ,CHFp_CONST_INTVECT(base) );
00022 
00023 #define FORT_CUBEDSPHERE2DMAPPEDTOREAL FORTRAN_NAME( inlineCUBEDSPHERE2DMAPPEDTOREAL, inlineCUBEDSPHERE2DMAPPEDTOREAL)
00024 #define FORTNT_CUBEDSPHERE2DMAPPEDTOREAL FORTRAN_NAME( CUBEDSPHERE2DMAPPEDTOREAL, cubedsphere2dmappedtoreal)
00025 
00026 inline void FORTRAN_NAME(inlineCUBEDSPHERE2DMAPPEDTOREAL, inlineCUBEDSPHERE2DMAPPEDTOREAL)(
00027       CHFp_FRA(coords)
00028       ,CHFp_CONST_FRA(xi)
00029       ,CHFp_CONST_INT(panel)
00030       ,CHFp_BOX(bx)
00031       ,CHFp_CONST_REALVECT(dx)
00032       ,CHFp_CONST_INTVECT(base) )
00033 {
00034  CH_TIMELEAF("FORT_CUBEDSPHERE2DMAPPEDTOREAL");
00035  FORTRAN_NAME( CUBEDSPHERE2DMAPPEDTOREAL ,cubedsphere2dmappedtoreal )(
00036       CHFt_FRA(coords)
00037       ,CHFt_CONST_FRA(xi)
00038       ,CHFt_CONST_INT(panel)
00039       ,CHFt_BOX(bx)
00040       ,CHFt_CONST_REALVECT(dx)
00041       ,CHFt_CONST_INTVECT(base) );
00042 }
00043 #endif  // GUARDCUBEDSPHERE2DMAPPEDTOREAL 
00044 
00045 #ifndef GUARDCUBEDSPHERE2DNODEREAL 
00046 #define GUARDCUBEDSPHERE2DNODEREAL 
00047 // Prototype for Fortran procedure cubedsphere2dnodereal ...
00048 //
00049 void FORTRAN_NAME( CUBEDSPHERE2DNODEREAL ,cubedsphere2dnodereal )(
00050       CHFp_FRA(coords)
00051       ,CHFp_CONST_INT(panel)
00052       ,CHFp_BOX(bx)
00053       ,CHFp_CONST_REALVECT(dx)
00054       ,CHFp_CONST_INTVECT(base) );
00055 
00056 #define FORT_CUBEDSPHERE2DNODEREAL FORTRAN_NAME( inlineCUBEDSPHERE2DNODEREAL, inlineCUBEDSPHERE2DNODEREAL)
00057 #define FORTNT_CUBEDSPHERE2DNODEREAL FORTRAN_NAME( CUBEDSPHERE2DNODEREAL, cubedsphere2dnodereal)
00058 
00059 inline void FORTRAN_NAME(inlineCUBEDSPHERE2DNODEREAL, inlineCUBEDSPHERE2DNODEREAL)(
00060       CHFp_FRA(coords)
00061       ,CHFp_CONST_INT(panel)
00062       ,CHFp_BOX(bx)
00063       ,CHFp_CONST_REALVECT(dx)
00064       ,CHFp_CONST_INTVECT(base) )
00065 {
00066  CH_TIMELEAF("FORT_CUBEDSPHERE2DNODEREAL");
00067  FORTRAN_NAME( CUBEDSPHERE2DNODEREAL ,cubedsphere2dnodereal )(
00068       CHFt_FRA(coords)
00069       ,CHFt_CONST_INT(panel)
00070       ,CHFt_BOX(bx)
00071       ,CHFt_CONST_REALVECT(dx)
00072       ,CHFt_CONST_INTVECT(base) );
00073 }
00074 #endif  // GUARDCUBEDSPHERE2DNODEREAL 
00075 
00076 #ifndef GUARDCUBEDSPHERE2DCELLMAPPED 
00077 #define GUARDCUBEDSPHERE2DCELLMAPPED 
00078 // Prototype for Fortran procedure cubedsphere2dcellmapped ...
00079 //
00080 void FORTRAN_NAME( CUBEDSPHERE2DCELLMAPPED ,cubedsphere2dcellmapped )(
00081       CHFp_FRA(coords)
00082       ,CHFp_CONST_INT(panel)
00083       ,CHFp_BOX(bx)
00084       ,CHFp_CONST_REALVECT(dx)
00085       ,CHFp_CONST_INTVECT(base) );
00086 
00087 #define FORT_CUBEDSPHERE2DCELLMAPPED FORTRAN_NAME( inlineCUBEDSPHERE2DCELLMAPPED, inlineCUBEDSPHERE2DCELLMAPPED)
00088 #define FORTNT_CUBEDSPHERE2DCELLMAPPED FORTRAN_NAME( CUBEDSPHERE2DCELLMAPPED, cubedsphere2dcellmapped)
00089 
00090 inline void FORTRAN_NAME(inlineCUBEDSPHERE2DCELLMAPPED, inlineCUBEDSPHERE2DCELLMAPPED)(
00091       CHFp_FRA(coords)
00092       ,CHFp_CONST_INT(panel)
00093       ,CHFp_BOX(bx)
00094       ,CHFp_CONST_REALVECT(dx)
00095       ,CHFp_CONST_INTVECT(base) )
00096 {
00097  CH_TIMELEAF("FORT_CUBEDSPHERE2DCELLMAPPED");
00098  FORTRAN_NAME( CUBEDSPHERE2DCELLMAPPED ,cubedsphere2dcellmapped )(
00099       CHFt_FRA(coords)
00100       ,CHFt_CONST_INT(panel)
00101       ,CHFt_BOX(bx)
00102       ,CHFt_CONST_REALVECT(dx)
00103       ,CHFt_CONST_INTVECT(base) );
00104 }
00105 #endif  // GUARDCUBEDSPHERE2DCELLMAPPED 
00106 
00107 #ifndef GUARDCUBEDSPHERE2DNODEMAPPED 
00108 #define GUARDCUBEDSPHERE2DNODEMAPPED 
00109 // Prototype for Fortran procedure cubedsphere2dnodemapped ...
00110 //
00111 void FORTRAN_NAME( CUBEDSPHERE2DNODEMAPPED ,cubedsphere2dnodemapped )(
00112       CHFp_FRA(coords)
00113       ,CHFp_CONST_INT(panel)
00114       ,CHFp_BOX(bx)
00115       ,CHFp_CONST_REALVECT(dx)
00116       ,CHFp_CONST_INTVECT(base) );
00117 
00118 #define FORT_CUBEDSPHERE2DNODEMAPPED FORTRAN_NAME( inlineCUBEDSPHERE2DNODEMAPPED, inlineCUBEDSPHERE2DNODEMAPPED)
00119 #define FORTNT_CUBEDSPHERE2DNODEMAPPED FORTRAN_NAME( CUBEDSPHERE2DNODEMAPPED, cubedsphere2dnodemapped)
00120 
00121 inline void FORTRAN_NAME(inlineCUBEDSPHERE2DNODEMAPPED, inlineCUBEDSPHERE2DNODEMAPPED)(
00122       CHFp_FRA(coords)
00123       ,CHFp_CONST_INT(panel)
00124       ,CHFp_BOX(bx)
00125       ,CHFp_CONST_REALVECT(dx)
00126       ,CHFp_CONST_INTVECT(base) )
00127 {
00128  CH_TIMELEAF("FORT_CUBEDSPHERE2DNODEMAPPED");
00129  FORTRAN_NAME( CUBEDSPHERE2DNODEMAPPED ,cubedsphere2dnodemapped )(
00130       CHFt_FRA(coords)
00131       ,CHFt_CONST_INT(panel)
00132       ,CHFt_BOX(bx)
00133       ,CHFt_CONST_REALVECT(dx)
00134       ,CHFt_CONST_INTVECT(base) );
00135 }
00136 #endif  // GUARDCUBEDSPHERE2DNODEMAPPED 
00137 
00138 #ifndef GUARDCUBEDSPHERE2DFACEMAPPED 
00139 #define GUARDCUBEDSPHERE2DFACEMAPPED 
00140 // Prototype for Fortran procedure cubedsphere2dfacemapped ...
00141 //
00142 void FORTRAN_NAME( CUBEDSPHERE2DFACEMAPPED ,cubedsphere2dfacemapped )(
00143       CHFp_FRA(coords)
00144       ,CHFp_CONST_INT(panel)
00145       ,CHFp_BOX(bx)
00146       ,CHFp_CONST_REALVECT(dx)
00147       ,CHFp_CONST_INT(dir)
00148       ,CHFp_CONST_INTVECT(base) );
00149 
00150 #define FORT_CUBEDSPHERE2DFACEMAPPED FORTRAN_NAME( inlineCUBEDSPHERE2DFACEMAPPED, inlineCUBEDSPHERE2DFACEMAPPED)
00151 #define FORTNT_CUBEDSPHERE2DFACEMAPPED FORTRAN_NAME( CUBEDSPHERE2DFACEMAPPED, cubedsphere2dfacemapped)
00152 
00153 inline void FORTRAN_NAME(inlineCUBEDSPHERE2DFACEMAPPED, inlineCUBEDSPHERE2DFACEMAPPED)(
00154       CHFp_FRA(coords)
00155       ,CHFp_CONST_INT(panel)
00156       ,CHFp_BOX(bx)
00157       ,CHFp_CONST_REALVECT(dx)
00158       ,CHFp_CONST_INT(dir)
00159       ,CHFp_CONST_INTVECT(base) )
00160 {
00161  CH_TIMELEAF("FORT_CUBEDSPHERE2DFACEMAPPED");
00162  FORTRAN_NAME( CUBEDSPHERE2DFACEMAPPED ,cubedsphere2dfacemapped )(
00163       CHFt_FRA(coords)
00164       ,CHFt_CONST_INT(panel)
00165       ,CHFt_BOX(bx)
00166       ,CHFt_CONST_REALVECT(dx)
00167       ,CHFt_CONST_INT(dir)
00168       ,CHFt_CONST_INTVECT(base) );
00169 }
00170 #endif  // GUARDCUBEDSPHERE2DFACEMAPPED 
00171 
00172 #ifndef GUARDCUBEDSPHERE2DCELLVOL 
00173 #define GUARDCUBEDSPHERE2DCELLVOL 
00174 // Prototype for Fortran procedure cubedsphere2dcellvol ...
00175 //
00176 void FORTRAN_NAME( CUBEDSPHERE2DCELLVOL ,cubedsphere2dcellvol )(
00177       CHFp_FRA1(vol)
00178       ,CHFp_CONST_INT(panel)
00179       ,CHFp_BOX(bx)
00180       ,CHFp_CONST_REALVECT(dx)
00181       ,CHFp_CONST_INTVECT(base) );
00182 
00183 #define FORT_CUBEDSPHERE2DCELLVOL FORTRAN_NAME( inlineCUBEDSPHERE2DCELLVOL, inlineCUBEDSPHERE2DCELLVOL)
00184 #define FORTNT_CUBEDSPHERE2DCELLVOL FORTRAN_NAME( CUBEDSPHERE2DCELLVOL, cubedsphere2dcellvol)
00185 
00186 inline void FORTRAN_NAME(inlineCUBEDSPHERE2DCELLVOL, inlineCUBEDSPHERE2DCELLVOL)(
00187       CHFp_FRA1(vol)
00188       ,CHFp_CONST_INT(panel)
00189       ,CHFp_BOX(bx)
00190       ,CHFp_CONST_REALVECT(dx)
00191       ,CHFp_CONST_INTVECT(base) )
00192 {
00193  CH_TIMELEAF("FORT_CUBEDSPHERE2DCELLVOL");
00194  FORTRAN_NAME( CUBEDSPHERE2DCELLVOL ,cubedsphere2dcellvol )(
00195       CHFt_FRA1(vol)
00196       ,CHFt_CONST_INT(panel)
00197       ,CHFt_BOX(bx)
00198       ,CHFt_CONST_REALVECT(dx)
00199       ,CHFt_CONST_INTVECT(base) );
00200 }
00201 #endif  // GUARDCUBEDSPHERE2DCELLVOL 
00202 
00203 #ifndef GUARDCUBEDSPHERE2DNORMAL 
00204 #define GUARDCUBEDSPHERE2DNORMAL 
00205 // Prototype for Fortran procedure cubedsphere2dnormal ...
00206 //
00207 void FORTRAN_NAME( CUBEDSPHERE2DNORMAL ,cubedsphere2dnormal )(
00208       CHFp_FRA(normal)
00209       ,CHFp_CONST_INT(panel)
00210       ,CHFp_BOX(bx)
00211       ,CHFp_CONST_INT(dir)
00212       ,CHFp_CONST_REALVECT(dx)
00213       ,CHFp_CONST_INTVECT(base) );
00214 
00215 #define FORT_CUBEDSPHERE2DNORMAL FORTRAN_NAME( inlineCUBEDSPHERE2DNORMAL, inlineCUBEDSPHERE2DNORMAL)
00216 #define FORTNT_CUBEDSPHERE2DNORMAL FORTRAN_NAME( CUBEDSPHERE2DNORMAL, cubedsphere2dnormal)
00217 
00218 inline void FORTRAN_NAME(inlineCUBEDSPHERE2DNORMAL, inlineCUBEDSPHERE2DNORMAL)(
00219       CHFp_FRA(normal)
00220       ,CHFp_CONST_INT(panel)
00221       ,CHFp_BOX(bx)
00222       ,CHFp_CONST_INT(dir)
00223       ,CHFp_CONST_REALVECT(dx)
00224       ,CHFp_CONST_INTVECT(base) )
00225 {
00226  CH_TIMELEAF("FORT_CUBEDSPHERE2DNORMAL");
00227  FORTRAN_NAME( CUBEDSPHERE2DNORMAL ,cubedsphere2dnormal )(
00228       CHFt_FRA(normal)
00229       ,CHFt_CONST_INT(panel)
00230       ,CHFt_BOX(bx)
00231       ,CHFt_CONST_INT(dir)
00232       ,CHFt_CONST_REALVECT(dx)
00233       ,CHFt_CONST_INTVECT(base) );
00234 }
00235 #endif  // GUARDCUBEDSPHERE2DNORMAL 
00236 
00237 #ifndef GUARDCUBEDSPHERE2DAVGJINV 
00238 #define GUARDCUBEDSPHERE2DAVGJINV 
00239 // Prototype for Fortran procedure cubedsphere2davgjinv ...
00240 //
00241 void FORTRAN_NAME( CUBEDSPHERE2DAVGJINV ,cubedsphere2davgjinv )(
00242       CHFp_FRA1(avjinv)
00243       ,CHFp_CONST_INT(panel)
00244       ,CHFp_BOX(bx)
00245       ,CHFp_CONST_INT(dir)
00246       ,CHFp_CONST_REALVECT(dx)
00247       ,CHFp_CONST_INTVECT(base) );
00248 
00249 #define FORT_CUBEDSPHERE2DAVGJINV FORTRAN_NAME( inlineCUBEDSPHERE2DAVGJINV, inlineCUBEDSPHERE2DAVGJINV)
00250 #define FORTNT_CUBEDSPHERE2DAVGJINV FORTRAN_NAME( CUBEDSPHERE2DAVGJINV, cubedsphere2davgjinv)
00251 
00252 inline void FORTRAN_NAME(inlineCUBEDSPHERE2DAVGJINV, inlineCUBEDSPHERE2DAVGJINV)(
00253       CHFp_FRA1(avjinv)
00254       ,CHFp_CONST_INT(panel)
00255       ,CHFp_BOX(bx)
00256       ,CHFp_CONST_INT(dir)
00257       ,CHFp_CONST_REALVECT(dx)
00258       ,CHFp_CONST_INTVECT(base) )
00259 {
00260  CH_TIMELEAF("FORT_CUBEDSPHERE2DAVGJINV");
00261  FORTRAN_NAME( CUBEDSPHERE2DAVGJINV ,cubedsphere2davgjinv )(
00262       CHFt_FRA1(avjinv)
00263       ,CHFt_CONST_INT(panel)
00264       ,CHFt_BOX(bx)
00265       ,CHFt_CONST_INT(dir)
00266       ,CHFt_CONST_REALVECT(dx)
00267       ,CHFt_CONST_INTVECT(base) );
00268 }
00269 #endif  // GUARDCUBEDSPHERE2DAVGJINV 
00270 
00271 #ifndef GUARDCUBEDSPHERE2DPOINTJ 
00272 #define GUARDCUBEDSPHERE2DPOINTJ 
00273 // Prototype for Fortran procedure cubedsphere2dpointj ...
00274 //
00275 void FORTRAN_NAME( CUBEDSPHERE2DPOINTJ ,cubedsphere2dpointj )(
00276       CHFp_FRA1(pointj)
00277       ,CHFp_CONST_FRA(xi)
00278       ,CHFp_CONST_INT(panel)
00279       ,CHFp_BOX(bx)
00280       ,CHFp_CONST_REALVECT(dx)
00281       ,CHFp_CONST_INTVECT(base) );
00282 
00283 #define FORT_CUBEDSPHERE2DPOINTJ FORTRAN_NAME( inlineCUBEDSPHERE2DPOINTJ, inlineCUBEDSPHERE2DPOINTJ)
00284 #define FORTNT_CUBEDSPHERE2DPOINTJ FORTRAN_NAME( CUBEDSPHERE2DPOINTJ, cubedsphere2dpointj)
00285 
00286 inline void FORTRAN_NAME(inlineCUBEDSPHERE2DPOINTJ, inlineCUBEDSPHERE2DPOINTJ)(
00287       CHFp_FRA1(pointj)
00288       ,CHFp_CONST_FRA(xi)
00289       ,CHFp_CONST_INT(panel)
00290       ,CHFp_BOX(bx)
00291       ,CHFp_CONST_REALVECT(dx)
00292       ,CHFp_CONST_INTVECT(base) )
00293 {
00294  CH_TIMELEAF("FORT_CUBEDSPHERE2DPOINTJ");
00295  FORTRAN_NAME( CUBEDSPHERE2DPOINTJ ,cubedsphere2dpointj )(
00296       CHFt_FRA1(pointj)
00297       ,CHFt_CONST_FRA(xi)
00298       ,CHFt_CONST_INT(panel)
00299       ,CHFt_BOX(bx)
00300       ,CHFt_CONST_REALVECT(dx)
00301       ,CHFt_CONST_INTVECT(base) );
00302 }
00303 #endif  // GUARDCUBEDSPHERE2DPOINTJ 
00304 
00305 #ifndef GUARDCUBEDSPHERE2DVECTORREALTOMAPPEDCENTER 
00306 #define GUARDCUBEDSPHERE2DVECTORREALTOMAPPEDCENTER 
00307 // Prototype for Fortran procedure cubedsphere2dvectorrealtomappedcenter ...
00308 //
00309 void FORTRAN_NAME( CUBEDSPHERE2DVECTORREALTOMAPPEDCENTER ,cubedsphere2dvectorrealtomappedcenter )(
00310       CHFp_FRA(vec)
00311       ,CHFp_CONST_INT(panel)
00312       ,CHFp_BOX(bx)
00313       ,CHFp_CONST_REALVECT(dx)
00314       ,CHFp_CONST_INTVECT(base) );
00315 
00316 #define FORT_CUBEDSPHERE2DVECTORREALTOMAPPEDCENTER FORTRAN_NAME( inlineCUBEDSPHERE2DVECTORREALTOMAPPEDCENTER, inlineCUBEDSPHERE2DVECTORREALTOMAPPEDCENTER)
00317 #define FORTNT_CUBEDSPHERE2DVECTORREALTOMAPPEDCENTER FORTRAN_NAME( CUBEDSPHERE2DVECTORREALTOMAPPEDCENTER, cubedsphere2dvectorrealtomappedcenter)
00318 
00319 inline void FORTRAN_NAME(inlineCUBEDSPHERE2DVECTORREALTOMAPPEDCENTER, inlineCUBEDSPHERE2DVECTORREALTOMAPPEDCENTER)(
00320       CHFp_FRA(vec)
00321       ,CHFp_CONST_INT(panel)
00322       ,CHFp_BOX(bx)
00323       ,CHFp_CONST_REALVECT(dx)
00324       ,CHFp_CONST_INTVECT(base) )
00325 {
00326  CH_TIMELEAF("FORT_CUBEDSPHERE2DVECTORREALTOMAPPEDCENTER");
00327  FORTRAN_NAME( CUBEDSPHERE2DVECTORREALTOMAPPEDCENTER ,cubedsphere2dvectorrealtomappedcenter )(
00328       CHFt_FRA(vec)
00329       ,CHFt_CONST_INT(panel)
00330       ,CHFt_BOX(bx)
00331       ,CHFt_CONST_REALVECT(dx)
00332       ,CHFt_CONST_INTVECT(base) );
00333 }
00334 #endif  // GUARDCUBEDSPHERE2DVECTORREALTOMAPPEDCENTER 
00335 
00336 #ifndef GUARDCUBEDSPHERE2DEQUIANGULARTOCARTESIAN 
00337 #define GUARDCUBEDSPHERE2DEQUIANGULARTOCARTESIAN 
00338 // Prototype for Fortran procedure cubedsphere2dequiangulartocartesian ...
00339 //
00340 void FORTRAN_NAME( CUBEDSPHERE2DEQUIANGULARTOCARTESIAN ,cubedsphere2dequiangulartocartesian )(
00341       CHFp_R1D(xyz,ixyzhi0)
00342       ,CHFp_CONST_REALVECT(xi)
00343       ,CHFp_CONST_INT(panel) );
00344 
00345 #define FORT_CUBEDSPHERE2DEQUIANGULARTOCARTESIAN FORTRAN_NAME( inlineCUBEDSPHERE2DEQUIANGULARTOCARTESIAN, inlineCUBEDSPHERE2DEQUIANGULARTOCARTESIAN)
00346 #define FORTNT_CUBEDSPHERE2DEQUIANGULARTOCARTESIAN FORTRAN_NAME( CUBEDSPHERE2DEQUIANGULARTOCARTESIAN, cubedsphere2dequiangulartocartesian)
00347 
00348 inline void FORTRAN_NAME(inlineCUBEDSPHERE2DEQUIANGULARTOCARTESIAN, inlineCUBEDSPHERE2DEQUIANGULARTOCARTESIAN)(
00349       CHFp_R1D(xyz,ixyzhi0)
00350       ,CHFp_CONST_REALVECT(xi)
00351       ,CHFp_CONST_INT(panel) )
00352 {
00353  CH_TIMELEAF("FORT_CUBEDSPHERE2DEQUIANGULARTOCARTESIAN");
00354  FORTRAN_NAME( CUBEDSPHERE2DEQUIANGULARTOCARTESIAN ,cubedsphere2dequiangulartocartesian )(
00355       CHFt_R1D(xyz,ixyzhi0)
00356       ,CHFt_CONST_REALVECT(xi)
00357       ,CHFt_CONST_INT(panel) );
00358 }
00359 #endif  // GUARDCUBEDSPHERE2DEQUIANGULARTOCARTESIAN 
00360 
00361 #ifndef GUARDCUBEDSPHERE2DEQUIANGULARTOLONLAT 
00362 #define GUARDCUBEDSPHERE2DEQUIANGULARTOLONLAT 
00363 // Prototype for Fortran procedure cubedsphere2dequiangulartolonlat ...
00364 //
00365 void FORTRAN_NAME( CUBEDSPHERE2DEQUIANGULARTOLONLAT ,cubedsphere2dequiangulartolonlat )(
00366       CHFp_REALVECT(lonlat)
00367       ,CHFp_CONST_REALVECT(xi)
00368       ,CHFp_CONST_INT(panel)
00369       ,CHFp_CONST_REAL(eps) );
00370 
00371 #define FORT_CUBEDSPHERE2DEQUIANGULARTOLONLAT FORTRAN_NAME( inlineCUBEDSPHERE2DEQUIANGULARTOLONLAT, inlineCUBEDSPHERE2DEQUIANGULARTOLONLAT)
00372 #define FORTNT_CUBEDSPHERE2DEQUIANGULARTOLONLAT FORTRAN_NAME( CUBEDSPHERE2DEQUIANGULARTOLONLAT, cubedsphere2dequiangulartolonlat)
00373 
00374 inline void FORTRAN_NAME(inlineCUBEDSPHERE2DEQUIANGULARTOLONLAT, inlineCUBEDSPHERE2DEQUIANGULARTOLONLAT)(
00375       CHFp_REALVECT(lonlat)
00376       ,CHFp_CONST_REALVECT(xi)
00377       ,CHFp_CONST_INT(panel)
00378       ,CHFp_CONST_REAL(eps) )
00379 {
00380  CH_TIMELEAF("FORT_CUBEDSPHERE2DEQUIANGULARTOLONLAT");
00381  FORTRAN_NAME( CUBEDSPHERE2DEQUIANGULARTOLONLAT ,cubedsphere2dequiangulartolonlat )(
00382       CHFt_REALVECT(lonlat)
00383       ,CHFt_CONST_REALVECT(xi)
00384       ,CHFt_CONST_INT(panel)
00385       ,CHFt_CONST_REAL(eps) );
00386 }
00387 #endif  // GUARDCUBEDSPHERE2DEQUIANGULARTOLONLAT 
00388 
00389 #ifndef GUARDCUBEDSPHERE2DFABEQUIANGULARTOCARTESIAN 
00390 #define GUARDCUBEDSPHERE2DFABEQUIANGULARTOCARTESIAN 
00391 // Prototype for Fortran procedure cubedsphere2dfabequiangulartocartesian ...
00392 //
00393 void FORTRAN_NAME( CUBEDSPHERE2DFABEQUIANGULARTOCARTESIAN ,cubedsphere2dfabequiangulartocartesian )(
00394       CHFp_FRA(xyz)
00395       ,CHFp_CONST_FRA(xi)
00396       ,CHFp_CONST_INT(panel) );
00397 
00398 #define FORT_CUBEDSPHERE2DFABEQUIANGULARTOCARTESIAN FORTRAN_NAME( inlineCUBEDSPHERE2DFABEQUIANGULARTOCARTESIAN, inlineCUBEDSPHERE2DFABEQUIANGULARTOCARTESIAN)
00399 #define FORTNT_CUBEDSPHERE2DFABEQUIANGULARTOCARTESIAN FORTRAN_NAME( CUBEDSPHERE2DFABEQUIANGULARTOCARTESIAN, cubedsphere2dfabequiangulartocartesian)
00400 
00401 inline void FORTRAN_NAME(inlineCUBEDSPHERE2DFABEQUIANGULARTOCARTESIAN, inlineCUBEDSPHERE2DFABEQUIANGULARTOCARTESIAN)(
00402       CHFp_FRA(xyz)
00403       ,CHFp_CONST_FRA(xi)
00404       ,CHFp_CONST_INT(panel) )
00405 {
00406  CH_TIMELEAF("FORT_CUBEDSPHERE2DFABEQUIANGULARTOCARTESIAN");
00407  FORTRAN_NAME( CUBEDSPHERE2DFABEQUIANGULARTOCARTESIAN ,cubedsphere2dfabequiangulartocartesian )(
00408       CHFt_FRA(xyz)
00409       ,CHFt_CONST_FRA(xi)
00410       ,CHFt_CONST_INT(panel) );
00411 }
00412 #endif  // GUARDCUBEDSPHERE2DFABEQUIANGULARTOCARTESIAN 
00413 
00414 #ifndef GUARDCUBEDSPHERE2DFABEQUIANGULARTOLONLAT 
00415 #define GUARDCUBEDSPHERE2DFABEQUIANGULARTOLONLAT 
00416 // Prototype for Fortran procedure cubedsphere2dfabequiangulartolonlat ...
00417 //
00418 void FORTRAN_NAME( CUBEDSPHERE2DFABEQUIANGULARTOLONLAT ,cubedsphere2dfabequiangulartolonlat )(
00419       CHFp_FRA(lonlat)
00420       ,CHFp_CONST_FRA(xi)
00421       ,CHFp_CONST_INT(panel)
00422       ,CHFp_CONST_REAL(eps) );
00423 
00424 #define FORT_CUBEDSPHERE2DFABEQUIANGULARTOLONLAT FORTRAN_NAME( inlineCUBEDSPHERE2DFABEQUIANGULARTOLONLAT, inlineCUBEDSPHERE2DFABEQUIANGULARTOLONLAT)
00425 #define FORTNT_CUBEDSPHERE2DFABEQUIANGULARTOLONLAT FORTRAN_NAME( CUBEDSPHERE2DFABEQUIANGULARTOLONLAT, cubedsphere2dfabequiangulartolonlat)
00426 
00427 inline void FORTRAN_NAME(inlineCUBEDSPHERE2DFABEQUIANGULARTOLONLAT, inlineCUBEDSPHERE2DFABEQUIANGULARTOLONLAT)(
00428       CHFp_FRA(lonlat)
00429       ,CHFp_CONST_FRA(xi)
00430       ,CHFp_CONST_INT(panel)
00431       ,CHFp_CONST_REAL(eps) )
00432 {
00433  CH_TIMELEAF("FORT_CUBEDSPHERE2DFABEQUIANGULARTOLONLAT");
00434  FORTRAN_NAME( CUBEDSPHERE2DFABEQUIANGULARTOLONLAT ,cubedsphere2dfabequiangulartolonlat )(
00435       CHFt_FRA(lonlat)
00436       ,CHFt_CONST_FRA(xi)
00437       ,CHFt_CONST_INT(panel)
00438       ,CHFt_CONST_REAL(eps) );
00439 }
00440 #endif  // GUARDCUBEDSPHERE2DFABEQUIANGULARTOLONLAT 
00441 
00442 #ifndef GUARDCUBEDSPHERE2DFABVECTORLATLONTOEQUIANGULAR 
00443 #define GUARDCUBEDSPHERE2DFABVECTORLATLONTOEQUIANGULAR 
00444 // Prototype for Fortran procedure cubedsphere2dfabvectorlatlontoequiangular ...
00445 //
00446 void FORTRAN_NAME( CUBEDSPHERE2DFABVECTORLATLONTOEQUIANGULAR ,cubedsphere2dfabvectorlatlontoequiangular )(
00447       CHFp_CONST_FRA(xi)
00448       ,CHFp_CONST_FRA(vecRLL)
00449       ,CHFp_FRA(vecCS)
00450       ,CHFp_CONST_INT(panel) );
00451 
00452 #define FORT_CUBEDSPHERE2DFABVECTORLATLONTOEQUIANGULAR FORTRAN_NAME( inlineCUBEDSPHERE2DFABVECTORLATLONTOEQUIANGULAR, inlineCUBEDSPHERE2DFABVECTORLATLONTOEQUIANGULAR)
00453 #define FORTNT_CUBEDSPHERE2DFABVECTORLATLONTOEQUIANGULAR FORTRAN_NAME( CUBEDSPHERE2DFABVECTORLATLONTOEQUIANGULAR, cubedsphere2dfabvectorlatlontoequiangular)
00454 
00455 inline void FORTRAN_NAME(inlineCUBEDSPHERE2DFABVECTORLATLONTOEQUIANGULAR, inlineCUBEDSPHERE2DFABVECTORLATLONTOEQUIANGULAR)(
00456       CHFp_CONST_FRA(xi)
00457       ,CHFp_CONST_FRA(vecRLL)
00458       ,CHFp_FRA(vecCS)
00459       ,CHFp_CONST_INT(panel) )
00460 {
00461  CH_TIMELEAF("FORT_CUBEDSPHERE2DFABVECTORLATLONTOEQUIANGULAR");
00462  FORTRAN_NAME( CUBEDSPHERE2DFABVECTORLATLONTOEQUIANGULAR ,cubedsphere2dfabvectorlatlontoequiangular )(
00463       CHFt_CONST_FRA(xi)
00464       ,CHFt_CONST_FRA(vecRLL)
00465       ,CHFt_FRA(vecCS)
00466       ,CHFt_CONST_INT(panel) );
00467 }
00468 #endif  // GUARDCUBEDSPHERE2DFABVECTORLATLONTOEQUIANGULAR 
00469 
00470 #ifndef GUARDCUBEDSPHERE2DFABVECTOREQUIANGULARTOLATLON 
00471 #define GUARDCUBEDSPHERE2DFABVECTOREQUIANGULARTOLATLON 
00472 // Prototype for Fortran procedure cubedsphere2dfabvectorequiangulartolatlon ...
00473 //
00474 void FORTRAN_NAME( CUBEDSPHERE2DFABVECTOREQUIANGULARTOLATLON ,cubedsphere2dfabvectorequiangulartolatlon )(
00475       CHFp_CONST_FRA(xi)
00476       ,CHFp_CONST_FRA(vecCS)
00477       ,CHFp_FRA(vecRLL)
00478       ,CHFp_CONST_INT(panel) );
00479 
00480 #define FORT_CUBEDSPHERE2DFABVECTOREQUIANGULARTOLATLON FORTRAN_NAME( inlineCUBEDSPHERE2DFABVECTOREQUIANGULARTOLATLON, inlineCUBEDSPHERE2DFABVECTOREQUIANGULARTOLATLON)
00481 #define FORTNT_CUBEDSPHERE2DFABVECTOREQUIANGULARTOLATLON FORTRAN_NAME( CUBEDSPHERE2DFABVECTOREQUIANGULARTOLATLON, cubedsphere2dfabvectorequiangulartolatlon)
00482 
00483 inline void FORTRAN_NAME(inlineCUBEDSPHERE2DFABVECTOREQUIANGULARTOLATLON, inlineCUBEDSPHERE2DFABVECTOREQUIANGULARTOLATLON)(
00484       CHFp_CONST_FRA(xi)
00485       ,CHFp_CONST_FRA(vecCS)
00486       ,CHFp_FRA(vecRLL)
00487       ,CHFp_CONST_INT(panel) )
00488 {
00489  CH_TIMELEAF("FORT_CUBEDSPHERE2DFABVECTOREQUIANGULARTOLATLON");
00490  FORTRAN_NAME( CUBEDSPHERE2DFABVECTOREQUIANGULARTOLATLON ,cubedsphere2dfabvectorequiangulartolatlon )(
00491       CHFt_CONST_FRA(xi)
00492       ,CHFt_CONST_FRA(vecCS)
00493       ,CHFt_FRA(vecRLL)
00494       ,CHFt_CONST_INT(panel) );
00495 }
00496 #endif  // GUARDCUBEDSPHERE2DFABVECTOREQUIANGULARTOLATLON 
00497 
00498 #ifndef GUARDORTHONORMALIZE 
00499 #define GUARDORTHONORMALIZE 
00500 // Prototype for Fortran procedure orthonormalize ...
00501 //
00502 void FORTRAN_NAME( ORTHONORMALIZE ,orthonormalize )(
00503       CHFp_CONST_FRA(xi)
00504       ,CHFp_CONST_FRA(csVec)
00505       ,CHFp_FRA(onVec)
00506       ,CHFp_CONST_INT(idir)
00507       ,CHFp_CONST_INTVECT(csComp)
00508       ,CHFp_CONST_INTVECT(onComp) );
00509 
00510 #define FORT_ORTHONORMALIZE FORTRAN_NAME( inlineORTHONORMALIZE, inlineORTHONORMALIZE)
00511 #define FORTNT_ORTHONORMALIZE FORTRAN_NAME( ORTHONORMALIZE, orthonormalize)
00512 
00513 inline void FORTRAN_NAME(inlineORTHONORMALIZE, inlineORTHONORMALIZE)(
00514       CHFp_CONST_FRA(xi)
00515       ,CHFp_CONST_FRA(csVec)
00516       ,CHFp_FRA(onVec)
00517       ,CHFp_CONST_INT(idir)
00518       ,CHFp_CONST_INTVECT(csComp)
00519       ,CHFp_CONST_INTVECT(onComp) )
00520 {
00521  CH_TIMELEAF("FORT_ORTHONORMALIZE");
00522  FORTRAN_NAME( ORTHONORMALIZE ,orthonormalize )(
00523       CHFt_CONST_FRA(xi)
00524       ,CHFt_CONST_FRA(csVec)
00525       ,CHFt_FRA(onVec)
00526       ,CHFt_CONST_INT(idir)
00527       ,CHFt_CONST_INTVECT(csComp)
00528       ,CHFt_CONST_INTVECT(onComp) );
00529 }
00530 #endif  // GUARDORTHONORMALIZE 
00531 
00532 #ifndef GUARDDEORTHONORMALIZE 
00533 #define GUARDDEORTHONORMALIZE 
00534 // Prototype for Fortran procedure deorthonormalize ...
00535 //
00536 void FORTRAN_NAME( DEORTHONORMALIZE ,deorthonormalize )(
00537       CHFp_CONST_FRA(xi)
00538       ,CHFp_CONST_FRA(onVec)
00539       ,CHFp_FRA(csVec)
00540       ,CHFp_CONST_INT(idir)
00541       ,CHFp_CONST_INTVECT(onComp)
00542       ,CHFp_CONST_INTVECT(csComp) );
00543 
00544 #define FORT_DEORTHONORMALIZE FORTRAN_NAME( inlineDEORTHONORMALIZE, inlineDEORTHONORMALIZE)
00545 #define FORTNT_DEORTHONORMALIZE FORTRAN_NAME( DEORTHONORMALIZE, deorthonormalize)
00546 
00547 inline void FORTRAN_NAME(inlineDEORTHONORMALIZE, inlineDEORTHONORMALIZE)(
00548       CHFp_CONST_FRA(xi)
00549       ,CHFp_CONST_FRA(onVec)
00550       ,CHFp_FRA(csVec)
00551       ,CHFp_CONST_INT(idir)
00552       ,CHFp_CONST_INTVECT(onComp)
00553       ,CHFp_CONST_INTVECT(csComp) )
00554 {
00555  CH_TIMELEAF("FORT_DEORTHONORMALIZE");
00556  FORTRAN_NAME( DEORTHONORMALIZE ,deorthonormalize )(
00557       CHFt_CONST_FRA(xi)
00558       ,CHFt_CONST_FRA(onVec)
00559       ,CHFt_FRA(csVec)
00560       ,CHFt_CONST_INT(idir)
00561       ,CHFt_CONST_INTVECT(onComp)
00562       ,CHFt_CONST_INTVECT(csComp) );
00563 }
00564 #endif  // GUARDDEORTHONORMALIZE 
00565 
00566 #ifndef GUARDORTHONORMALIZINGMATRIX 
00567 #define GUARDORTHONORMALIZINGMATRIX 
00568 // Prototype for Fortran procedure orthonormalizingmatrix ...
00569 //
00570 void FORTRAN_NAME( ORTHONORMALIZINGMATRIX ,orthonormalizingmatrix )(
00571       CHFp_CONST_FRA(xi)
00572       ,CHFp_FRA(mat)
00573       ,CHFp_BOX(bx)
00574       ,CHFp_CONST_INT(idir) );
00575 
00576 #define FORT_ORTHONORMALIZINGMATRIX FORTRAN_NAME( inlineORTHONORMALIZINGMATRIX, inlineORTHONORMALIZINGMATRIX)
00577 #define FORTNT_ORTHONORMALIZINGMATRIX FORTRAN_NAME( ORTHONORMALIZINGMATRIX, orthonormalizingmatrix)
00578 
00579 inline void FORTRAN_NAME(inlineORTHONORMALIZINGMATRIX, inlineORTHONORMALIZINGMATRIX)(
00580       CHFp_CONST_FRA(xi)
00581       ,CHFp_FRA(mat)
00582       ,CHFp_BOX(bx)
00583       ,CHFp_CONST_INT(idir) )
00584 {
00585  CH_TIMELEAF("FORT_ORTHONORMALIZINGMATRIX");
00586  FORTRAN_NAME( ORTHONORMALIZINGMATRIX ,orthonormalizingmatrix )(
00587       CHFt_CONST_FRA(xi)
00588       ,CHFt_FRA(mat)
00589       ,CHFt_BOX(bx)
00590       ,CHFt_CONST_INT(idir) );
00591 }
00592 #endif  // GUARDORTHONORMALIZINGMATRIX 
00593 
00594 #ifndef GUARDDEORTHONORMALIZINGMATRIX 
00595 #define GUARDDEORTHONORMALIZINGMATRIX 
00596 // Prototype for Fortran procedure deorthonormalizingmatrix ...
00597 //
00598 void FORTRAN_NAME( DEORTHONORMALIZINGMATRIX ,deorthonormalizingmatrix )(
00599       CHFp_CONST_FRA(xi)
00600       ,CHFp_FRA(mat)
00601       ,CHFp_BOX(bx)
00602       ,CHFp_CONST_INT(idir) );
00603 
00604 #define FORT_DEORTHONORMALIZINGMATRIX FORTRAN_NAME( inlineDEORTHONORMALIZINGMATRIX, inlineDEORTHONORMALIZINGMATRIX)
00605 #define FORTNT_DEORTHONORMALIZINGMATRIX FORTRAN_NAME( DEORTHONORMALIZINGMATRIX, deorthonormalizingmatrix)
00606 
00607 inline void FORTRAN_NAME(inlineDEORTHONORMALIZINGMATRIX, inlineDEORTHONORMALIZINGMATRIX)(
00608       CHFp_CONST_FRA(xi)
00609       ,CHFp_FRA(mat)
00610       ,CHFp_BOX(bx)
00611       ,CHFp_CONST_INT(idir) )
00612 {
00613  CH_TIMELEAF("FORT_DEORTHONORMALIZINGMATRIX");
00614  FORTRAN_NAME( DEORTHONORMALIZINGMATRIX ,deorthonormalizingmatrix )(
00615       CHFt_CONST_FRA(xi)
00616       ,CHFt_FRA(mat)
00617       ,CHFt_BOX(bx)
00618       ,CHFt_CONST_INT(idir) );
00619 }
00620 #endif  // GUARDDEORTHONORMALIZINGMATRIX 
00621 
00622 #ifndef GUARDCUBEDSPHERE2DCONTRAVARIANTMETRIC 
00623 #define GUARDCUBEDSPHERE2DCONTRAVARIANTMETRIC 
00624 // Prototype for Fortran procedure cubedsphere2dcontravariantmetric ...
00625 //
00626 void FORTRAN_NAME( CUBEDSPHERE2DCONTRAVARIANTMETRIC ,cubedsphere2dcontravariantmetric )(
00627       CHFp_CONST_FRA(xi)
00628       ,CHFp_FRA(metric)
00629       ,CHFp_CONST_INT(idir) );
00630 
00631 #define FORT_CUBEDSPHERE2DCONTRAVARIANTMETRIC FORTRAN_NAME( inlineCUBEDSPHERE2DCONTRAVARIANTMETRIC, inlineCUBEDSPHERE2DCONTRAVARIANTMETRIC)
00632 #define FORTNT_CUBEDSPHERE2DCONTRAVARIANTMETRIC FORTRAN_NAME( CUBEDSPHERE2DCONTRAVARIANTMETRIC, cubedsphere2dcontravariantmetric)
00633 
00634 inline void FORTRAN_NAME(inlineCUBEDSPHERE2DCONTRAVARIANTMETRIC, inlineCUBEDSPHERE2DCONTRAVARIANTMETRIC)(
00635       CHFp_CONST_FRA(xi)
00636       ,CHFp_FRA(metric)
00637       ,CHFp_CONST_INT(idir) )
00638 {
00639  CH_TIMELEAF("FORT_CUBEDSPHERE2DCONTRAVARIANTMETRIC");
00640  FORTRAN_NAME( CUBEDSPHERE2DCONTRAVARIANTMETRIC ,cubedsphere2dcontravariantmetric )(
00641       CHFt_CONST_FRA(xi)
00642       ,CHFt_FRA(metric)
00643       ,CHFt_CONST_INT(idir) );
00644 }
00645 #endif  // GUARDCUBEDSPHERE2DCONTRAVARIANTMETRIC 
00646 
00647 #ifndef GUARDCUBEDSPHERE2DDOTPROD 
00648 #define GUARDCUBEDSPHERE2DDOTPROD 
00649 // Prototype for Fortran procedure cubedsphere2ddotprod ...
00650 //
00651 void FORTRAN_NAME( CUBEDSPHERE2DDOTPROD ,cubedsphere2ddotprod )(
00652       CHFp_CONST_FRA(xi)
00653       ,CHFp_CONST_FRA(u)
00654       ,CHFp_CONST_FRA(v)
00655       ,CHFp_FRA1(prod)
00656       ,CHFp_BOX(bx) );
00657 
00658 #define FORT_CUBEDSPHERE2DDOTPROD FORTRAN_NAME( inlineCUBEDSPHERE2DDOTPROD, inlineCUBEDSPHERE2DDOTPROD)
00659 #define FORTNT_CUBEDSPHERE2DDOTPROD FORTRAN_NAME( CUBEDSPHERE2DDOTPROD, cubedsphere2ddotprod)
00660 
00661 inline void FORTRAN_NAME(inlineCUBEDSPHERE2DDOTPROD, inlineCUBEDSPHERE2DDOTPROD)(
00662       CHFp_CONST_FRA(xi)
00663       ,CHFp_CONST_FRA(u)
00664       ,CHFp_CONST_FRA(v)
00665       ,CHFp_FRA1(prod)
00666       ,CHFp_BOX(bx) )
00667 {
00668  CH_TIMELEAF("FORT_CUBEDSPHERE2DDOTPROD");
00669  FORTRAN_NAME( CUBEDSPHERE2DDOTPROD ,cubedsphere2ddotprod )(
00670       CHFt_CONST_FRA(xi)
00671       ,CHFt_CONST_FRA(u)
00672       ,CHFt_CONST_FRA(v)
00673       ,CHFt_FRA1(prod)
00674       ,CHFt_BOX(bx) );
00675 }
00676 #endif  // GUARDCUBEDSPHERE2DDOTPROD 
00677 
00678 #ifndef GUARDCUBEDSPHERE2DCURLR 
00679 #define GUARDCUBEDSPHERE2DCURLR 
00680 // Prototype for Fortran procedure cubedsphere2dcurlr ...
00681 //
00682 void FORTRAN_NAME( CUBEDSPHERE2DCURLR ,cubedsphere2dcurlr )(
00683       CHFp_CONST_FRA(xi)
00684       ,CHFp_CONST_FRA(deriv0)
00685       ,CHFp_CONST_FRA(deriv1)
00686       ,CHFp_FRA1(curlr)
00687       ,CHFp_BOX(bx) );
00688 
00689 #define FORT_CUBEDSPHERE2DCURLR FORTRAN_NAME( inlineCUBEDSPHERE2DCURLR, inlineCUBEDSPHERE2DCURLR)
00690 #define FORTNT_CUBEDSPHERE2DCURLR FORTRAN_NAME( CUBEDSPHERE2DCURLR, cubedsphere2dcurlr)
00691 
00692 inline void FORTRAN_NAME(inlineCUBEDSPHERE2DCURLR, inlineCUBEDSPHERE2DCURLR)(
00693       CHFp_CONST_FRA(xi)
00694       ,CHFp_CONST_FRA(deriv0)
00695       ,CHFp_CONST_FRA(deriv1)
00696       ,CHFp_FRA1(curlr)
00697       ,CHFp_BOX(bx) )
00698 {
00699  CH_TIMELEAF("FORT_CUBEDSPHERE2DCURLR");
00700  FORTRAN_NAME( CUBEDSPHERE2DCURLR ,cubedsphere2dcurlr )(
00701       CHFt_CONST_FRA(xi)
00702       ,CHFt_CONST_FRA(deriv0)
00703       ,CHFt_CONST_FRA(deriv1)
00704       ,CHFt_FRA1(curlr)
00705       ,CHFt_BOX(bx) );
00706 }
00707 #endif  // GUARDCUBEDSPHERE2DCURLR 
00708 
00709 #ifndef GUARDCUBEDSPHERE2DPARTIALS 
00710 #define GUARDCUBEDSPHERE2DPARTIALS 
00711 // Prototype for Fortran procedure cubedsphere2dpartials ...
00712 //
00713 void FORTRAN_NAME( CUBEDSPHERE2DPARTIALS ,cubedsphere2dpartials )(
00714       CHFp_CONST_FRA(lonlat)
00715       ,CHFp_FRA(derivs)
00716       ,CHFp_CONST_INT(panel)
00717       ,CHFp_BOX(bx) );
00718 
00719 #define FORT_CUBEDSPHERE2DPARTIALS FORTRAN_NAME( inlineCUBEDSPHERE2DPARTIALS, inlineCUBEDSPHERE2DPARTIALS)
00720 #define FORTNT_CUBEDSPHERE2DPARTIALS FORTRAN_NAME( CUBEDSPHERE2DPARTIALS, cubedsphere2dpartials)
00721 
00722 inline void FORTRAN_NAME(inlineCUBEDSPHERE2DPARTIALS, inlineCUBEDSPHERE2DPARTIALS)(
00723       CHFp_CONST_FRA(lonlat)
00724       ,CHFp_FRA(derivs)
00725       ,CHFp_CONST_INT(panel)
00726       ,CHFp_BOX(bx) )
00727 {
00728  CH_TIMELEAF("FORT_CUBEDSPHERE2DPARTIALS");
00729  FORTRAN_NAME( CUBEDSPHERE2DPARTIALS ,cubedsphere2dpartials )(
00730       CHFt_CONST_FRA(lonlat)
00731       ,CHFt_FRA(derivs)
00732       ,CHFt_CONST_INT(panel)
00733       ,CHFt_BOX(bx) );
00734 }
00735 #endif  // GUARDCUBEDSPHERE2DPARTIALS 
00736 
00737 #ifndef GUARDCUBEDSPHERE2DMAPPEDTOCARTESIAN 
00738 #define GUARDCUBEDSPHERE2DMAPPEDTOCARTESIAN 
00739 // Prototype for Fortran procedure cubedsphere2dmappedtocartesian ...
00740 //
00741 void FORTRAN_NAME( CUBEDSPHERE2DMAPPEDTOCARTESIAN ,cubedsphere2dmappedtocartesian )(
00742       CHFp_REAL(x)
00743       ,CHFp_REAL(y)
00744       ,CHFp_REAL(z)
00745       ,CHFp_CONST_REALVECT(xi)
00746       ,CHFp_CONST_INT(panel) );
00747 
00748 #define FORT_CUBEDSPHERE2DMAPPEDTOCARTESIAN FORTRAN_NAME( inlineCUBEDSPHERE2DMAPPEDTOCARTESIAN, inlineCUBEDSPHERE2DMAPPEDTOCARTESIAN)
00749 #define FORTNT_CUBEDSPHERE2DMAPPEDTOCARTESIAN FORTRAN_NAME( CUBEDSPHERE2DMAPPEDTOCARTESIAN, cubedsphere2dmappedtocartesian)
00750 
00751 inline void FORTRAN_NAME(inlineCUBEDSPHERE2DMAPPEDTOCARTESIAN, inlineCUBEDSPHERE2DMAPPEDTOCARTESIAN)(
00752       CHFp_REAL(x)
00753       ,CHFp_REAL(y)
00754       ,CHFp_REAL(z)
00755       ,CHFp_CONST_REALVECT(xi)
00756       ,CHFp_CONST_INT(panel) )
00757 {
00758  CH_TIMELEAF("FORT_CUBEDSPHERE2DMAPPEDTOCARTESIAN");
00759  FORTRAN_NAME( CUBEDSPHERE2DMAPPEDTOCARTESIAN ,cubedsphere2dmappedtocartesian )(
00760       CHFt_REAL(x)
00761       ,CHFt_REAL(y)
00762       ,CHFt_REAL(z)
00763       ,CHFt_CONST_REALVECT(xi)
00764       ,CHFt_CONST_INT(panel) );
00765 }
00766 #endif  // GUARDCUBEDSPHERE2DMAPPEDTOCARTESIAN 
00767 
00768 #ifndef GUARDCUBEDSPHERE2DCARTESIANTOMAPPED 
00769 #define GUARDCUBEDSPHERE2DCARTESIANTOMAPPED 
00770 // Prototype for Fortran procedure cubedsphere2dcartesiantomapped ...
00771 //
00772 void FORTRAN_NAME( CUBEDSPHERE2DCARTESIANTOMAPPED ,cubedsphere2dcartesiantomapped )(
00773       CHFp_REALVECT(xi)
00774       ,CHFp_CONST_REAL(x)
00775       ,CHFp_CONST_REAL(y)
00776       ,CHFp_CONST_REAL(z)
00777       ,CHFp_CONST_INT(panel) );
00778 
00779 #define FORT_CUBEDSPHERE2DCARTESIANTOMAPPED FORTRAN_NAME( inlineCUBEDSPHERE2DCARTESIANTOMAPPED, inlineCUBEDSPHERE2DCARTESIANTOMAPPED)
00780 #define FORTNT_CUBEDSPHERE2DCARTESIANTOMAPPED FORTRAN_NAME( CUBEDSPHERE2DCARTESIANTOMAPPED, cubedsphere2dcartesiantomapped)
00781 
00782 inline void FORTRAN_NAME(inlineCUBEDSPHERE2DCARTESIANTOMAPPED, inlineCUBEDSPHERE2DCARTESIANTOMAPPED)(
00783       CHFp_REALVECT(xi)
00784       ,CHFp_CONST_REAL(x)
00785       ,CHFp_CONST_REAL(y)
00786       ,CHFp_CONST_REAL(z)
00787       ,CHFp_CONST_INT(panel) )
00788 {
00789  CH_TIMELEAF("FORT_CUBEDSPHERE2DCARTESIANTOMAPPED");
00790  FORTRAN_NAME( CUBEDSPHERE2DCARTESIANTOMAPPED ,cubedsphere2dcartesiantomapped )(
00791       CHFt_REALVECT(xi)
00792       ,CHFt_CONST_REAL(x)
00793       ,CHFt_CONST_REAL(y)
00794       ,CHFt_CONST_REAL(z)
00795       ,CHFt_CONST_INT(panel) );
00796 }
00797 #endif  // GUARDCUBEDSPHERE2DCARTESIANTOMAPPED 
00798 
00799 #ifndef GUARDCUBEDSPHERE2DDISPLACEMENTS 
00800 #define GUARDCUBEDSPHERE2DDISPLACEMENTS 
00801 // Prototype for Fortran procedure cubedsphere2ddisplacements ...
00802 //
00803 void FORTRAN_NAME( CUBEDSPHERE2DDISPLACEMENTS ,cubedsphere2ddisplacements )(
00804       CHFp_VR(disp)
00805       ,CHFp_CONST_VR(dCoord)
00806       ,CHFp_CONST_VI(dPanel)
00807       ,CHFp_CONST_REALVECT(sCoord)
00808       ,CHFp_CONST_INT(sPanel) );
00809 
00810 #define FORT_CUBEDSPHERE2DDISPLACEMENTS FORTRAN_NAME( inlineCUBEDSPHERE2DDISPLACEMENTS, inlineCUBEDSPHERE2DDISPLACEMENTS)
00811 #define FORTNT_CUBEDSPHERE2DDISPLACEMENTS FORTRAN_NAME( CUBEDSPHERE2DDISPLACEMENTS, cubedsphere2ddisplacements)
00812 
00813 inline void FORTRAN_NAME(inlineCUBEDSPHERE2DDISPLACEMENTS, inlineCUBEDSPHERE2DDISPLACEMENTS)(
00814       CHFp_VR(disp)
00815       ,CHFp_CONST_VR(dCoord)
00816       ,CHFp_CONST_VI(dPanel)
00817       ,CHFp_CONST_REALVECT(sCoord)
00818       ,CHFp_CONST_INT(sPanel) )
00819 {
00820  CH_TIMELEAF("FORT_CUBEDSPHERE2DDISPLACEMENTS");
00821  FORTRAN_NAME( CUBEDSPHERE2DDISPLACEMENTS ,cubedsphere2ddisplacements )(
00822       CHFt_VR(disp)
00823       ,CHFt_CONST_VR(dCoord)
00824       ,CHFt_CONST_VI(dPanel)
00825       ,CHFt_CONST_REALVECT(sCoord)
00826       ,CHFt_CONST_INT(sPanel) );
00827 }
00828 #endif  // GUARDCUBEDSPHERE2DDISPLACEMENTS 
00829 
00830 }
00831 
00832 #endif
CubedSphere2DF_F.H
