home *** CD-ROM | disk | FTP | other *** search
/ Voyagers to the Outer Planets 2: Uranus / VoyagestotheOuterPlanetsVol2.cdr / software / imgindex.for < prev    next >
Text File  |  1988-09-14  |  2KB  |  57 lines
  1. C  INDXTEST:  Test Fortran Formatted Read of Voyager Image Index Table
  2.  
  3.       INTEGER*4    UNIT /10/
  4.       CHARACTER*9  SCNAME
  5.       CHARACTER*17 MSNPHSNM
  6.       CHARACTER*8  TARGETNM
  7.       CHARACTER*10 IMAGEID
  8.       REAL*4       IMAGENUM
  9.       CHARACTER*20 IMAGETM,ETHRCDTM
  10.       CHARACTER*19 INSTRNM
  11.       CHARACTER*7  SCNMODID,SHTMODID,GNMODID,EDTMODID,FILTERNM
  12.       INTEGER*4    FLTRNUM
  13.       REAL*4       EXPOSRDU
  14.       CHARACTER*80 NOTE
  15.       CHARACTER*8  SMPBTMSK
  16.       CHARACTER*6  DATANMTP
  17.       CHARACTER*8  IMGVOLNM,BRSVOLNM
  18.       CHARACTER*31 IMGFILNM
  19.       CHARACTER*38 BRSFILNM
  20.  
  21.       OPEN (10,FILE='IMGINDEX.TAB',STATUS='OLD')
  22.       IREC=0
  23.  
  24.  10   READ (10,100,END=80) SCNAME,MSNPHSNM,TARGETNM,
  25.      1 IMAGEID,IMAGENUM,IMAGETM,ETHRCDTM,INSTRNM,
  26.      2 SCNMODID,SHTMODID,GNMODID,EDTMODID,FILTERNM,
  27.      3 FLTRNUM,EXPOSRDU,NOTE,SMPBTMSK,DATANMTP,
  28.      4 IMGVOLNM,IMGFILNM,BRSVOLNM,BRSFILNM
  29.       IREC=IREC+1
  30.  
  31.  100  FORMAT (1X,A9,3X,A17,3X,A8,
  32.      1 3X,A10,2X,F8.2,2X,A20,3X,A20,3X,A19,
  33.      2 3X,A7,3X,A7,3X,A7,3X,A7,3X,A7,
  34.      3 2X,I4,1X,F7.4,2X,A80,3X,A8,3X,A6,
  35.      4 3X,A8,3X,A31,3X,A8,3X,A38)
  36.  
  37.       WRITE (*,200)IREC,SCNAME,MSNPHSNM,TARGETNM,
  38.      1 IMAGEID,IMAGENUM,IMAGETM,ETHRCDTM,INSTRNM,
  39.      2 SCNMODID,SHTMODID,GNMODID,EDTMODID,FILTERNM,
  40.      3 FLTRNUM,EXPOSRDU,NOTE,SMPBTMSK,DATANMTP,
  41.      4 IMGVOLNM,IMGFILNM,BRSVOLNM,BRSFILNM
  42.  
  43.  200  FORMAT ('0RECORD',I5,1X,A9,3X,A16,3X,A8/
  44.      1 3X,A10,2X,F8.2,2X,A20,3X,A20/
  45.      2 3X,A19,3X,A7,3X,A7,3X,A7,3X,A7,3X,A7/
  46.      3 2X,I4,1X,F7.4/
  47.      4 2X,A80/
  48.      5 3X,A8,3X,A6/
  49.      6 3X,A8,3X,A31/
  50.      6 3X,A8,3X,A38)
  51.  
  52.       GO TO 10
  53.  
  54.  80   CLOSE (10)
  55.       STOP
  56.       END
  57.