Actual source code: test_IRIX.c
1: /*$Id: test_IRIX.c,v 1.3 2000/01/11 21:03:59 bsmith Exp $*/
3: #include <stdio.h>
4: #include "../f90_IRIX.h"
6: int *iarray;
7: double *darray;
9: void foo1_(int*a,double *b)
10: {
11: iarray = a;
12: darray = b;
13: }
15: void foo2_(array3d *a,array3d *b)
16: {
17: int i;
18: int *aa = (int*)a;
19: int *bb = (int*)b;
20:
21: printf("Integer Structure Contents: ");
22: for(i = 0; i< 40; i++) printf("%d ",aa[i]);
23: printf("\n\n");
25: if ((int*)a->addr == iarray) printf("Data Address Matches\n");
26: else printf("*** Data Address Mismatch*** \n");
28: printf ("Junk Values a,b,c,d,unknown = %d,%d,%d,%ld,%d\n",a->a,a->b,a->c,a->d,a->unknown);
29: printf("Array ndim = %d,Sizeof(data) = %ld \n", a->ndim,a->sd);
30: printf(" Dim StartIndex Len offset\n");
31:
32: for (i=0; i< a->ndim; i++)
33: printf(" %1d %3ld %4ld %6ld\n",i,a->dim[i].lower,a->dim[i].extent,
34: a->dim[i].mult);
35:
36:
37: printf("\n\nDouble Structure Contents: ");
38: for(i = 0; i< 40; i++) printf("%d ",bb[i]);
39: printf("\n\n");
41: if ((int*)a->addr == iarray) printf("Data Address Matches\n");
42: else printf("*** Data Address Mismatch*** \n");
44: printf ("Junk Values a,b,c,d,unknown = %d,%d,%d,%ld,%d\n",b->a,b->b,b->c,b->d,b->unknown);
45: printf("Array ndim = %d,Sizeof(data) = %ld \n",b->ndim,b->sd);
46: printf(" Dim StartIndex Len offset\n");
47:
48: for (i=0; i< b->ndim; i++)
49: printf(" %1d %3ld %4ld %6ld\n",i,b->dim[i].lower,b->dim[i].extent,
50: b->dim[i].mult);
51:
52: }