#include "FortranNameMacro.H"
#include "REAL.H"
#include "SPACE.H"
#include "BaseNamespaceHeader.H"
#include "BaseNamespaceFooter.H"
Go to the source code of this file.
Defines | |
#define | FORTRAN_NAME(NAME,name) |
Used to declare a fortran routine in a portable way. | |
#define | CHF_MULTIDO(box, i, j, k) |
Used in ChomboFortran to write dimension-independent loops. | |
#define | CHF_ENDDO |
#define | CHF_INT(i) &i |
#define | CHF_CONST_INT(i) &i |
#define | CHF_REAL(r) &r |
#define | CHF_CONST_REAL(r) &r |
#define | CHF_COMPLEX(c) &c |
#define | CHF_CONST_COMPLEX(c) &c |
#define | CHF_I1D(ia, dimen) ia,(const int*)chfptr(dimen-1) |
#define | CHF_CONST_I1D(ia, dimen) ia,(const int*)chfptr(dimen-1) |
#define | CHF_R1D(ra, dimen) ra,(const int*)chfptr(dimen-1) |
#define | CHF_CONST_R1D(ra, dimen) ra,(const int*)chfptr(dimen-1) |
#define | CHF_C1D(ra, dimen) ra,(const int*)chfptr(dimen-1) |
#define | CHF_CONST_C1D(ra, dimen) ra,(const int*)chfptr(dimen-1) |
#define | CHF_IARRAY(rank, ia,...) ia,CHF_ARRAY_X(rank, __VA_ARGS__) |
#define | CHF_CONST_IARRAY(rank, ia,...) ia,CHF_ARRAY_X(rank, __VA_ARGS__) |
#define | CHF_RARRAY(rank, ia,...) ia,CHF_ARRAY_X(rank, __VA_ARGS__) |
#define | CHF_CONST_RARRAY(rank, ia,...) ia,CHF_ARRAY_X(rank, __VA_ARGS__) |
#define | CHF_CARRAY(rank, ia,...) ia,CHF_ARRAY_X(rank, __VA_ARGS__) |
#define | CHF_CONST_CARRAY(rank, ia,...) ia,CHF_ARRAY_X(rank, __VA_ARGS__) |
#define | CHF_INTVECT(a) a.dataPtr( ) |
#define | CHF_CONST_INTVECT(a) a.dataPtr( ) |
#define | CHF_REALVECT(a) a.dataPtr( ) |
#define | CHF_CONST_REALVECT(a) a.dataPtr( ) |
#define | CHF_COMPLEXVECT(a) a.dataPtr( ) |
#define | CHF_CONST_COMPLEXVECT(a) a.dataPtr( ) |
#define | CHF_VI(v) &v[0],(const int*)chfptr(v.size()-1) |
#define | CHF_CONST_VI(v) &v[0],(const int*)chfptr(v.size()-1) |
#define | CHF_VR(v) &v[0],(const int*)chfptr(v.size()-1) |
#define | CHF_CONST_VR(v) &v[0],(const int*)chfptr(v.size()-1) |
#define | CHF_VC(v) &v[0],(const int*)chfptr(v.size()-1) |
#define | CHF_CONST_VC(v) &v[0],(const int*)chfptr(v.size()-1) |
#define | CHF_BOX(b) |
#define | CHF_BOX_SHIFT(b, iv) |
#define | CHF_FIA(a) |
#define | CHF_FIA_SHIFT(a, iv) |
#define | CHF_FRA(a) |
#define | CHF_FRA_SHIFT(a, iv) |
#define | CHF_FCA(a) |
#define | CHF_CONST_FIA(a) |
#define | CHF_CONST_FIA_SHIFT(a, iv) |
#define | CHF_CONST_FRA(a) |
#define | CHF_CONST_FRA_SHIFT(a, iv) |
#define | CHF_CONST_FCA(a) |
#define | CHF_FIA1(a, n) |
#define | CHF_FIA1_SHIFT(a, n, iv) |
#define | CHF_FRA1(a, n) |
#define | CHF_FRA1_SHIFT(a, n, iv) |
#define | CHF_FCA1(a, n) |
#define | CHF_CONST_FIA1(a, n) |
#define | CHF_CONST_FBA1(a, n) |
#define | CHF_CONST_FIA1_SHIFT(a, n, iv) |
#define | CHF_CONST_FRA1(a, n) |
#define | CHF_CONST_FRA1_SHIFT(a, n, iv) |
#define | CHF_CONST_FCA1(a, n) |
#define | CHF_ICHARRAY(rank, ia) ia.begin(),CHF_CHARRAY_X(rank, ia) |
#define | CHF_CONST_ICHARRAY(rank, ia) ia.begin(),CHF_CHARRAY_X(rank, ia) |
#define | CHF_RCHARRAY(rank, ra) ra.begin(),CHF_CHARRAY_X(rank, ra) |
#define | CHF_CONST_RCHARRAY(rank, ra) ra.begin(),CHF_CHARRAY_X(rank, ra) |
#define | CHF_CCHARRAY(rank, ra) ra.begin(),CHF_CHARRAY_X(rank, ra) |
#define | CHF_CONST_CCHARRAY(rank, ra) ra.begin(),CHF_CHARRAY_X(rank, ra) |
#define | CHF_VECTOR(ra) ra.begin(),CHF_CHARRAY_X(1, ra) |
#define | CHF_CONST_VECTOR(ra) ra.begin(),CHF_CHARRAY_X(1, ra) |
#define | CHF_MATRIX(ra) ra.begin(),CHF_CHARRAY_X(2, ra) |
#define | CHF_CONST_MATRIX(ra) ra.begin(),CHF_CHARRAY_X(2, ra) |
#define | CHFp_INT(i) int* const i |
#define | CHFp_CONST_INT(i) const int* const i |
#define | CHFp_REAL(r) Real* const r |
#define | CHFp_CONST_REAL(r) const Real* const r |
#define | CHFp_COMPLEX(c) Complex* const c |
#define | CHFp_CONST_COMPLEX(c) const Complex* const c |
#define | CHFp_I1D(ia, dimen) int* const ia, const int* const i ## ia ## hi0 |
#define | CHFp_CONST_I1D(ia, dimen) const int* const ia, const int* const i ## ia ## hi0 |
#define | CHFp_R1D(ra, dimen) Real* const ra, const int* const i ## ra ## hi0 |
#define | CHFp_CONST_R1D(ra, dimen) const Real* const ra, const int* const i ## ra ## hi0 |
#define | CHFp_C1D(ra, dimen) Complex* const ra, const int* const i ## ra ## hi0 |
#define | CHFp_CONST_C1D(ra, dimen) const Complex* const ra, const int* const i ## ra ## hi0 |
#define | CHFp_IARRAY(rank, ia,...) int* const ia, DIMARG ## rank ## p(ia) |
#define | CHFp_CONST_IARRAY(rank, ia,...) const int* const ia, DIMARG ## rank ## p(ia) |
#define | CHFp_RARRAY(rank, ra,...) Real* const ra, DIMARG ## rank ## p(ra) |
#define | CHFp_CONST_RARRAY(rank, ra,...) const Real* const ra, DIMARG ## rank ## p(ra) |
#define | CHFp_CARRAY(rank, ra,...) Complex* const ra, DIMARG ## rank ## p(ra) |
#define | CHFp_CONST_CARRAY(rank, ra,...) const Complex* const ra, DIMARG ## rank ## p(ra) |
#define | CHFp_INTVECT(r) int* const r |
#define | CHFp_CONST_INTVECT(r) const int* const r |
#define | CHFp_REALVECT(r) Real* const r |
#define | CHFp_CONST_REALVECT(r) const Real* const r |
#define | CHFp_COMPLEXVECT(r) Complex* const r |
#define | CHFp_CONST_COMPLEXVECT(r) const Complex* const r |
#define | CHFp_VI(v) int * const v, const int* const i ## v ## hi0 |
#define | CHFp_CONST_VI(v) const int * const v, const int* const i ## v ## hi0 |
#define | CHFp_VR(v) Real * const v, const int* const i ## v ## hi0 |
#define | CHFp_CONST_VR(v) const Real * const v, const int* const i ## v ## hi0 |
#define | CHFp_VC(v) Complex * const v, const int* const i ## v ## hi0 |
#define | CHFp_CONST_VC(v) const Complex * const v, const int* const i ## v ## hi0 |
#define | CHFp_BOX(b) |
#define | CHFp_FIA(a) |
#define | CHFp_FRA(a) |
#define | CHFp_FCA(a) |
#define | CHFp_CONST_FIA(a) |
#define | CHFp_CONST_FBA1(a) |
#define | CHFp_CONST_FRA(a) |
#define | CHFp_CONST_FCA(a) |
#define | CHFp_FIA1(a) |
#define | CHFp_FBA1(a) |
#define | CHFp_FRA1(a) |
#define | CHFp_FCA1(a) |
#define | CHFp_CONST_FIA1(a) |
#define | CHFp_CONST_FRA1(a) |
#define | CHFp_CONST_FCA1(a) |
#define | CHFp_ICHARRAY(rank, ia) int* const ia, DIMARGp_X(rank, ia) |
#define | CHFp_CONST_ICHARRAY(rank, ia) const int* const ia, DIMARGp_X(rank, ia) |
#define | CHFp_RCHARRAY(rank, ra) Real* const ra, DIMARGp_X(rank, ra) |
#define | CHFp_CONST_RCHARRAY(rank, ra) const Real* const ra, DIMARGp_X(rank, ra) |
#define | CHFp_CCHARRAY(rank, ra) Complex* const ra, DIMARGp_X(rank, ra) |
#define | CHFp_CONST_CCHARRAY(rank, ra) const Complex* const ra, DIMARGp_X(rank, ra) |
#define | CHFt_INT(i) i |
#define | CHFt_CONST_INT(i) i |
#define | CHFt_REAL(r) r |
#define | CHFt_CONST_REAL(r) r |
#define | CHFt_COMPLEX(c) c |
#define | CHFt_CONST_COMPLEX(c) c |
#define | CHFt_I1D(ia, dimen) ia, i ## ia ## hi0 |
#define | CHFt_CONST_I1D(ia, dimen) ia, i ## ia ## hi0 |
#define | CHFt_R1D(ra, dimen) ra, i ## ra ## hi0 |
#define | CHFt_CONST_R1D(ra, dimen) ra, i ## ra ## hi0 |
#define | CHFt_C1D(ra, dimen) ra, i ## ra ## hi0 |
#define | CHFt_CONST_C1D(ra, dimen) ra, i ## ra ## hi0 |
#define | CHFt_CONST_IARRAY(rank, ia,...) ia, DIMARG ## rank ## t(ia) |
#define | CHFt_IARRAY(rank, ia,...) ia, DIMARG ## rank ## t(ia) |
#define | CHFt_CONST_BARRAY(rank, ia,...) ia, DIMARG ## rank ## t(ia) |
#define | CHFt_BARRAY(rank, ia,...) ia, DIMARG ## rank ## t(ia) |
#define | CHFt_CONST_RARRAY(rank, ra,...) ra, DIMARG ## rank ## t(ra) |
#define | CHFt_RARRAY(rank, ra,...) ra, DIMARG ## rank ## t(ra) |
#define | CHFt_CONST_CARRAY(rank, ra,...) ra, DIMARG ## rank ## t(ra) |
#define | CHFt_CARRAY(rank, ra,...) ra, DIMARG ## rank ## t(ra) |
#define | CHFt_INTVECT(r) r |
#define | CHFt_CONST_INTVECT(r) r |
#define | CHFt_REALVECT(r) r |
#define | CHFt_CONST_REALVECT(r) r |
#define | CHFt_COMPLEXVECT(r) r |
#define | CHFt_CONST_COMPLEXVECT(r) r |
#define | CHFt_VI(v) v, i ## v ## hi0 |
#define | CHFt_CONST_VI(v) v, i ## v ## hi0 |
#define | CHFt_VR(v) v, i ## v ## hi0 |
#define | CHFt_CONST_VR(v) v, i ## v ## hi0 |
#define | CHFt_VC(v) v, i ## v ## hi0 |
#define | CHFt_CONST_VC(v) v, i ## v ## hi0 |
#define | CHFt_BOX(b) |
#define | CHFt_FIA(a) |
#define | CHFt_FRA(a) |
#define | CHFt_FCA(a) |
#define | CHFt_CONST_FIA(a) |
#define | CHFt_CONST_FRA(a) |
#define | CHFt_CONST_FCA(a) |
#define | CHFt_FIA1(a) |
#define | CHFt_FRA1(a) |
#define | CHFt_FCA1(a) |
#define | CHFt_CONST_FIA1(a) |
#define | CHFt_CONST_FBA1(a) |
#define | CHFt_CONST_FRA1(a) |
#define | CHFt_CONST_FCA1(a) |
#define | CHFt_CONST_ICHARRAY(rank, ia) ia, DIMARGt_X(rank, ia) |
#define | CHFt_ICHARRAY(rank, ia) ia, DIMARGt_X(rank, ia) |
#define | CHFt_CONST_RCHARRAY(rank, ra) ra, DIMARGt_X(rank, ra) |
#define | CHFt_RCHARRAY(rank, ra) ra, DIMARGt_X(rank, ra) |
#define | CHFt_CONST_CCHARRAY(rank, ra) ra, DIMARGt_X(rank, ra) |
#define | CHFt_CCHARRAY(rank, ra) ra, DIMARGt_X(rank, ra) |
#define CHF_BOX_SHIFT | ( | b, | |||
iv | ) |
Value:
D_DECL6( CHFPTR(b.loVect()[0] - iv[0]), \ CHFPTR(b.loVect()[1] - iv[1]), \ CHFPTR(b.loVect()[2] - iv[2]), \ CHFPTR(b.loVect()[3] - iv[3]), \ CHFPTR(b.loVect()[4] - iv[4]), \ CHFPTR(b.loVect()[5] - iv[5])) \ ,D_DECL6( CHFPTR(b.hiVect()[0] - iv[0]), \ CHFPTR(b.hiVect()[1] - iv[1]), \ CHFPTR(b.hiVect()[2] - iv[2]), \ CHFPTR(b.hiVect()[3] - iv[3]), \ CHFPTR(b.hiVect()[4] - iv[4]), \ CHFPTR(b.hiVect()[5] - iv[5]))
#define CHF_CONST_FBA1 | ( | a, | |||
n | ) |
#define CHFp_INT | ( | i | ) | int* const i |
#define CHFp_CONST_INT | ( | i | ) | const int* const i |
#define CHFp_REAL | ( | r | ) | Real* const r |
#define CHFp_CONST_REAL | ( | r | ) | const Real* const r |
#define CHFp_COMPLEX | ( | c | ) | Complex* const c |
#define CHFp_CONST_COMPLEX | ( | c | ) | const Complex* const c |
#define CHFp_I1D | ( | ia, | |||
dimen | ) | int* const ia, const int* const i ## ia ## hi0 |
#define CHFp_CONST_I1D | ( | ia, | |||
dimen | ) | const int* const ia, const int* const i ## ia ## hi0 |
#define CHFp_R1D | ( | ra, | |||
dimen | ) | Real* const ra, const int* const i ## ra ## hi0 |
#define CHFp_CONST_R1D | ( | ra, | |||
dimen | ) | const Real* const ra, const int* const i ## ra ## hi0 |
#define CHFp_C1D | ( | ra, | |||
dimen | ) | Complex* const ra, const int* const i ## ra ## hi0 |
#define CHFp_CONST_C1D | ( | ra, | |||
dimen | ) | const Complex* const ra, const int* const i ## ra ## hi0 |
#define CHFp_IARRAY | ( | rank, | |||
ia, | |||||
... | ) | int* const ia, DIMARG ## rank ## p(ia) |
#define CHFp_CONST_IARRAY | ( | rank, | |||
ia, | |||||
... | ) | const int* const ia, DIMARG ## rank ## p(ia) |
#define CHFp_RARRAY | ( | rank, | |||
ra, | |||||
... | ) | Real* const ra, DIMARG ## rank ## p(ra) |
#define CHFp_CONST_RARRAY | ( | rank, | |||
ra, | |||||
... | ) | const Real* const ra, DIMARG ## rank ## p(ra) |
#define CHFp_CARRAY | ( | rank, | |||
ra, | |||||
... | ) | Complex* const ra, DIMARG ## rank ## p(ra) |
#define CHFp_CONST_CARRAY | ( | rank, | |||
ra, | |||||
... | ) | const Complex* const ra, DIMARG ## rank ## p(ra) |
#define CHFp_INTVECT | ( | r | ) | int* const r |
#define CHFp_CONST_INTVECT | ( | r | ) | const int* const r |
#define CHFp_REALVECT | ( | r | ) | Real* const r |
#define CHFp_CONST_REALVECT | ( | r | ) | const Real* const r |
#define CHFp_COMPLEXVECT | ( | r | ) | Complex* const r |
#define CHFp_CONST_COMPLEXVECT | ( | r | ) | const Complex* const r |
#define CHFp_VI | ( | v | ) | int * const v, const int* const i ## v ## hi0 |
#define CHFp_CONST_VI | ( | v | ) | const int * const v, const int* const i ## v ## hi0 |
#define CHFp_VR | ( | v | ) | Real * const v, const int* const i ## v ## hi0 |
#define CHFp_CONST_VR | ( | v | ) | const Real * const v, const int* const i ## v ## hi0 |
#define CHFp_VC | ( | v | ) | Complex * const v, const int* const i ## v ## hi0 |
#define CHFp_CONST_VC | ( | v | ) | const Complex * const v, const int* const i ## v ## hi0 |
#define CHFp_BOX | ( | b | ) |
Value:
D_DECL6( const int* const i ## b ## lo0 \ ,const int* const i ## b ## lo1 \ ,const int* const i ## b ## lo2 \ ,const int* const i ## b ## lo3 \ ,const int* const i ## b ## lo4 \ ,const int* const i ## b ## lo5 ) \ ,D_DECL6( const int* const i ## b ## hi0 \ ,const int* const i ## b ## hi1 \ ,const int* const i ## b ## hi2 \ ,const int* const i ## b ## hi3 \ ,const int* const i ## b ## hi4 \ ,const int* const i ## b ## hi5 )
#define CHFp_FIA | ( | a | ) |
Value:
int *const a \ ,D_DECL6( const int* const i ## a ## lo0 \ ,const int* const i ## a ## lo1 \ ,const int* const i ## a ## lo2 \ ,const int* const i ## a ## lo3 \ ,const int* const i ## a ## lo4 \ ,const int* const i ## a ## lo5 ) \ ,D_DECL6( const int* const i ## a ## hi0 \ ,const int* const i ## a ## hi1 \ ,const int* const i ## a ## hi2 \ ,const int* const i ## a ## hi3 \ ,const int* const i ## a ## hi4 \ ,const int* const i ## a ## hi5 ) \ ,const int* const n ## a ## comp
#define CHFp_FRA | ( | a | ) |
Value:
Real *const a \ ,D_DECL6( const int* const i ## a ## lo0 \ ,const int* const i ## a ## lo1 \ ,const int* const i ## a ## lo2 \ ,const int* const i ## a ## lo3 \ ,const int* const i ## a ## lo4 \ ,const int* const i ## a ## lo5 ) \ ,D_DECL6( const int* const i ## a ## hi0 \ ,const int* const i ## a ## hi1 \ ,const int* const i ## a ## hi2 \ ,const int* const i ## a ## hi3 \ ,const int* const i ## a ## hi4 \ ,const int* const i ## a ## hi5 ) \ ,const int* const n ## a ## comp
#define CHFp_FCA | ( | a | ) |
Value:
Complex *const a \ ,D_DECL6( const int* const i ## a ## lo0 \ ,const int* const i ## a ## lo1 \ ,const int* const i ## a ## lo2 \ ,const int* const i ## a ## lo3 \ ,const int* const i ## a ## lo4 \ ,const int* const i ## a ## lo5 ) \ ,D_DECL6( const int* const i ## a ## hi0 \ ,const int* const i ## a ## hi1 \ ,const int* const i ## a ## hi2 \ ,const int* const i ## a ## hi0 \ ,const int* const i ## a ## hi1 \ ,const int* const i ## a ## hi2 ) \ ,const int* const n ## a ## comp
#define CHFp_CONST_FIA | ( | a | ) |
Value:
const int *const a \ ,D_DECL6( const int* const i ## a ## lo0 \ ,const int* const i ## a ## lo1 \ ,const int* const i ## a ## lo2 \ , const int* const i ## a ## lo3 \ ,const int* const i ## a ## lo4 \ ,const int* const i ## a ## lo5 ) \ ,D_DECL6( const int* const i ## a ## hi0 \ ,const int* const i ## a ## hi1 \ ,const int* const i ## a ## hi2 \ ,const int* const i ## a ## hi3 \ ,const int* const i ## a ## hi4 \ ,const int* const i ## a ## hi5 ) \ ,const int* const n ## a ## comp
#define CHFp_CONST_FBA1 | ( | a | ) |
Value:
const char *const a \ ,D_DECL6( const int* const i ## a ## lo0 \ ,const int* const i ## a ## lo1 \ ,const int* const i ## a ## lo2 \ , const int* const i ## a ## lo3 \ ,const int* const i ## a ## lo4 \ ,const int* const i ## a ## lo5 ) \ ,D_DECL6( const int* const i ## a ## hi0 \ ,const int* const i ## a ## hi1 \ ,const int* const i ## a ## hi2 \ ,const int* const i ## a ## hi3 \ ,const int* const i ## a ## hi4 \ ,const int* const i ## a ## hi5 )
#define CHFp_CONST_FRA | ( | a | ) |
Value:
const Real *const a \ ,D_DECL6( const int* const i ## a ## lo0 \ ,const int* const i ## a ## lo1 \ ,const int* const i ## a ## lo2 \ ,const int* const i ## a ## lo3 \ ,const int* const i ## a ## lo4 \ ,const int* const i ## a ## lo5 ) \ ,D_DECL6( const int* const i ## a ## hi0 \ ,const int* const i ## a ## hi1 \ ,const int* const i ## a ## hi2 \ ,const int* const i ## a ## hi3 \ ,const int* const i ## a ## hi4 \ ,const int* const i ## a ## hi5 ) \ ,const int* const n ## a ## comp
#define CHFp_CONST_FCA | ( | a | ) |
Value:
const Complex *const a \ ,D_DECL6( const int* const i ## a ## lo0 \ ,const int* const i ## a ## lo1 \ ,const int* const i ## a ## lo2 \ ,const int* const i ## a ## lo3 \ ,const int* const i ## a ## lo4 \ ,const int* const i ## a ## lo5 ) \ ,D_DECL6( const int* const i ## a ## hi0 \ ,const int* const i ## a ## hi1 \ ,const int* const i ## a ## hi2 \ ,const int* const i ## a ## hi3 \ ,const int* const i ## a ## hi4 \ ,const int* const i ## a ## hi5 ) \ ,const int* const n ## a ## comp
#define CHFp_FIA1 | ( | a | ) |
Value:
int *const a \ ,D_DECL6( const int* const i ## a ## lo0 \ ,const int* const i ## a ## lo1 \ ,const int* const i ## a ## lo2 \ ,const int* const i ## a ## lo3 \ ,const int* const i ## a ## lo4 \ ,const int* const i ## a ## lo5 ) \ ,D_DECL6( const int* const i ## a ## hi0 \ ,const int* const i ## a ## hi1 \ ,const int* const i ## a ## hi2 \ ,const int* const i ## a ## hi3 \ ,const int* const i ## a ## hi4 \ ,const int* const i ## a ## hi5 )
#define CHFp_FBA1 | ( | a | ) |
Value:
char *const a \ ,D_DECL6( const int* const i ## a ## lo0 \ ,const int* const i ## a ## lo1 \ ,const int* const i ## a ## lo2 \ ,const int* const i ## a ## lo3 \ ,const int* const i ## a ## lo4 \ ,const int* const i ## a ## lo5 ) \ ,D_DECL6( const int* const i ## a ## hi0 \ ,const int* const i ## a ## hi1 \ ,const int* const i ## a ## hi2 \ ,const int* const i ## a ## hi3 \ ,const int* const i ## a ## hi4 \ ,const int* const i ## a ## hi5 )
#define CHFp_FRA1 | ( | a | ) |
Value:
Real *const a \ ,D_DECL6( const int* const i ## a ## lo0 \ ,const int* const i ## a ## lo1 \ ,const int* const i ## a ## lo2 \ ,const int* const i ## a ## lo3 \ ,const int* const i ## a ## lo4 \ ,const int* const i ## a ## lo5 ) \ ,D_DECL6( const int* const i ## a ## hi0 \ ,const int* const i ## a ## hi1 \ ,const int* const i ## a ## hi2 \ ,const int* const i ## a ## hi3 \ ,const int* const i ## a ## hi4 \ ,const int* const i ## a ## hi5 )
#define CHFp_FCA1 | ( | a | ) |
Value:
Complex *const a \ ,D_DECL6( const int* const i ## a ## lo0 \ ,const int* const i ## a ## lo1 \ ,const int* const i ## a ## lo2 \ ,const int* const i ## a ## lo3 \ ,const int* const i ## a ## lo4 \ ,const int* const i ## a ## lo5 ) \ ,D_DECL6( const int* const i ## a ## hi0 \ ,const int* const i ## a ## hi1 \ ,const int* const i ## a ## hi2 \ ,const int* const i ## a ## hi3 \ ,const int* const i ## a ## hi4 \ ,const int* const i ## a ## hi5 )
#define CHFp_CONST_FIA1 | ( | a | ) |
Value:
const int *const a \ ,D_DECL6( const int* const i ## a ## lo0 \ ,const int* const i ## a ## lo1 \ ,const int* const i ## a ## lo2 \ ,const int* const i ## a ## lo3 \ ,const int* const i ## a ## lo4 \ ,const int* const i ## a ## lo5 ) \ ,D_DECL6( const int* const i ## a ## hi0 \ ,const int* const i ## a ## hi1 \ ,const int* const i ## a ## hi2 \ ,const int* const i ## a ## hi3 \ ,const int* const i ## a ## hi4 \ ,const int* const i ## a ## hi5 )
#define CHFp_CONST_FRA1 | ( | a | ) |
Value:
const Real *const a \ ,D_DECL6( const int* const i ## a ## lo0 \ ,const int* const i ## a ## lo1 \ ,const int* const i ## a ## lo2 \ ,const int* const i ## a ## lo3 \ ,const int* const i ## a ## lo4 \ ,const int* const i ## a ## lo5 ) \ ,D_DECL6( const int* const i ## a ## hi0 \ ,const int* const i ## a ## hi1 \ ,const int* const i ## a ## hi2 \ ,const int* const i ## a ## hi3 \ ,const int* const i ## a ## hi4 \ ,const int* const i ## a ## hi5 )
#define CHFp_CONST_FCA1 | ( | a | ) |
Value:
const Complex *const a \ ,D_DECL6( const int* const i ## a ## lo0 \ ,const int* const i ## a ## lo1 \ ,const int* const i ## a ## lo2 \ ,const int* const i ## a ## lo3 \ ,const int* const i ## a ## lo4 \ ,const int* const i ## a ## lo5 ) \ ,D_DECL6( const int* const i ## a ## hi0 \ ,const int* const i ## a ## hi1 \ ,const int* const i ## a ## hi2 \ ,const int* const i ## a ## hi3 \ ,const int* const i ## a ## hi4 \ ,const int* const i ## a ## hi5 )
#define CHFp_ICHARRAY | ( | rank, | |||
ia | ) | int* const ia, DIMARGp_X(rank, ia) |
#define CHFp_CONST_ICHARRAY | ( | rank, | |||
ia | ) | const int* const ia, DIMARGp_X(rank, ia) |
#define CHFp_RCHARRAY | ( | rank, | |||
ra | ) | Real* const ra, DIMARGp_X(rank, ra) |
#define CHFp_CONST_RCHARRAY | ( | rank, | |||
ra | ) | const Real* const ra, DIMARGp_X(rank, ra) |
#define CHFp_CCHARRAY | ( | rank, | |||
ra | ) | Complex* const ra, DIMARGp_X(rank, ra) |
#define CHFp_CONST_CCHARRAY | ( | rank, | |||
ra | ) | const Complex* const ra, DIMARGp_X(rank, ra) |
#define CHFt_INT | ( | i | ) | i |
#define CHFt_CONST_INT | ( | i | ) | i |
#define CHFt_REAL | ( | r | ) | r |
#define CHFt_CONST_REAL | ( | r | ) | r |
#define CHFt_COMPLEX | ( | c | ) | c |
#define CHFt_CONST_COMPLEX | ( | c | ) | c |
#define CHFt_I1D | ( | ia, | |||
dimen | ) | ia, i ## ia ## hi0 |
#define CHFt_CONST_I1D | ( | ia, | |||
dimen | ) | ia, i ## ia ## hi0 |
#define CHFt_R1D | ( | ra, | |||
dimen | ) | ra, i ## ra ## hi0 |
#define CHFt_CONST_R1D | ( | ra, | |||
dimen | ) | ra, i ## ra ## hi0 |
#define CHFt_C1D | ( | ra, | |||
dimen | ) | ra, i ## ra ## hi0 |
#define CHFt_CONST_C1D | ( | ra, | |||
dimen | ) | ra, i ## ra ## hi0 |
#define CHFt_CONST_IARRAY | ( | rank, | |||
ia, | |||||
... | ) | ia, DIMARG ## rank ## t(ia) |
#define CHFt_IARRAY | ( | rank, | |||
ia, | |||||
... | ) | ia, DIMARG ## rank ## t(ia) |
#define CHFt_CONST_BARRAY | ( | rank, | |||
ia, | |||||
... | ) | ia, DIMARG ## rank ## t(ia) |
#define CHFt_BARRAY | ( | rank, | |||
ia, | |||||
... | ) | ia, DIMARG ## rank ## t(ia) |
#define CHFt_CONST_RARRAY | ( | rank, | |||
ra, | |||||
... | ) | ra, DIMARG ## rank ## t(ra) |
#define CHFt_RARRAY | ( | rank, | |||
ra, | |||||
... | ) | ra, DIMARG ## rank ## t(ra) |
#define CHFt_CONST_CARRAY | ( | rank, | |||
ra, | |||||
... | ) | ra, DIMARG ## rank ## t(ra) |
#define CHFt_CARRAY | ( | rank, | |||
ra, | |||||
... | ) | ra, DIMARG ## rank ## t(ra) |
#define CHFt_INTVECT | ( | r | ) | r |
#define CHFt_CONST_INTVECT | ( | r | ) | r |
#define CHFt_REALVECT | ( | r | ) | r |
#define CHFt_CONST_REALVECT | ( | r | ) | r |
#define CHFt_COMPLEXVECT | ( | r | ) | r |
#define CHFt_CONST_COMPLEXVECT | ( | r | ) | r |
#define CHFt_VI | ( | v | ) | v, i ## v ## hi0 |
#define CHFt_CONST_VI | ( | v | ) | v, i ## v ## hi0 |
#define CHFt_VR | ( | v | ) | v, i ## v ## hi0 |
#define CHFt_CONST_VR | ( | v | ) | v, i ## v ## hi0 |
#define CHFt_VC | ( | v | ) | v, i ## v ## hi0 |
#define CHFt_CONST_VC | ( | v | ) | v, i ## v ## hi0 |
#define CHFt_BOX | ( | b | ) |
#define CHFt_FIA | ( | a | ) |
#define CHFt_FRA | ( | a | ) |
#define CHFt_FCA | ( | a | ) |
#define CHFt_CONST_FIA | ( | a | ) |
#define CHFt_CONST_FRA | ( | a | ) |
#define CHFt_CONST_FCA | ( | a | ) |
#define CHFt_FIA1 | ( | a | ) |
#define CHFt_FRA1 | ( | a | ) |
#define CHFt_FCA1 | ( | a | ) |
#define CHFt_CONST_FIA1 | ( | a | ) |
#define CHFt_CONST_FBA1 | ( | a | ) |
#define CHFt_CONST_FRA1 | ( | a | ) |
#define CHFt_CONST_FCA1 | ( | a | ) |
#define CHFt_CONST_ICHARRAY | ( | rank, | |||
ia | ) | ia, DIMARGt_X(rank, ia) |
#define CHFt_ICHARRAY | ( | rank, | |||
ia | ) | ia, DIMARGt_X(rank, ia) |
#define CHFt_CONST_RCHARRAY | ( | rank, | |||
ra | ) | ra, DIMARGt_X(rank, ra) |
#define CHFt_RCHARRAY | ( | rank, | |||
ra | ) | ra, DIMARGt_X(rank, ra) |
#define CHFt_CONST_CCHARRAY | ( | rank, | |||
ra | ) | ra, DIMARGt_X(rank, ra) |
#define CHFt_CCHARRAY | ( | rank, | |||
ra | ) | ra, DIMARGt_X(rank, ra) |