C Test Fortran Formatted Read of Viking Orbiter Lost Image Index Table INTEGER*4 UNIT /10/ CHARACTER*80 FNAME CHARACTER*8 IMAGEID INTEGER*4 IMAGENUM CHARACTER*16 SCNAME CHARACTER*32 MSNPHSNM CHARACTER*8 TARGETNM CHARACTER*20 IMAGETM CHARACTER*20 ETHRCDTM INTEGER*4 ORBNUM CHARACTER*34 INSTRNM CHARACTER*8 GNMODID CHARACTER*8 OSMODID CHARACTER*8 FLDMODID CHARACTER*10 FLTNAME REAL*4 EXPDUR CHARACTER*160 NOTE 1000 FORMAT(' ENTER NAME OF INDEX FILE TO BE DISPLAYED: ') 1020 FORMAT(A) WRITE (*,1000) READ (*,1020) FNAME OPEN (10, FILE=FNAME, STATUS='OLD') IREC = 0 10 READ (10, 100, END=80) IMAGEID, IMAGENUM, SCNAME, 1 MSNPHSNM, TARGETNM, IMAGETM, ETHRCDTM, ORBNUM, 2 INSTRNM, GNMODID, OSMODID, FLDMODID, FLTNAME, 3 EXPDUR, NOTE IREC = IREC + 1 100 FORMAT (1X, A8, 2X, I8, 2X, A16, 1 3X, A32, 3X, A8, 3X, A20, 3X, A20, 2X, I8, 2 2X, A34, 3X, A8, 3X,A8, 3X, A8, 3X, A10, 3 2X, F8.6, 2X, A160) WRITE (*, 200) IREC, IMAGEID, IMAGENUM, SCNAME, 1 MSNPHSNM, TARGETNM, IMAGETM, ETHRCDTM, ORBNUM, 2 INSTRNM, GNMODID, OSMODID, FLDMODID, FLTNAME, 3 EXPDUR, NOTE(1:60), NOTE(61:120), NOTE(121:160) 200 FORMAT (/, ' RECORD ', I5, ': ', A8, 2X, I8, 2X, A16, /, 1 3X, A32, 2X, A8, 2X, A20, /, 3X, A20, 2X, I4, 2 2X, A34, /, 3X, A8, 2X, A8, 2X, A8, 2X, A10, 3 3X, F8.6, /, 4 3X, A60, /, 3X, A60, /, 3X, A40) GO TO 10 80 CLOSE (10) END