Actual source code: f90_solaris.h

  1: /* $Id: f90_solaris.h,v 1.3 2000/09/22 18:54:10 balay Exp $ */

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

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

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

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

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


 30: #endif