lib / src / BoxTools

FORT_PROTO.H File Reference

#include "REAL.H"
#include "SPACE.H"

Include dependency graph for FORT_PROTO.H:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Defines

#define FORTRAN_NAME(NAME,name)   name

#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_FIA(a)

#define CHF_FRA(a)

#define CHF_FCA(a)

#define CHF_CONST_FIA(a)

#define CHF_CONST_FRA(a)

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

#define CHF_BOX ( b )

Value:
D_DECL( &b.loVect()[0] \ ,&b.loVect()[1] \ ,&b.loVect()[2] ) \ ,D_DECL( &b.hiVect()[0] \ ,&b.hiVect()[1] \ ,&b.hiVect()[2] )

#define CHF_C1D ( ra,
dimen ) ra,(const int*)chfptr(dimen-1)

#define CHF_COMPLEX ( c ) &c

#define CHF_COMPLEXVECT ( a ) a.dataPtr( )

#define CHF_CONST_C1D ( ra,
dimen ) ra,(const int*)chfptr(dimen-1)

#define CHF_CONST_COMPLEX ( c ) &c

#define CHF_CONST_COMPLEXVECT ( a ) a.dataPtr( )

#define CHF_CONST_FCA ( a )

Value:
a.dataPtr( 0 ) \ ,D_DECL( &a.loVect()[0] \ ,&a.loVect()[1] \ ,&a.loVect()[2] ) \ ,D_DECL( &a.hiVect()[0] \ ,&a.hiVect()[1] \ ,&a.hiVect()[2] ) \ ,a.nCompPtr()

#define CHF_CONST_FCA1 ( a,
n )

Value:
a.dataPtr( n ) \ ,D_DECL( &a.loVect()[0] \ ,&a.loVect()[1] \ ,&a.loVect()[2] ) \ ,D_DECL( &a.hiVect()[0] \ ,&a.hiVect()[1] \ ,&a.hiVect()[2] )

#define CHF_CONST_FIA ( a )

Value:
a.dataPtr( 0 ) \ ,D_DECL( &a.loVect()[0] \ ,&a.loVect()[1] \ ,&a.loVect()[2] ) \ ,D_DECL( &a.hiVect()[0] \ ,&a.hiVect()[1] \ ,&a.hiVect()[2] ) \ ,a.nCompPtr()

#define CHF_CONST_FIA1 ( a,
n )

Value:
a.dataPtr( n ) \ ,D_DECL( &a.loVect()[0] \ ,&a.loVect()[1] \ ,&a.loVect()[2] ) \ ,D_DECL( &a.hiVect()[0] \ ,&a.hiVect()[1] \ ,&a.hiVect()[2] )

#define CHF_CONST_FRA ( a )

Value:
a.dataPtr( 0 ) \ ,D_DECL( &a.loVect()[0] \ ,&a.loVect()[1] \ ,&a.loVect()[2] ) \ ,D_DECL( &a.hiVect()[0] \ ,&a.hiVect()[1] \ ,&a.hiVect()[2] ) \ ,a.nCompPtr()

#define CHF_CONST_FRA1 ( a,
n )

Value:
a.dataPtr( n ) \ ,D_DECL( &a.loVect()[0] \ ,&a.loVect()[1] \ ,&a.loVect()[2] ) \ ,D_DECL( &a.hiVect()[0] \ ,&a.hiVect()[1] \ ,&a.hiVect()[2] )

#define CHF_CONST_I1D ( ia,
dimen ) ia,(const int*)chfptr(dimen-1)

#define CHF_CONST_INT ( i ) &i

#define CHF_CONST_INTVECT ( a ) a.dataPtr( )

#define CHF_CONST_R1D ( ra,
dimen ) ra,(const int*)chfptr(dimen-1)

#define CHF_CONST_REAL ( r ) &r

#define CHF_CONST_REALVECT ( a ) a.dataPtr( )

#define CHF_CONST_VC ( v ) &v[0],(const int*)chfptr(v.size()-1)

#define CHF_CONST_VI ( v ) &v[0],(const int*)chfptr(v.size()-1)

#define CHF_CONST_VR ( v ) &v[0],(const int*)chfptr(v.size()-1)

#define CHF_FCA ( a )

Value:
a.dataPtr( 0 ) \ ,D_DECL( &a.loVect()[0] \ ,&a.loVect()[1] \ ,&a.loVect()[2] ) \ ,D_DECL( &a.hiVect()[0] \ ,&a.hiVect()[1] \ ,&a.hiVect()[2] ) \ ,a.nCompPtr()

#define CHF_FCA1 ( a,
n )

Value:
a.dataPtr( n ) \ ,D_DECL( &a.loVect()[0] \ ,&a.loVect()[1] \ ,&a.loVect()[2] ) \ ,D_DECL( &a.hiVect()[0] \ ,&a.hiVect()[1] \ ,&a.hiVect()[2] )

#define CHF_FIA ( a )

Value:
a.dataPtr( 0 ) \ ,D_DECL( &a.loVect()[0] \ ,&a.loVect()[1] \ ,&a.loVect()[2] ) \ ,D_DECL( &a.hiVect()[0] \ ,&a.hiVect()[1] \ ,&a.hiVect()[2] ) \ ,a.nCompPtr()

#define CHF_FIA1 ( a,
n )

Value:
a.dataPtr( n ) \ ,D_DECL( &a.loVect()[0] \ ,&a.loVect()[1] \ ,&a.loVect()[2] ) \ ,D_DECL( &a.hiVect()[0] \ ,&a.hiVect()[1] \ ,&a.hiVect()[2] )

#define CHF_FRA ( a )

Value:
a.dataPtr( 0 ) \ ,D_DECL( &a.loVect()[0] \ ,&a.loVect()[1] \ ,&a.loVect()[2] ) \ ,D_DECL( &a.hiVect()[0] \ ,&a.hiVect()[1] \ ,&a.hiVect()[2] ) \ ,a.nCompPtr()

#define CHF_FRA1 ( a,
n )

Value:
a.dataPtr( n ) \ ,D_DECL( &a.loVect()[0] \ ,&a.loVect()[1] \ ,&a.loVect()[2] ) \ ,D_DECL( &a.hiVect()[0] \ ,&a.hiVect()[1] \ ,&a.hiVect()[2] )

#define CHF_I1D ( ia,
dimen ) ia,(const int*)chfptr(dimen-1)

#define CHF_INT ( i ) &i

#define CHF_INTVECT ( a ) a.dataPtr( )

#define CHF_R1D ( ra,
dimen ) ra,(const int*)chfptr(dimen-1)

#define CHF_REAL ( r ) &r

#define CHF_REALVECT ( a ) a.dataPtr( )

#define CHF_VC ( v ) &v[0],(const int*)chfptr(v.size()-1)

#define CHF_VI ( v ) &v[0],(const int*)chfptr(v.size()-1)

#define CHF_VR ( v ) &v[0],(const int*)chfptr(v.size()-1)

#define CHFp_BOX ( b )

Value:
D_DECL( const int* const i ## b ## lo0 \ ,const int* const i ## b ## lo1 \ ,const int* const i ## b ## lo2 ) \ ,D_DECL( const int* const i ## b ## hi0 \ ,const int* const i ## b ## hi1 \ ,const int* const i ## b ## hi2 )

#define CHFp_C1D ( ra,
dimen ) Complex* const ra, const int* const i ## ra ## hi0

#define CHFp_COMPLEX ( c ) Complex* const c

#define CHFp_COMPLEXVECT ( r ) Complex* const r

#define CHFp_CONST_C1D ( ra,
dimen ) const Complex* const ra, const int* const i ## ra ## hi0

#define CHFp_CONST_COMPLEX ( c ) const Complex* const c

#define CHFp_CONST_COMPLEXVECT ( r ) const Complex* const r

#define CHFp_CONST_FCA ( a )

Value:
const Complex *const a \ ,D_DECL( const int* const i ## a ## lo0 \ ,const int* const i ## a ## lo1 \ ,const int* const i ## a ## lo2 ) \ ,D_DECL( 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_FCA1 ( a )

Value:
const Complex *const a \ ,D_DECL( const int* const i ## a ## lo0 \ ,const int* const i ## a ## lo1 \ ,const int* const i ## a ## lo2 ) \ ,D_DECL( const int* const i ## a ## hi0 \ ,const int* const i ## a ## hi1 \ ,const int* const i ## a ## hi2 )

#define CHFp_CONST_FIA ( a )

Value:
const int *const a \ ,D_DECL( const int* const i ## a ## lo0 \ ,const int* const i ## a ## lo1 \ ,const int* const i ## a ## lo2 ) \ ,D_DECL( 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_FIA1 ( a )

Value:
const int *const a \ ,D_DECL( const int* const i ## a ## lo0 \ ,const int* const i ## a ## lo1 \ ,const int* const i ## a ## lo2 ) \ ,D_DECL( const int* const i ## a ## hi0 \ ,const int* const i ## a ## hi1 \ ,const int* const i ## a ## hi2 )

#define CHFp_CONST_FRA ( a )

Value:
const Real *const a \ ,D_DECL( const int* const i ## a ## lo0 \ ,const int* const i ## a ## lo1 \ ,const int* const i ## a ## lo2 ) \ ,D_DECL( 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_FRA1 ( a )

Value:
const Real *const a \ ,D_DECL( const int* const i ## a ## lo0 \ ,const int* const i ## a ## lo1 \ ,const int* const i ## a ## lo2 ) \ ,D_DECL( const int* const i ## a ## hi0 \ ,const int* const i ## a ## hi1 \ ,const int* const i ## a ## hi2 )

#define CHFp_CONST_I1D ( ia,
dimen ) const int* const ia, const int* const i ## ia ## hi0

#define CHFp_CONST_INT ( i ) const int* const i

#define CHFp_CONST_INTVECT ( r ) const int* const r

#define CHFp_CONST_R1D ( ra,
dimen ) const Real* const ra, const int* const i ## ra ## hi0

#define CHFp_CONST_REAL ( r ) const Real* const r

#define CHFp_CONST_REALVECT ( r ) const Real* const r

#define CHFp_CONST_VC ( v ) const Complex * 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_CONST_VR ( v ) const Real * const v, const int* const i ## v ## hi0

#define CHFp_FCA ( a )

Value:
Complex *const a \ ,D_DECL( const int* const i ## a ## lo0 \ ,const int* const i ## a ## lo1 \ ,const int* const i ## a ## lo2 ) \ ,D_DECL( 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_FCA1 ( a )

Value:
Complex *const a \ ,D_DECL( const int* const i ## a ## lo0 \ ,const int* const i ## a ## lo1 \ ,const int* const i ## a ## lo2 ) \ ,D_DECL( const int* const i ## a ## hi0 \ ,const int* const i ## a ## hi1 \ ,const int* const i ## a ## hi2 )

#define CHFp_FIA ( a )

Value:
int *const a \ ,D_DECL( const int* const i ## a ## lo0 \ ,const int* const i ## a ## lo1 \ ,const int* const i ## a ## lo2 ) \ ,D_DECL( 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_FIA1 ( a )

Value:
int *const a \ ,D_DECL( const int* const i ## a ## lo0 \ ,const int* const i ## a ## lo1 \ ,const int* const i ## a ## lo2 ) \ ,D_DECL( const int* const i ## a ## hi0 \ ,const int* const i ## a ## hi1 \ ,const int* const i ## a ## hi2 )

#define CHFp_FRA ( a )

Value:
Real *const a \ ,D_DECL( const int* const i ## a ## lo0 \ ,const int* const i ## a ## lo1 \ ,const int* const i ## a ## lo2 ) \ ,D_DECL( 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_FRA1 ( a )

Value:
Real *const a \ ,D_DECL( const int* const i ## a ## lo0 \ ,const int* const i ## a ## lo1 \ ,const int* const i ## a ## lo2 ) \ ,D_DECL( const int* const i ## a ## hi0 \ ,const int* const i ## a ## hi1 \ ,const int* const i ## a ## hi2 )

#define CHFp_I1D ( ia,
dimen ) int* const ia, const int* const i ## ia ## hi0

#define CHFp_INT ( i ) int* const i

#define CHFp_INTVECT ( r ) int* const r

#define CHFp_R1D ( ra,
dimen ) Real* const ra, const int* const i ## ra ## hi0

#define CHFp_REAL ( r ) Real* const r

#define CHFp_REALVECT ( r ) Real* const r

#define CHFp_VC ( v ) Complex * const v, const int* const i ## v ## hi0

#define CHFp_VI ( v ) int * const v, const int* const i ## v ## hi0

#define CHFp_VR ( v ) Real * const v, const int* const i ## v ## hi0

#define FORTRAN_NAME ( NAME,
name ) name

Generated on Wed Oct 5 13:54:53 2005 for Chombo&AMRSelfGravity by

1.4.1


Defines
#define	FORTRAN_NAME(NAME,name) name
#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_FIA(a)
#define	CHF_FRA(a)
#define	CHF_FCA(a)
#define	CHF_CONST_FIA(a)
#define	CHF_CONST_FRA(a)
#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)