amroc/hds/DAGHFortranInterfaces.h

Go to the documentation of this file.

// -*- C++ -*-

#ifndef _included_FortranInterfaces_h
#define _included_FortranInterfaces_h

#ifdef AUTOCONF_FORTRAN_NAMES
 /* autoconf porting info */
 #include <config.h>
 #undef inline
 #define FORTRAN_NAME(x,y) F77_FUNC(x,y)
 #define FORTRAN_NAME_(x,y) F77_FUNC_(x,y)
#else
 /* build procedure porting info - kept now only for spitz solver */
 #include <portinfo>
 #if defined(F77EXTERNS_LOWERCASE_TRAILINGBAR)
  #define FORTRAN_NAME(x,y,z,v,w) z ## _
  #define FORTRAN_NAME_(y,z) z ## _
 #elif defined(F77EXTERNS_UPPERCASE_NOTRAILINGBAR)
  #define FORTRAN_NAME(x,y,z,v,w) y
  #define FORTRAN_NAME_(y,z) y
 #elif defined(F77EXTERNS_NOTRAILINGBAR)
  #define FORTRAN_NAME(x,y,z,v,w) z
  #define FORTRAN_NAME_(y,z) z
 #elif defined(F77EXTERNS_EXTRATRAILINGBAR)
  #define FORTRAN_NAME(x,y,z,v,w) z ## __
  #define FORTRAN_NAME_(y,z) z ## __
 #elif defined(F77EXTERNS_COMPAQ_F90)
  #define FORTRAN_NAME(x,y,z,v,w) z ## _
  #define FORTRAN_NAME_(y,z) z ## __
 #else
  #error Unknown translation for FORTRAN external symbols
 #endif
#endif

/* Fortran interface generation macros */
/* Interfaces with local coordinates */
#ifndef DATA_ARGS1
#define DATA_ARGS1(X)           (X).extents()(0)
#endif
#ifndef DATA_ARGS2
#define DATA_ARGS2(X)           (X).extents()(0), (X).extents()(1)
#endif
#ifndef DATA_ARGS3
#define DATA_ARGS3(X)           (X).extents()(0), (X).extents()(1), (X).extents()(2)
#endif

#ifndef ARRAY_ARGS1
#define ARRAY_ARGS1(X)          (X)[0]
#endif
#ifndef ARRAY_ARGS2
#define ARRAY_ARGS2(X)          (X)[0], (X)[1]
#endif
#ifndef ARRAY_ARGS3
#define ARRAY_ARGS3(X)          (X)[0], (X)[1], (X)[2]
#endif

#ifndef DATA_INFS1
#define DATA_INFS1              INTEGER&
#endif
#ifndef DATA_INFS2
#define DATA_INFS2              INTEGER&, INTEGER&
#endif
#ifndef DATA_INFS3
#define DATA_INFS3              INTEGER&, INTEGER&, INTEGER&
#endif

#ifndef LOCAL_FORTRAN_ARGS
#define LOCAL_FORTRAN_ARGS(D,X)         (X).data(), name2(DATA_ARGS,D)(X),\
                                        (X).lower()/(X).stepsize(), \
                                        (X).upper()/(X).stepsize()
#endif
#define LFA                             LOCAL_FORTRAN_ARGS

#ifndef LOCAL_FORTRAN_INTERFACE
#define LOCAL_FORTRAN_INTERFACE(D,T)    T *, name2(DATA_INFS,D), \
                                        INTEGER *, INTEGER *
#endif
#define LFI                             LOCAL_FORTRAN_INTERFACE

#ifndef LOCAL_BBOX_ARGS
#define LOCAL_BBOX_ARGS(X)              (X).lower()/(X).stepsize(), \
                                        (X).upper()/(X).stepsize(), \
                                        (X).extents()
#endif
#define LBA                             LOCAL_BBOX_ARGS

#ifndef LOCAL_BBOX_INTERFACE
#define LOCAL_BBOX_INTERFACE            INTEGER *, INTEGER *, INTEGER *
#endif
#define LBI                             LOCAL_BBOX_INTERFACE

/* Interfaces with global coordinates */
#ifndef GLOBAL_FORTRAN_ARGS
#define GLOBAL_FORTRAN_ARGS(D,X)        (X).data(), name2(DATA_ARGS,D)(X), \
                                        (X).lower(), \
                                        (X).upper(), \
                                        (X).stepsize()
#endif
#define GFA                             GLOBAL_FORTRAN_ARGS

#ifndef GLOBAL_FORTRAN_INTERFACE
#define GLOBAL_FORTRAN_INTERFACE(D,T)   T *,  name2(DATA_INFS,D), \
                                        INTEGER *, INTEGER *, INTEGER *
#endif
#define GFI                             GLOBAL_FORTRAN_INTERFACE

#ifndef GLOBAL_BBOX_ARGS
#define GLOBAL_BBOX_ARGS(X)             (X).lower(), \
                                        (X).upper(), \
                                        (X).stepsize(), \
                                        (X).extents()
#endif
#define GBA                             GLOBAL_BBOX_ARGS

#ifndef GLOBAL_BBOX_INTERFACE
#define GLOBAL_BBOX_INTERFACE           INTEGER *, INTEGER *, INTEGER *, INTEGER *
#endif
#define GBI                             GLOBAL_BBOX_INTERFACE

/* Interfaces with world coordinates */
#ifndef WORLD_FORTRAN_ARGS
#define WORLD_FORTRAN_ARGS(D,GH,X)      (X).data(), name2(DATA_ARGS,D)(X), \
                                        (GH).worldCoordsLower((X).lower(),(X).stepsize()), \
                                        (GH).worldCoordsUpper((X).upper(),(X).stepsize()), \
                                        (GH).worldStep((X).stepsize())
#endif
#define WFA                             WORLD_FORTRAN_ARGS

#ifndef WORLD_FORTRAN_INTERFACE
#define WORLD_FORTRAN_INTERFACE(T)      T *, name2(DATA_INFS,D), \
                                        DOUBLE *, DOUBLE *, DOUBLE *
#endif
#define WFI                             WORLD_FORTRAN_INTERFACE

#ifndef WORLD_BBOX_ARGS
#define WORLD_BBOX_ARGS(GH,X)           (GH).worldCoordsLower((X).lower(),(X).stepsize()), \
                                        (GH).worldCoordsUpper((X).upper(),(X).stepsize()), \
                                        (GH).worldStep((X).stepsize())
#endif
#define WBA                             WORLD_BBOX_ARGS

#ifndef WORLD_BBOX_INTERFACE
#define WORLD_BBOX_INTERFACE            DOUBLE *, DOUBLE *, DOUBLE *, INTEGER *
#endif
#define WBI                             WORLD_BBOX_INTERFACE

/* The data only */
#ifndef DATA_ARGUMENT
#define DATA_ARGUMENT(X)                (X).data() 
#endif
#define DA                              DATA_ARGUMENT

#ifndef DATA_INTERFACE
#define DATA_INTERFACE(T)               T *
#endif
#define DI                              DATA_INTERFACE

/* Original interfaces */
#ifndef FORTRAN_ARGS
#define FORTRAN_ARGS(D,X)         (X).data(), name2(DATA_ARGS,D)(X), \
                                  (X).lower(), \
                                  (X).upper()
#endif
#define FA                        FORTRAN_ARGS

#ifndef FORTRAN_INTERFACE
#define FORTRAN_INTERFACE(D,T)    T *, name2(DATA_INFS,D), \
                                  INTEGER *, INTEGER *
#endif
#define FI                        FORTRAN_INTERFACE

#ifndef BOUNDING_BOX
#define BOUNDING_BOX(X)         (X).lower(), \
                                (X).upper(), \
                                (X).extents()
#endif
#define BB                      BOUNDING_BOX

#ifndef BBOX_INTERFACE
#define BBOX_INTERFACE          INTEGER *, INTEGER *, INTEGER *
#endif
#define BI                      BBOX_INTERFACE

#ifndef FORTRAN_DATA_INTERFACE
#define FORTRAN_DATA_INTERFACE(T)     T *
#endif
#define FDI                     FORTRAN_DATA_INTERFACE

#ifndef FDA
#define FDA(X)                  (X).data()
#endif

#ifndef FBA
#define FBA                     BOUNDING_BOX
#endif

#ifndef FA
#define FA                      FORTRAN_ARGS
#endif

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

#ifndef AA
#define AA                      ARRAY_ARGUMENTS
#endif

extern "C" {
  typedef void (*generic_fortran_func) ();
}


#endif

---