|
#define | _FORT_PROTO_H_ |
|
#define | FORTRAN_NAME(NAME, name) |
| Used to declare a fortran routine in a portable way. More...
|
|
#define | CHF_MULTIDO(box, i, j, k) |
| Used in ChomboFortran to write dimension-independent loops. More...
|
|
#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) |
|