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