Actual source code: f90_solaris.h

  2: #if !defined (__F90_SOLARIS_H)
  4: 
  5: #define f90_header(dim) \
  6: void*   addr;        /* Pointer to the data */ \
  7: long    extent[dim]; /* length of array */ \
  8: long    mult[dim];   /* stride in bytes */ \
  9: void*   addr_d;      /* addr -sumof(lower*mult) */ \
 10: long    lower[dim];  

 12: typedef struct {
 13:   f90_header(1)   /* dim1 */
 14: }F90Array1d;

 16: typedef struct {
 17:   f90_header(2)   /* dim1,dim2 */
 18: }F90Array2d;

 20: typedef struct {
 21:   f90_header(3)    /* dim1,dim2,dim3 */
 22: }F90Array3d;

 24: typedef struct {
 25:   f90_header(4)   /* dim1,dim2,dim3,dim4 */
 26: }F90Array4d;


 29: #endif