Chombo + EB  3.2
Macros
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.

Macros

#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)
 

Macro Definition Documentation

#define _FORT_PROTO_H_
#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 D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
#define CHF_CONST_FBA1 (   a,
 
)
Value:
a.dataPtr( n ) \
,D_DECL6( &a.loVect()[0] \
,&a.loVect()[1] \
,&a.loVect()[2] \
,&a.loVect()[3] \
,&a.loVect()[4] \
,&a.loVect()[5] ) \
,D_DECL6( &a.hiVect()[0] \
,&a.hiVect()[1] \
,&a.hiVect()[2] \
,&a.hiVect()[3] \
,&a.hiVect()[4] \
,&a.hiVect()[5] )
#define D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
#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 D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
#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 D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
#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 D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
double Real
Definition: REAL.H:33
#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 D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
#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 D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
#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 D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
#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 D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
double Real
Definition: REAL.H:33
#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 D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
#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 D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
#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 D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
#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 D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
double Real
Definition: REAL.H:33
#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 D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
#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 D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
#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 D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
double Real
Definition: REAL.H:33
#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 D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
#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)
Value:
D_DECL6( i ## b ## lo0 \
, i ## b ## lo1 \
, i ## b ## lo2 \
, i ## b ## lo3 \
, i ## b ## lo4 \
, i ## b ## lo5 ) \
,D_DECL6( i ## b ## hi0 \
, i ## b ## hi1 \
, i ## b ## hi2 \
, i ## b ## hi3 \
, i ## b ## hi4 \
, i ## b ## hi5 )
#define D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
#define CHFt_FIA (   a)
Value:
a \
,D_DECL6( i ## a ## lo0 \
, i ## a ## lo1 \
, i ## a ## lo2 \
, i ## a ## lo3 \
, i ## a ## lo4 \
, i ## a ## lo5 ) \
,D_DECL6( i ## a ## hi0 \
, i ## a ## hi1 \
, i ## a ## hi2 \
, i ## a ## hi3 \
, i ## a ## hi4 \
, i ## a ## hi5 ) \
, n ## a ## comp
#define D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
#define CHFt_FRA (   a)
Value:
a \
,D_DECL6( i ## a ## lo0 \
, i ## a ## lo1 \
, i ## a ## lo2 \
, i ## a ## lo3 \
, i ## a ## lo4 \
, i ## a ## lo5 ) \
,D_DECL6( i ## a ## hi0 \
, i ## a ## hi1 \
, i ## a ## hi2 \
, i ## a ## hi3 \
, i ## a ## hi4 \
, i ## a ## hi5 ) \
, n ## a ## comp
#define D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
#define CHFt_FCA (   a)
Value:
a \
,D_DECL6( i ## a ## lo0 \
, i ## a ## lo1 \
, i ## a ## lo2 \
, i ## a ## lo3 \
, i ## a ## lo4 \
, i ## a ## lo5 ) \
,D_DECL6( i ## a ## hi0 \
, i ## a ## hi1 \
, i ## a ## hi2 \
, i ## a ## hi3 \
, i ## a ## hi4 \
, i ## a ## hi5 ) \
, n ## a ## comp
#define D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
#define CHFt_CONST_FIA (   a)
Value:
a \
,D_DECL6( i ## a ## lo0 \
, i ## a ## lo1 \
, i ## a ## lo2 \
, i ## a ## lo3 \
, i ## a ## lo4 \
, i ## a ## lo5 ) \
,D_DECL6( i ## a ## hi0 \
, i ## a ## hi1 \
, i ## a ## hi2 \
, i ## a ## hi3 \
, i ## a ## hi4 \
, i ## a ## hi5 ) \
, n ## a ## comp
#define D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
#define CHFt_CONST_FRA (   a)
Value:
a \
,D_DECL6( i ## a ## lo0 \
, i ## a ## lo1 \
, i ## a ## lo2 \
, i ## a ## lo3 \
, i ## a ## lo4 \
, i ## a ## lo5 ) \
,D_DECL6( i ## a ## hi0 \
, i ## a ## hi1 \
, i ## a ## hi2 \
, i ## a ## hi3 \
, i ## a ## hi4 \
, i ## a ## hi5 ) \
, n ## a ## comp
#define D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
#define CHFt_CONST_FCA (   a)
Value:
a \
,D_DECL6( i ## a ## lo0 \
, i ## a ## lo1 \
, i ## a ## lo2 \
, i ## a ## lo3 \
, i ## a ## lo4 \
, i ## a ## lo5 ) \
,D_DECL6( i ## a ## hi0 \
, i ## a ## hi1 \
, i ## a ## hi2 \
, i ## a ## hi3 \
, i ## a ## hi4 \
, i ## a ## hi5 ) \
, n ## a ## comp
#define D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
#define CHFt_FIA1 (   a)
Value:
a \
,D_DECL6( i ## a ## lo0 \
, i ## a ## lo1 \
, i ## a ## lo2 \
, i ## a ## lo3 \
, i ## a ## lo4 \
, i ## a ## lo5 ) \
,D_DECL6( i ## a ## hi0 \
, i ## a ## hi1 \
, i ## a ## hi2 \
, i ## a ## hi3 \
, i ## a ## hi4 \
, i ## a ## hi5 )
#define D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
#define CHFt_FRA1 (   a)
Value:
a \
,D_DECL6( i ## a ## lo0 \
, i ## a ## lo1 \
, i ## a ## lo2 \
, i ## a ## lo3 \
, i ## a ## lo4 \
, i ## a ## lo5 ) \
,D_DECL6( i ## a ## hi0 \
, i ## a ## hi1 \
, i ## a ## hi2 \
, i ## a ## hi3 \
, i ## a ## hi4 \
, i ## a ## hi5 )
#define D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
#define CHFt_FCA1 (   a)
Value:
a \
,D_DECL6( i ## a ## lo0 \
, i ## a ## lo1 \
, i ## a ## lo2 \
, i ## a ## lo3 \
, i ## a ## lo4 \
, i ## a ## lo5 ) \
,D_DECL6( i ## a ## hi0 \
, i ## a ## hi1 \
, i ## a ## hi2 \
, i ## a ## hi3 \
, i ## a ## hi4 \
, i ## a ## hi5 )
#define D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
#define CHFt_CONST_FIA1 (   a)
Value:
a \
,D_DECL6( i ## a ## lo0 \
, i ## a ## lo1 \
, i ## a ## lo2 \
, i ## a ## lo3 \
, i ## a ## lo4 \
, i ## a ## lo5 ) \
,D_DECL6( i ## a ## hi0 \
, i ## a ## hi1 \
, i ## a ## hi2 \
, i ## a ## hi3 \
, i ## a ## hi4 \
, i ## a ## hi5 )
#define D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
#define CHFt_CONST_FBA1 (   a)
Value:
a \
,D_DECL6( i ## a ## lo0 \
, i ## a ## lo1 \
, i ## a ## lo2 \
, i ## a ## lo3 \
, i ## a ## lo4 \
, i ## a ## lo5 ) \
,D_DECL6( i ## a ## hi0 \
, i ## a ## hi1 \
, i ## a ## hi2 \
, i ## a ## hi3 \
, i ## a ## hi4 \
, i ## a ## hi5 )
#define D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
#define CHFt_CONST_FRA1 (   a)
Value:
a \
,D_DECL6( i ## a ## lo0 \
, i ## a ## lo1 \
, i ## a ## lo2 \
, i ## a ## lo3 \
, i ## a ## lo4 \
, i ## a ## lo5 ) \
,D_DECL6( i ## a ## hi0 \
, i ## a ## hi1 \
, i ## a ## hi2 \
, i ## a ## hi3 \
, i ## a ## hi4 \
, i ## a ## hi5 )
#define D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
#define CHFt_CONST_FCA1 (   a)
Value:
a \
,D_DECL6( i ## a ## lo0 \
, i ## a ## lo1 \
, i ## a ## lo2 \
, i ## a ## lo3 \
, i ## a ## lo4 \
, i ## a ## lo5 ) \
,D_DECL6( i ## a ## hi0 \
, i ## a ## hi1 \
, i ## a ## hi2 \
, i ## a ## hi3 \
, i ## a ## hi4 \
, i ## a ## hi5 )
#define D_DECL6(a, b, c, d, e, f)
Definition: CHArray.H:39
#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)