Actual source code: f90_t3e.h

  2: #if !defined (__F90_T3E_H)

  5: #define F90_INT_ID     33570816
  6: #define F90_DOUBLE_ID  50348032
  7: #define F90_COMPLEX_ID 67141632
  8: #define F90_COOKIE     -1744830464

 10: #if !defined (PETSC_COMPLEX)
 11: #define F90_SCALAR_ID F90_DOUBLE_ID
 12: #else
 13: #define F90_SCALAR_ID F90_COMPLEX_ID
 14: #endif

 16: typedef struct {
 17:   long lower;   /* starting index of the fortran array */
 18:   long extent;  /* length of the array */
 19:   long mult;    /* no of datatype units */
 20: } tripple;
 21: 
 22: #define f90_header() \
 23: void* addr;        /* Pointer to the data/array */  \
 24: long  sd;          /* sizeof(DataType) */          \
 25: short cookie;      /* cookie*/                     \
 26: short ndim;        /* No of dimentions */          \
 27: int   id;          /* Integer? double? */          \
 28: int   a,b;


 31: typedef struct {
 32:   f90_header()
 33:   tripple dim[1];
 34: }F90Array1d;

 36: typedef struct {
 37:   f90_header()
 38:   tripple dim[2];
 39: }F90Array2d;

 41: typedef struct {
 42:   f90_header()
 43:   tripple dim[3];
 44: }F90Array3d;

 46: typedef struct {
 47:   f90_header()
 48:   tripple dim[4];
 49: }F90Array4d;

 51: #endif