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: }