FORT_PROTO.H File Reference
#include "FortranNameMacro.H"
#include "REAL.H"
#include "SPACE.H"
#include "BaseNamespaceHeader.H"
#include "BaseNamespaceFooter.H"
Include dependency graph for FORT_PROTO.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_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_FRA(a) |
| #define | CHF_FRA_SHIFT(a, iv) |
| #define | CHF_FCA(a) |
| #define | CHF_CONST_FIA(a) |
| #define | CHF_CONST_FRA(a) |
| #define | CHF_CONST_FRA_SHIFT(a, iv) |
| #define | CHF_CONST_FCA(a) |
| #define | CHF_FIA1(a, n) |
| #define | CHF_FRA1(a, n) |
| #define | CHF_FCA1(a, n) |
| #define | CHF_CONST_FIA1(a, n) |
| #define | CHF_CONST_FRA1(a, n) |
| #define | CHF_CONST_FCA1(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_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_FRA(a) |
| #define | CHFp_CONST_FCA(a) |
| #define | CHFp_FIA1(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 | 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_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_FRA1(a) |
| #define | CHFt_CONST_FCA1(a) |
Define Documentation
| #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 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_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_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_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_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_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 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_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_FRA1 | ( | a | ) |
| #define CHFt_CONST_FCA1 | ( | a | ) |
