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