00001 #ifdef CH_LANG_CC
00002
00003
00004
00005
00006
00007
00008
00009 #endif
00010
00011
00012 #include "FortranNameMacro.H"
00013
00014
00015
00016
00017
00018
00019
00020 #ifndef _FORT_PROTO_H_
00021 #define _FORT_PROTO_H_
00022
00023 #include "REAL.H"
00024 #include "SPACE.H"
00025 #include "BaseNamespaceHeader.H"
00026
00027 #ifdef DOXYGEN
00029
00032 #define FORTRAN_NAME( NAME ,name )
00033
00035
00069 #define CHF_MULTIDO(box, i, j, k)
00070
00072 #define CHF_ENDDO
00073
00074 #else
00075
00076 class chfptr {
00077 public:
00078 int i ;
00079
00080
00081
00082 chfptr(int a):i(a){}
00083 operator const int*() const {return &i;}
00084 };
00085
00086 #define CHFPTR(a) (const int*)chfptr(a)
00087
00088 #endif
00089
00090
00091
00092
00093
00095 #define CHF_INT( i ) &i
00096
00097 #define CHF_CONST_INT( i ) &i
00098
00099 #define CHF_REAL( r ) &r
00100
00101 #define CHF_CONST_REAL( r ) &r
00102
00103 #define CHF_COMPLEX( c ) &c
00104
00105 #define CHF_CONST_COMPLEX( c ) &c
00106
00107 #define CHF_I1D( ia,dimen ) ia,(const int*)chfptr(dimen-1)
00108
00109 #define CHF_CONST_I1D( ia,dimen ) ia,(const int*)chfptr(dimen-1)
00110
00111 #define CHF_R1D( ra,dimen ) ra,(const int*)chfptr(dimen-1)
00112
00113 #define CHF_CONST_R1D( ra,dimen ) ra,(const int*)chfptr(dimen-1)
00114
00115 #define CHF_C1D( ra,dimen ) ra,(const int*)chfptr(dimen-1)
00116
00117 #define CHF_CONST_C1D( ra,dimen ) ra,(const int*)chfptr(dimen-1)
00118
00119
00120
00122 #define CHF_INTVECT( a ) a.dataPtr( )
00123
00124 #define CHF_CONST_INTVECT( a ) a.dataPtr( )
00125
00126 #define CHF_REALVECT( a ) a.dataPtr( )
00127
00128 #define CHF_CONST_REALVECT( a ) a.dataPtr( )
00129
00130 #define CHF_COMPLEXVECT( a ) a.dataPtr( )
00131
00132 #define CHF_CONST_COMPLEXVECT( a ) a.dataPtr( )
00133
00134 #define CHF_VI( v ) &v[0],(const int*)chfptr(v.size()-1)
00135
00136 #define CHF_CONST_VI( v ) &v[0],(const int*)chfptr(v.size()-1)
00137
00138 #define CHF_VR( v ) &v[0],(const int*)chfptr(v.size()-1)
00139
00140 #define CHF_CONST_VR( v ) &v[0],(const int*)chfptr(v.size()-1)
00141
00142 #define CHF_VC( v ) &v[0],(const int*)chfptr(v.size()-1)
00143
00144 #define CHF_CONST_VC( v ) &v[0],(const int*)chfptr(v.size()-1)
00145
00147 #define CHF_BOX( b ) D_DECL6( &b.loVect()[0] \
00148 ,&b.loVect()[1] \
00149 ,&b.loVect()[2] \
00150 ,&b.loVect()[3] \
00151 ,&b.loVect()[4] \
00152 ,&b.loVect()[5] ) \
00153 ,D_DECL6( &b.hiVect()[0] \
00154 ,&b.hiVect()[1] \
00155 ,&b.hiVect()[2] \
00156 ,&b.hiVect()[3] \
00157 ,&b.hiVect()[4] \
00158 ,&b.hiVect()[5] )
00159
00160 #define CHF_BOX_SHIFT( b , iv) D_DECL6( CHFPTR(b.loVect()[0] - iv[0]), \
00161 CHFPTR(b.loVect()[1] - iv[1]), \
00162 CHFPTR(b.loVect()[2] - iv[2]), \
00163 CHFPTR(b.loVect()[3] - iv[3]), \
00164 CHFPTR(b.loVect()[4] - iv[4]), \
00165 CHFPTR(b.loVect()[5] - iv[5])) \
00166 ,D_DECL6( CHFPTR(b.hiVect()[0] - iv[0]), \
00167 CHFPTR(b.hiVect()[1] - iv[1]), \
00168 CHFPTR(b.hiVect()[2] - iv[2]), \
00169 CHFPTR(b.hiVect()[3] - iv[3]), \
00170 CHFPTR(b.hiVect()[4] - iv[4]), \
00171 CHFPTR(b.hiVect()[5] - iv[5]))
00172
00174 #define CHF_FIA( a ) a.dataPtr( 0 ) \
00175 ,D_DECL6( &a.loVect()[0] \
00176 ,&a.loVect()[1] \
00177 ,&a.loVect()[2] \
00178 ,&a.loVect()[3] \
00179 ,&a.loVect()[4] \
00180 ,&a.loVect()[5] ) \
00181 ,D_DECL6( &a.hiVect()[0] \
00182 ,&a.hiVect()[1] \
00183 ,&a.hiVect()[2] \
00184 ,&a.hiVect()[3] \
00185 ,&a.hiVect()[4] \
00186 ,&a.hiVect()[5] ) \
00187 ,a.nCompPtr()
00188
00190 #define CHF_FRA( a ) a.dataPtr( 0 ) \
00191 ,D_DECL6( &a.loVect()[0] \
00192 ,&a.loVect()[1] \
00193 ,&a.loVect()[2] \
00194 ,&a.loVect()[3] \
00195 ,&a.loVect()[4] \
00196 ,&a.loVect()[5] ) \
00197 ,D_DECL6( &a.hiVect()[0] \
00198 ,&a.hiVect()[1] \
00199 ,&a.hiVect()[2] \
00200 ,&a.hiVect()[3] \
00201 ,&a.hiVect()[4] \
00202 ,&a.hiVect()[5] ) \
00203 ,a.nCompPtr()
00204
00206 #define CHF_FRA_SHIFT( a , iv) a.dataPtr( 0 ), \
00207 D_DECL6( CHFPTR(a.loVect()[0] - iv[0]), \
00208 CHFPTR(a.loVect()[1] - iv[1]), \
00209 CHFPTR(a.loVect()[2] - iv[2]), \
00210 CHFPTR(a.loVect()[0] - iv[3]), \
00211 CHFPTR(a.loVect()[1] - iv[4]), \
00212 CHFPTR(a.loVect()[2] - iv[5])) \
00213 ,D_DECL6( CHFPTR(a.hiVect()[0] - iv[0]), \
00214 CHFPTR(a.hiVect()[1] - iv[1]), \
00215 CHFPTR(a.hiVect()[2] - iv[2]), \
00216 CHFPTR(a.hiVect()[0] - iv[3]), \
00217 CHFPTR(a.hiVect()[1] - iv[4]), \
00218 CHFPTR(a.hiVect()[2] - iv[5])) \
00219 ,a.nCompPtr()
00220
00222 #define CHF_FCA( a ) a.dataPtr( 0 ) \
00223 ,D_DECL6( &a.loVect()[0] \
00224 ,&a.loVect()[1] \
00225 ,&a.loVect()[2] \
00226 ,&a.loVect()[3] \
00227 ,&a.loVect()[4] \
00228 ,&a.loVect()[5] ) \
00229 ,D_DECL6( &a.hiVect()[0] \
00230 ,&a.hiVect()[1] \
00231 ,&a.hiVect()[2] \
00232 ,&a.hiVect()[3] \
00233 ,&a.hiVect()[4] \
00234 ,&a.hiVect()[5] ) \
00235 ,a.nCompPtr()
00236
00238 #define CHF_CONST_FIA( a ) a.dataPtr( 0 ) \
00239 ,D_DECL6( &a.loVect()[0] \
00240 ,&a.loVect()[1] \
00241 ,&a.loVect()[2] \
00242 ,&a.loVect()[3] \
00243 ,&a.loVect()[4] \
00244 ,&a.loVect()[5] ) \
00245 ,D_DECL6( &a.hiVect()[0] \
00246 ,&a.hiVect()[1] \
00247 ,&a.hiVect()[2] \
00248 ,&a.hiVect()[3] \
00249 ,&a.hiVect()[4] \
00250 ,&a.hiVect()[5] ) \
00251 ,a.nCompPtr()
00252
00254 #define CHF_CONST_FRA( a ) a.dataPtr( 0 ) \
00255 ,D_DECL6( &a.loVect()[0] \
00256 ,&a.loVect()[1] \
00257 ,&a.loVect()[2] \
00258 ,&a.loVect()[3] \
00259 ,&a.loVect()[4] \
00260 ,&a.loVect()[5] ) \
00261 ,D_DECL6( &a.hiVect()[0] \
00262 ,&a.hiVect()[1] \
00263 ,&a.hiVect()[2] \
00264 ,&a.hiVect()[3] \
00265 ,&a.hiVect()[4] \
00266 ,&a.hiVect()[5] ) \
00267 ,a.nCompPtr()
00268
00270 #define CHF_CONST_FRA_SHIFT( a , iv) a.dataPtr( 0 ), \
00271 D_DECL6( CHFPTR(a.loVect()[0] - iv[0]), \
00272 CHFPTR(a.loVect()[1] - iv[1]), \
00273 CHFPTR(a.loVect()[2] - iv[2]), \
00274 CHFPTR(a.loVect()[0] - iv[3]), \
00275 CHFPTR(a.loVect()[1] - iv[4]), \
00276 CHFPTR(a.loVect()[2] - iv[5])) \
00277 ,D_DECL6( CHFPTR(a.hiVect()[0] - iv[0]), \
00278 CHFPTR(a.hiVect()[1] - iv[1]), \
00279 CHFPTR(a.hiVect()[2] - iv[2]), \
00280 CHFPTR(a.hiVect()[3] - iv[3]), \
00281 CHFPTR(a.hiVect()[4] - iv[4]), \
00282 CHFPTR(a.hiVect()[5] - iv[5])) \
00283 ,a.nCompPtr()
00284
00286 #define CHF_CONST_FCA( a ) a.dataPtr( 0 ) \
00287 ,D_DECL6( &a.loVect()[0] \
00288 ,&a.loVect()[1] \
00289 ,&a.loVect()[2] \
00290 ,&a.loVect()[3] \
00291 ,&a.loVect()[4] \
00292 ,&a.loVect()[5] ) \
00293 ,D_DECL6( &a.hiVect()[0] \
00294 ,&a.hiVect()[1] \
00295 ,&a.hiVect()[2] \
00296 ,&a.hiVect()[3] \
00297 ,&a.hiVect()[4] \
00298 ,&a.hiVect()[5] ) \
00299 ,a.nCompPtr()
00300
00302 #define CHF_FIA1( a,n ) a.dataPtr( n ) \
00303 ,D_DECL6( &a.loVect()[0] \
00304 ,&a.loVect()[1] \
00305 ,&a.loVect()[2] \
00306 ,&a.loVect()[3] \
00307 ,&a.loVect()[4] \
00308 ,&a.loVect()[5] ) \
00309 ,D_DECL6( &a.hiVect()[0] \
00310 ,&a.hiVect()[1] \
00311 ,&a.hiVect()[2] \
00312 ,&a.hiVect()[3] \
00313 ,&a.hiVect()[4] \
00314 ,&a.hiVect()[5] )
00315
00317 #define CHF_FRA1( a,n ) a.dataPtr( n ) \
00318 ,D_DECL6( &a.loVect()[0] \
00319 ,&a.loVect()[1] \
00320 ,&a.loVect()[2] \
00321 ,&a.loVect()[3] \
00322 ,&a.loVect()[4] \
00323 ,&a.loVect()[5] ) \
00324 ,D_DECL6( &a.hiVect()[0] \
00325 ,&a.hiVect()[1] \
00326 ,&a.hiVect()[2] \
00327 ,&a.hiVect()[3] \
00328 ,&a.hiVect()[4] \
00329 ,&a.hiVect()[5] )
00330
00332 #define CHF_FCA1( a,n ) a.dataPtr( n ) \
00333 ,D_DECL6( &a.loVect()[0] \
00334 ,&a.loVect()[1] \
00335 ,&a.loVect()[2] \
00336 ,&a.loVect()[3] \
00337 ,&a.loVect()[4] \
00338 ,&a.loVect()[5] ) \
00339 ,D_DECL6( &a.hiVect()[0] \
00340 ,&a.hiVect()[1] \
00341 ,&a.hiVect()[2] \
00342 ,&a.hiVect()[3] \
00343 ,&a.hiVect()[4] \
00344 ,&a.hiVect()[5] )
00345
00347 #define CHF_CONST_FIA1( a,n ) a.dataPtr( n ) \
00348 ,D_DECL6( &a.loVect()[0] \
00349 ,&a.loVect()[1] \
00350 ,&a.loVect()[2] \
00351 ,&a.loVect()[3] \
00352 ,&a.loVect()[4] \
00353 ,&a.loVect()[5] ) \
00354 ,D_DECL6( &a.hiVect()[0] \
00355 ,&a.hiVect()[1] \
00356 ,&a.hiVect()[2] \
00357 ,&a.hiVect()[3] \
00358 ,&a.hiVect()[4] \
00359 ,&a.hiVect()[5] )
00360
00362 #define CHF_CONST_FRA1( a,n ) a.dataPtr( n ) \
00363 ,D_DECL6( &a.loVect()[0] \
00364 ,&a.loVect()[1] \
00365 ,&a.loVect()[2] \
00366 ,&a.loVect()[3] \
00367 ,&a.loVect()[4] \
00368 ,&a.loVect()[5] ) \
00369 ,D_DECL6( &a.hiVect()[0] \
00370 ,&a.hiVect()[1] \
00371 ,&a.hiVect()[2] \
00372 ,&a.hiVect()[3] \
00373 ,&a.hiVect()[4] \
00374 ,&a.hiVect()[5] )
00375
00377 #define CHF_CONST_FCA1( a,n ) a.dataPtr( n ) \
00378 ,D_DECL6( &a.loVect()[0] \
00379 ,&a.loVect()[1] \
00380 ,&a.loVect()[2] \
00381 ,&a.loVect()[0] \
00382 ,&a.loVect()[1] \
00383 ,&a.loVect()[2] ) \
00384 ,D_DECL6( &a.hiVect()[0] \
00385 ,&a.hiVect()[1] \
00386 ,&a.hiVect()[2] \
00387 ,&a.hiVect()[3] \
00388 ,&a.hiVect()[4] \
00389 ,&a.hiVect()[5] )
00390
00391
00392
00393
00394
00395 #define CHFp_INT( i ) int* const i
00396 #define CHFp_CONST_INT( i ) const int* const i
00397 #define CHFp_REAL( r ) Real* const r
00398 #define CHFp_CONST_REAL( r ) const Real* const r
00399 #define CHFp_COMPLEX( c ) Complex* const c
00400 #define CHFp_CONST_COMPLEX( c ) const Complex* const c
00401
00402 #define CHFp_I1D( ia,dimen ) int* const ia, const int* const i ## ia ## hi0
00403 #define CHFp_CONST_I1D( ia,dimen ) const int* const ia, const int* const i ## ia ## hi0
00404 #define CHFp_R1D( ra,dimen ) Real* const ra, const int* const i ## ra ## hi0
00405 #define CHFp_CONST_R1D( ra,dimen ) const Real* const ra, const int* const i ## ra ## hi0
00406 #define CHFp_C1D( ra,dimen ) Complex* const ra, const int* const i ## ra ## hi0
00407 #define CHFp_CONST_C1D( ra,dimen ) const Complex* const ra, const int* const i ## ra ## hi0
00408
00409
00410
00411 #define CHFp_INTVECT( r ) int* const r
00412 #define CHFp_CONST_INTVECT( r ) const int* const r
00413 #define CHFp_REALVECT( r ) Real* const r
00414 #define CHFp_CONST_REALVECT( r ) const Real* const r
00415 #define CHFp_COMPLEXVECT( r ) Complex* const r
00416 #define CHFp_CONST_COMPLEXVECT( r ) const Complex* const r
00417 #define CHFp_VI( v ) int * const v, const int* const i ## v ## hi0
00418 #define CHFp_CONST_VI( v ) const int * const v, const int* const i ## v ## hi0
00419 #define CHFp_VR( v ) Real * const v, const int* const i ## v ## hi0
00420 #define CHFp_CONST_VR( v ) const Real * const v, const int* const i ## v ## hi0
00421 #define CHFp_VC( v ) Complex * const v, const int* const i ## v ## hi0
00422 #define CHFp_CONST_VC( v ) const Complex * const v, const int* const i ## v ## hi0
00423
00424 #define CHFp_BOX( b ) D_DECL6( const int* const i ## b ## lo0 \
00425 ,const int* const i ## b ## lo1 \
00426 ,const int* const i ## b ## lo2 \
00427 ,const int* const i ## b ## lo3 \
00428 ,const int* const i ## b ## lo4 \
00429 ,const int* const i ## b ## lo5 ) \
00430 ,D_DECL6( const int* const i ## b ## hi0 \
00431 ,const int* const i ## b ## hi1 \
00432 ,const int* const i ## b ## hi2 \
00433 ,const int* const i ## b ## hi3 \
00434 ,const int* const i ## b ## hi4 \
00435 ,const int* const i ## b ## hi5 )
00436
00437 #define CHFp_FIA( a ) int *const a \
00438 ,D_DECL6( const int* const i ## a ## lo0 \
00439 ,const int* const i ## a ## lo1 \
00440 ,const int* const i ## a ## lo2 \
00441 ,const int* const i ## a ## lo3 \
00442 ,const int* const i ## a ## lo4 \
00443 ,const int* const i ## a ## lo5 ) \
00444 ,D_DECL6( const int* const i ## a ## hi0 \
00445 ,const int* const i ## a ## hi1 \
00446 ,const int* const i ## a ## hi2 \
00447 ,const int* const i ## a ## hi3 \
00448 ,const int* const i ## a ## hi4 \
00449 ,const int* const i ## a ## hi5 ) \
00450 ,const int* const n ## a ## comp
00451 #define CHFp_FRA( a ) Real *const a \
00452 ,D_DECL6( const int* const i ## a ## lo0 \
00453 ,const int* const i ## a ## lo1 \
00454 ,const int* const i ## a ## lo2 \
00455 ,const int* const i ## a ## lo3 \
00456 ,const int* const i ## a ## lo4 \
00457 ,const int* const i ## a ## lo5 ) \
00458 ,D_DECL6( const int* const i ## a ## hi0 \
00459 ,const int* const i ## a ## hi1 \
00460 ,const int* const i ## a ## hi2 \
00461 ,const int* const i ## a ## hi3 \
00462 ,const int* const i ## a ## hi4 \
00463 ,const int* const i ## a ## hi5 ) \
00464 ,const int* const n ## a ## comp
00465 #define CHFp_FCA( a ) Complex *const a \
00466 ,D_DECL6( const int* const i ## a ## lo0 \
00467 ,const int* const i ## a ## lo1 \
00468 ,const int* const i ## a ## lo2 \
00469 ,const int* const i ## a ## lo3 \
00470 ,const int* const i ## a ## lo4 \
00471 ,const int* const i ## a ## lo5 ) \
00472 ,D_DECL6( const int* const i ## a ## hi0 \
00473 ,const int* const i ## a ## hi1 \
00474 ,const int* const i ## a ## hi2 \
00475 ,const int* const i ## a ## hi0 \
00476 ,const int* const i ## a ## hi1 \
00477 ,const int* const i ## a ## hi2 ) \
00478 ,const int* const n ## a ## comp
00479 #define CHFp_CONST_FIA( a ) const int *const a \
00480 ,D_DECL6( const int* const i ## a ## lo0 \
00481 ,const int* const i ## a ## lo1 \
00482 ,const int* const i ## a ## lo2 \
00483 , const int* const i ## a ## lo3 \
00484 ,const int* const i ## a ## lo4 \
00485 ,const int* const i ## a ## lo5 ) \
00486 ,D_DECL6( const int* const i ## a ## hi0 \
00487 ,const int* const i ## a ## hi1 \
00488 ,const int* const i ## a ## hi2 \
00489 ,const int* const i ## a ## hi3 \
00490 ,const int* const i ## a ## hi4 \
00491 ,const int* const i ## a ## hi5 ) \
00492 ,const int* const n ## a ## comp
00493 #define CHFp_CONST_FRA( a ) const Real *const a \
00494 ,D_DECL6( const int* const i ## a ## lo0 \
00495 ,const int* const i ## a ## lo1 \
00496 ,const int* const i ## a ## lo2 \
00497 ,const int* const i ## a ## lo3 \
00498 ,const int* const i ## a ## lo4 \
00499 ,const int* const i ## a ## lo5 ) \
00500 ,D_DECL6( const int* const i ## a ## hi0 \
00501 ,const int* const i ## a ## hi1 \
00502 ,const int* const i ## a ## hi2 \
00503 ,const int* const i ## a ## hi3 \
00504 ,const int* const i ## a ## hi4 \
00505 ,const int* const i ## a ## hi5 ) \
00506 ,const int* const n ## a ## comp
00507 #define CHFp_CONST_FCA( a ) const Complex *const a \
00508 ,D_DECL6( const int* const i ## a ## lo0 \
00509 ,const int* const i ## a ## lo1 \
00510 ,const int* const i ## a ## lo2 \
00511 ,const int* const i ## a ## lo3 \
00512 ,const int* const i ## a ## lo4 \
00513 ,const int* const i ## a ## lo5 ) \
00514 ,D_DECL6( const int* const i ## a ## hi0 \
00515 ,const int* const i ## a ## hi1 \
00516 ,const int* const i ## a ## hi2 \
00517 ,const int* const i ## a ## hi3 \
00518 ,const int* const i ## a ## hi4 \
00519 ,const int* const i ## a ## hi5 ) \
00520 ,const int* const n ## a ## comp
00521 #define CHFp_FIA1( a ) int *const a \
00522 ,D_DECL6( const int* const i ## a ## lo0 \
00523 ,const int* const i ## a ## lo1 \
00524 ,const int* const i ## a ## lo2 \
00525 ,const int* const i ## a ## lo3 \
00526 ,const int* const i ## a ## lo4 \
00527 ,const int* const i ## a ## lo5 ) \
00528 ,D_DECL6( const int* const i ## a ## hi0 \
00529 ,const int* const i ## a ## hi1 \
00530 ,const int* const i ## a ## hi2 \
00531 ,const int* const i ## a ## hi3 \
00532 ,const int* const i ## a ## hi4 \
00533 ,const int* const i ## a ## hi5 )
00534 #define CHFp_FRA1( a ) Real *const a \
00535 ,D_DECL6( const int* const i ## a ## lo0 \
00536 ,const int* const i ## a ## lo1 \
00537 ,const int* const i ## a ## lo2 \
00538 ,const int* const i ## a ## lo3 \
00539 ,const int* const i ## a ## lo4 \
00540 ,const int* const i ## a ## lo5 ) \
00541 ,D_DECL6( const int* const i ## a ## hi0 \
00542 ,const int* const i ## a ## hi1 \
00543 ,const int* const i ## a ## hi2 \
00544 ,const int* const i ## a ## hi3 \
00545 ,const int* const i ## a ## hi4 \
00546 ,const int* const i ## a ## hi5 )
00547 #define CHFp_FCA1( a ) Complex *const a \
00548 ,D_DECL6( const int* const i ## a ## lo0 \
00549 ,const int* const i ## a ## lo1 \
00550 ,const int* const i ## a ## lo2 \
00551 ,const int* const i ## a ## lo3 \
00552 ,const int* const i ## a ## lo4 \
00553 ,const int* const i ## a ## lo5 ) \
00554 ,D_DECL6( const int* const i ## a ## hi0 \
00555 ,const int* const i ## a ## hi1 \
00556 ,const int* const i ## a ## hi2 \
00557 ,const int* const i ## a ## hi3 \
00558 ,const int* const i ## a ## hi4 \
00559 ,const int* const i ## a ## hi5 )
00560 #define CHFp_CONST_FIA1( a ) const int *const a \
00561 ,D_DECL6( const int* const i ## a ## lo0 \
00562 ,const int* const i ## a ## lo1 \
00563 ,const int* const i ## a ## lo2 \
00564 ,const int* const i ## a ## lo3 \
00565 ,const int* const i ## a ## lo4 \
00566 ,const int* const i ## a ## lo5 ) \
00567 ,D_DECL6( const int* const i ## a ## hi0 \
00568 ,const int* const i ## a ## hi1 \
00569 ,const int* const i ## a ## hi2 \
00570 ,const int* const i ## a ## hi3 \
00571 ,const int* const i ## a ## hi4 \
00572 ,const int* const i ## a ## hi5 )
00573 #define CHFp_CONST_FRA1( a ) const Real *const a \
00574 ,D_DECL6( const int* const i ## a ## lo0 \
00575 ,const int* const i ## a ## lo1 \
00576 ,const int* const i ## a ## lo2 \
00577 ,const int* const i ## a ## lo3 \
00578 ,const int* const i ## a ## lo4 \
00579 ,const int* const i ## a ## lo5 ) \
00580 ,D_DECL6( const int* const i ## a ## hi0 \
00581 ,const int* const i ## a ## hi1 \
00582 ,const int* const i ## a ## hi2 \
00583 ,const int* const i ## a ## hi3 \
00584 ,const int* const i ## a ## hi4 \
00585 ,const int* const i ## a ## hi5 )
00586 #define CHFp_CONST_FCA1( a ) const Complex *const a \
00587 ,D_DECL6( const int* const i ## a ## lo0 \
00588 ,const int* const i ## a ## lo1 \
00589 ,const int* const i ## a ## lo2 \
00590 ,const int* const i ## a ## lo3 \
00591 ,const int* const i ## a ## lo4 \
00592 ,const int* const i ## a ## lo5 ) \
00593 ,D_DECL6( const int* const i ## a ## hi0 \
00594 ,const int* const i ## a ## hi1 \
00595 ,const int* const i ## a ## hi2 \
00596 ,const int* const i ## a ## hi3 \
00597 ,const int* const i ## a ## hi4 \
00598 ,const int* const i ## a ## hi5 )
00599
00600 #define CHFt_INT( i ) i
00601 #define CHFt_CONST_INT( i ) i
00602 #define CHFt_REAL( r ) r
00603 #define CHFt_CONST_REAL( r ) r
00604 #define CHFt_COMPLEX( c ) c
00605 #define CHFt_CONST_COMPLEX( c ) c
00606
00607 #define CHFt_I1D( ia,dimen ) ia, i ## ia ## hi0
00608 #define CHFt_CONST_I1D( ia,dimen ) ia, i ## ia ## hi0
00609 #define CHFt_R1D( ra,dimen ) ra, i ## ra ## hi0
00610 #define CHFt_CONST_R1D( ra,dimen ) ra, i ## ra ## hi0
00611 #define CHFt_C1D( ra,dimen ) ra, i ## ra ## hi0
00612 #define CHFt_CONST_C1D( ra,dimen ) ra, i ## ra ## hi0
00613
00614
00615
00616 #define CHFt_INTVECT( r ) r
00617 #define CHFt_CONST_INTVECT( r ) r
00618 #define CHFt_REALVECT( r ) r
00619 #define CHFt_CONST_REALVECT( r ) r
00620 #define CHFt_COMPLEXVECT( r ) r
00621 #define CHFt_CONST_COMPLEXVECT( r ) r
00622 #define CHFt_VI( v ) v, i ## v ## hi0
00623 #define CHFt_CONST_VI( v ) v, i ## v ## hi0
00624 #define CHFt_VR( v ) v, i ## v ## hi0
00625 #define CHFt_CONST_VR( v ) v, i ## v ## hi0
00626 #define CHFt_VC( v ) v, i ## v ## hi0
00627 #define CHFt_CONST_VC( v ) v, i ## v ## hi0
00628
00629 #define CHFt_BOX( b ) D_DECL6( i ## b ## lo0 \
00630 , i ## b ## lo1 \
00631 , i ## b ## lo2 \
00632 , i ## b ## lo3 \
00633 , i ## b ## lo4 \
00634 , i ## b ## lo5 ) \
00635 ,D_DECL6( i ## b ## hi0 \
00636 , i ## b ## hi1 \
00637 , i ## b ## hi2 \
00638 , i ## b ## hi3 \
00639 , i ## b ## hi4 \
00640 , i ## b ## hi5 )
00641
00642 #define CHFt_FIA( a ) a \
00643 ,D_DECL6( i ## a ## lo0 \
00644 , i ## a ## lo1 \
00645 , i ## a ## lo2 \
00646 , i ## a ## lo3 \
00647 , i ## a ## lo4 \
00648 , i ## a ## lo5 ) \
00649 ,D_DECL6( i ## a ## hi0 \
00650 , i ## a ## hi1 \
00651 , i ## a ## hi2 \
00652 , i ## a ## hi3 \
00653 , i ## a ## hi4 \
00654 , i ## a ## hi5 ) \
00655 , n ## a ## comp
00656 #define CHFt_FRA( a ) a \
00657 ,D_DECL6( i ## a ## lo0 \
00658 , i ## a ## lo1 \
00659 , i ## a ## lo2 \
00660 , i ## a ## lo3 \
00661 , i ## a ## lo4 \
00662 , i ## a ## lo5 ) \
00663 ,D_DECL6( i ## a ## hi0 \
00664 , i ## a ## hi1 \
00665 , i ## a ## hi2 \
00666 , i ## a ## hi3 \
00667 , i ## a ## hi4 \
00668 , i ## a ## hi5 ) \
00669 , n ## a ## comp
00670 #define CHFt_FCA( a ) a \
00671 ,D_DECL6( i ## a ## lo0 \
00672 , i ## a ## lo1 \
00673 , i ## a ## lo2 \
00674 , i ## a ## lo3 \
00675 , i ## a ## lo4 \
00676 , i ## a ## lo5 ) \
00677 ,D_DECL6( i ## a ## hi0 \
00678 , i ## a ## hi1 \
00679 , i ## a ## hi2 \
00680 , i ## a ## hi3 \
00681 , i ## a ## hi4 \
00682 , i ## a ## hi5 ) \
00683 , n ## a ## comp
00684 #define CHFt_CONST_FIA( a ) a \
00685 ,D_DECL6( i ## a ## lo0 \
00686 , i ## a ## lo1 \
00687 , i ## a ## lo2 \
00688 , i ## a ## lo3 \
00689 , i ## a ## lo4 \
00690 , i ## a ## lo5 ) \
00691 ,D_DECL6( i ## a ## hi0 \
00692 , i ## a ## hi1 \
00693 , i ## a ## hi2 \
00694 , i ## a ## hi3 \
00695 , i ## a ## hi4 \
00696 , i ## a ## hi5 ) \
00697 , n ## a ## comp
00698 #define CHFt_CONST_FRA( a ) a \
00699 ,D_DECL6( i ## a ## lo0 \
00700 , i ## a ## lo1 \
00701 , i ## a ## lo2 \
00702 , i ## a ## lo3 \
00703 , i ## a ## lo4 \
00704 , i ## a ## lo5 ) \
00705 ,D_DECL6( i ## a ## hi0 \
00706 , i ## a ## hi1 \
00707 , i ## a ## hi2 \
00708 , i ## a ## hi3 \
00709 , i ## a ## hi4 \
00710 , i ## a ## hi5 ) \
00711 , n ## a ## comp
00712 #define CHFt_CONST_FCA( a ) a \
00713 ,D_DECL6( i ## a ## lo0 \
00714 , i ## a ## lo1 \
00715 , i ## a ## lo2 \
00716 , i ## a ## lo3 \
00717 , i ## a ## lo4 \
00718 , i ## a ## lo5 ) \
00719 ,D_DECL6( i ## a ## hi0 \
00720 , i ## a ## hi1 \
00721 , i ## a ## hi2 \
00722 , i ## a ## hi3 \
00723 , i ## a ## hi4 \
00724 , i ## a ## hi5 ) \
00725 , n ## a ## comp
00726 #define CHFt_FIA1( a ) a \
00727 ,D_DECL6( i ## a ## lo0 \
00728 , i ## a ## lo1 \
00729 , i ## a ## lo2 \
00730 , i ## a ## lo3 \
00731 , i ## a ## lo4 \
00732 , i ## a ## lo5 ) \
00733 ,D_DECL6( i ## a ## hi0 \
00734 , i ## a ## hi1 \
00735 , i ## a ## hi2 \
00736 , i ## a ## hi3 \
00737 , i ## a ## hi4 \
00738 , i ## a ## hi5 )
00739 #define CHFt_FRA1( a ) a \
00740 ,D_DECL6( i ## a ## lo0 \
00741 , i ## a ## lo1 \
00742 , i ## a ## lo2 \
00743 , i ## a ## lo3 \
00744 , i ## a ## lo4 \
00745 , i ## a ## lo5 ) \
00746 ,D_DECL6( i ## a ## hi0 \
00747 , i ## a ## hi1 \
00748 , i ## a ## hi2 \
00749 , i ## a ## hi3 \
00750 , i ## a ## hi4 \
00751 , i ## a ## hi5 )
00752 #define CHFt_FCA1( a ) a \
00753 ,D_DECL6( i ## a ## lo0 \
00754 , i ## a ## lo1 \
00755 , i ## a ## lo2 \
00756 , i ## a ## lo3 \
00757 , i ## a ## lo4 \
00758 , i ## a ## lo5 ) \
00759 ,D_DECL6( i ## a ## hi0 \
00760 , i ## a ## hi1 \
00761 , i ## a ## hi2 \
00762 , i ## a ## hi3 \
00763 , i ## a ## hi4 \
00764 , i ## a ## hi5 )
00765 #define CHFt_CONST_FIA1( a ) a \
00766 ,D_DECL6( i ## a ## lo0 \
00767 , i ## a ## lo1 \
00768 , i ## a ## lo2 \
00769 , i ## a ## lo3 \
00770 , i ## a ## lo4 \
00771 , i ## a ## lo5 ) \
00772 ,D_DECL6( i ## a ## hi0 \
00773 , i ## a ## hi1 \
00774 , i ## a ## hi2 \
00775 , i ## a ## hi3 \
00776 , i ## a ## hi4 \
00777 , i ## a ## hi5 )
00778 #define CHFt_CONST_FRA1( a ) a \
00779 ,D_DECL6( i ## a ## lo0 \
00780 , i ## a ## lo1 \
00781 , i ## a ## lo2 \
00782 , i ## a ## lo3 \
00783 , i ## a ## lo4 \
00784 , i ## a ## lo5 ) \
00785 ,D_DECL6( i ## a ## hi0 \
00786 , i ## a ## hi1 \
00787 , i ## a ## hi2 \
00788 , i ## a ## hi3 \
00789 , i ## a ## hi4 \
00790 , i ## a ## hi5 )
00791 #define CHFt_CONST_FCA1( a ) a \
00792 ,D_DECL6( i ## a ## lo0 \
00793 , i ## a ## lo1 \
00794 , i ## a ## lo2 \
00795 , i ## a ## lo3 \
00796 , i ## a ## lo4 \
00797 , i ## a ## lo5 ) \
00798 ,D_DECL6( i ## a ## hi0 \
00799 , i ## a ## hi1 \
00800 , i ## a ## hi2 \
00801 , i ## a ## hi3 \
00802 , i ## a ## hi4 \
00803 , i ## a ## hi5 )
00804
00805 #include "BaseNamespaceFooter.H"
00806 #endif
