home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Applications / UIFlow 1.0.1 / UIFlow Source / VSet2.0 / temp / testf.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-12-12  |  1.1 KB  |  53 lines  |  [TEXT/????]
  1. #include "vg.h"
  2. #define MAXF 3
  3.  
  4. main() {
  5. DF * f[MAXF];
  6. char fs[MAXF][100];
  7. VGROUP * vg[MAXF];
  8. VDATA  * vs[MAXF];
  9. char ss[50];
  10. int i,j,k,s;
  11. float bb[MAXF][500];
  12. int nfiles;
  13. int nvals;
  14. int diff;
  15. float fval;
  16.  
  17. nfiles = 2;
  18. nvals = 210;
  19. for(j=0;j<MAXF;j++) for(i=0;i<500;i++) bb[j][i] = -55.0;
  20.  
  21. for(i=0;i<nfiles;i++) {
  22.   sprintf(fs[i],"f%d.hdf",i+1);
  23.   if( NULL==(f[i]=DFopen(fs[i],DFACC_READ,0))) 
  24.     { printf(" %s open err\n",fs[i]); exit(0); }
  25.   setjj();
  26.  
  27.   vs[i] = (VDATA*) VSattach(f[i],2,"r"); if(vs[i]==NULL) printf("is null!\n");
  28.   s = VSsetfields(vs[i],"PX");
  29.   printf("stefields status: %d\n",s);
  30.   s = VSread (vs[i],bb[i],nvals,FULL_INTERLACE);
  31.   printf("read status: %d\n",s);
  32.  
  33.   VSdetach(vs[i]);
  34.   DFclose(f[i]);
  35.   }
  36. printf("These are PX vdata values read from each of the %d files:\n",nfiles);
  37. for(j=0;j<nvals; j++) {
  38.     printf("%03d: ", j);
  39.     /* check if different */
  40.     fval = bb[0][j]; diff = 0;
  41.     for(i=0;i<nfiles;i++) {
  42.         if( fval!=bb[i][j]) { diff = 1; break; }
  43.     }
  44.     /* print data vlues */
  45.     if (diff) 
  46.         for(i=0;i<nfiles;i++) { printf("%f ", bb[i][j]); }
  47.     else
  48.         printf("%f ", fval); 
  49.     printf("\n");
  50.     }
  51. }
  52.  
  53.