amroc/hds/DAGHFortranInterfaces.h File Reference

Define the Fortran name mangling convention for various machines. More...

#include <config.h>

Go to the source code of this file.

Defines
#define	FORTRAN_NAME(x, y)   F77_FUNC(x,y)
	Define the Fortran name mangling convention for various compilers.
#define	FORTRAN_NAME_(x, y)   F77_FUNC_(x,y)
#define	DATA_ARGS1(X)   (X).extents()(0)
#define	DATA_ARGS2(X)   (X).extents()(0), (X).extents()(1)
#define	DATA_ARGS3(X)   (X).extents()(0), (X).extents()(1), (X).extents()(2)
#define	ARRAY_ARGS1(X)   (X)[0]
#define	ARRAY_ARGS2(X)   (X)[0], (X)[1]
#define	ARRAY_ARGS3(X)   (X)[0], (X)[1], (X)[2]
#define	DATA_INFS2   INTEGER&, INTEGER&
#define	DATA_INFS3   INTEGER&, INTEGER&, INTEGER&
#define	LOCAL_FORTRAN_ARGS(D, X)
#define	LFA   LOCAL_FORTRAN_ARGS
#define	LOCAL_FORTRAN_INTERFACE(D, T)
#define	LFI   LOCAL_FORTRAN_INTERFACE
#define	LOCAL_BBOX_ARGS(X)
#define	LBA   LOCAL_BBOX_ARGS
#define	LOCAL_BBOX_INTERFACE   INTEGER *, INTEGER *, INTEGER *
#define	LBI   LOCAL_BBOX_INTERFACE
#define	GLOBAL_FORTRAN_ARGS(D, X)
#define	GFA   GLOBAL_FORTRAN_ARGS
#define	GLOBAL_FORTRAN_INTERFACE(D, T)
#define	GFI   GLOBAL_FORTRAN_INTERFACE
#define	GLOBAL_BBOX_ARGS(X)
#define	GBA   GLOBAL_BBOX_ARGS
#define	GLOBAL_BBOX_INTERFACE   INTEGER *, INTEGER *, INTEGER *, INTEGER *
#define	GBI   GLOBAL_BBOX_INTERFACE
#define	WORLD_FORTRAN_ARGS(D, GH, X)
#define	WFA   WORLD_FORTRAN_ARGS
#define	WORLD_FORTRAN_INTERFACE(T)
#define	WFI   WORLD_FORTRAN_INTERFACE
#define	WORLD_BBOX_ARGS(GH, X)
#define	WBA   WORLD_BBOX_ARGS
#define	WORLD_BBOX_INTERFACE   DOUBLE *, DOUBLE *, DOUBLE *, INTEGER *
#define	WBI   WORLD_BBOX_INTERFACE
#define	DATA_ARGUMENT(X)   (X).data()
#define	DA   DATA_ARGUMENT
#define	DATA_INTERFACE(T)   T *
#define	DI   DATA_INTERFACE
#define	FORTRAN_ARGS(D, X)
#define	FA   FORTRAN_ARGS
#define	FORTRAN_INTERFACE(D, T)
#define	FI   FORTRAN_INTERFACE
#define	BOUNDING_BOX(X)
#define	BB   BOUNDING_BOX
#define	BBOX_INTERFACE   INTEGER *, INTEGER *, INTEGER *
#define	BI   BBOX_INTERFACE
#define	FORTRAN_DATA_INTERFACE(T)   T *
#define	FDI   FORTRAN_DATA_INTERFACE
#define	FDA(X)   (X).data()
#define	FBA   BOUNDING_BOX
#define	FA   FORTRAN_ARGS
#define	ARRAY_ARGUMENTS(D, X)   name2(ARRAY_ARGS,D)(X)
#define	AA   ARRAY_ARGUMENTS
Typedefs
typedef void(*	generic_fortran_func )()

---

Detailed Description

Define the Fortran name mangling convention for various machines.

Author:

Manish Parashar

---

Define Documentation

#define AA   ARRAY_ARGUMENTS

#define ARRAY_ARGS1

(

X

)

(X)[0]

#define ARRAY_ARGS2

(

X

)

(X)[0], (X)[1]

#define ARRAY_ARGS3

(

X

)

(X)[0], (X)[1], (X)[2]

#define ARRAY_ARGUMENTS	(	D,
		X		)	name2(ARRAY_ARGS,D)(X)

#define BB   BOUNDING_BOX

#define BBOX_INTERFACE   INTEGER *, INTEGER *, INTEGER *

#define BI   BBOX_INTERFACE

#define BOUNDING_BOX

(

X

)

Value:

(X).lower(), \
                                (X).upper(), \
                                (X).extents()

#define DA   DATA_ARGUMENT

#define DATA_ARGS1

(

X

)

(X).extents()(0)

#define DATA_ARGS2

(

X

)

(X).extents()(0), (X).extents()(1)

#define DATA_ARGS3

(

X

)

(X).extents()(0), (X).extents()(1), (X).extents()(2)

#define DATA_ARGUMENT

(

X

)

(X).data()

#define DATA_INFS2   INTEGER&, INTEGER&

#define DATA_INFS3   INTEGER&, INTEGER&, INTEGER&

#define DATA_INTERFACE

(

T

)

T *

#define DI   DATA_INTERFACE

#define FA   FORTRAN_ARGS

#define FA   FORTRAN_ARGS

#define FBA   BOUNDING_BOX

#define FDA

(

X

)

(X).data()

#define FDI   FORTRAN_DATA_INTERFACE

#define FI   FORTRAN_INTERFACE

#define FORTRAN_ARGS	(	D,
		X		)

Value:

(X).data(), name2(DATA_ARGS,D)(X), \
                                  (X).lower(), \
                                  (X).upper()

#define FORTRAN_DATA_INTERFACE

(

T

)

T *

#define FORTRAN_INTERFACE	(	D,
		T		)

Value:

T *, name2(DATA_INFS,D), \
                                  INTEGER *, INTEGER *

#define FORTRAN_NAME	(	x,
		y		)	F77_FUNC(x,y)

Define the Fortran name mangling convention for various compilers.

#define FORTRAN_NAME_	(	x,
		y		)	F77_FUNC_(x,y)

#define GBA   GLOBAL_BBOX_ARGS

#define GBI   GLOBAL_BBOX_INTERFACE

#define GFA   GLOBAL_FORTRAN_ARGS

#define GFI   GLOBAL_FORTRAN_INTERFACE

#define GLOBAL_BBOX_ARGS

(

X

)

Value:

(X).lower(), \
                                        (X).upper(), \
                                        (X).stepsize(), \
                                        (X).extents()

#define GLOBAL_BBOX_INTERFACE   INTEGER *, INTEGER *, INTEGER *, INTEGER *

#define GLOBAL_FORTRAN_ARGS	(	D,
		X		)

Value:

(X).data(), name2(DATA_ARGS,D)(X), \
                                        (X).lower(), \
                                        (X).upper(), \
                                        (X).stepsize()

#define GLOBAL_FORTRAN_INTERFACE	(	D,
		T		)

Value:

T *,  name2(DATA_INFS,D), \
                                        INTEGER *, INTEGER *, INTEGER *

#define LBA   LOCAL_BBOX_ARGS

#define LBI   LOCAL_BBOX_INTERFACE

#define LFA   LOCAL_FORTRAN_ARGS

#define LFI   LOCAL_FORTRAN_INTERFACE

#define LOCAL_BBOX_ARGS

(

X

)

Value:

(X).lower()/(X).stepsize(), \
                                        (X).upper()/(X).stepsize(), \
                                        (X).extents()

#define LOCAL_BBOX_INTERFACE   INTEGER *, INTEGER *, INTEGER *

#define LOCAL_FORTRAN_ARGS	(	D,
		X		)

Value:

(X).data(), name2(DATA_ARGS,D)(X),\
                                        (X).lower()/(X).stepsize(), \
                                        (X).upper()/(X).stepsize()

#define LOCAL_FORTRAN_INTERFACE	(	D,
		T		)

Value:

T *, name2(DATA_INFS,D), \
                                        INTEGER *, INTEGER *

#define WBA   WORLD_BBOX_ARGS

#define WBI   WORLD_BBOX_INTERFACE

#define WFA   WORLD_FORTRAN_ARGS

#define WFI   WORLD_FORTRAN_INTERFACE

#define WORLD_BBOX_ARGS	(	GH,
		X		)

Value:

(GH).worldCoordsLower((X).lower(),(X).stepsize()), \
                                        (GH).worldCoordsUpper((X).upper(),(X).stepsize()), \
                                        (GH).worldStep((X).stepsize())

#define WORLD_BBOX_INTERFACE   DOUBLE *, DOUBLE *, DOUBLE *, INTEGER *

#define WORLD_FORTRAN_ARGS	(	D,
		GH,
		X		)

Value:

(X).data(), name2(DATA_ARGS,D)(X), \
                                        (GH).worldCoordsLower((X).lower(),(X).stepsize()), \
                                        (GH).worldCoordsUpper((X).upper(),(X).stepsize()), \
                                        (GH).worldStep((X).stepsize())

#define WORLD_FORTRAN_INTERFACE

(

T

)

Value:

T *, name2(DATA_INFS,D), \
                                        DOUBLE *, DOUBLE *, DOUBLE *

---

Typedef Documentation

typedef void(* generic_fortran_func)()