c****************************************************************
c* FORTRAN 77 data retrieval routine to read and print the      *
c* file named "a16csta.dat"                                     *
c**************************************************************** 

       INTEGER stat, cast, depth 
       CHARACTER expo*11, sect*4, date*10, time*4
       REAL latdcm, londcm
       OPEN (unit=1, file='a16csta.dat')
       OPEN (unit=2, file='a16csta.data')

c*Sets up a loop to read and format all the data in the file*

       read (1, 6)
 6     format (////////////)

 7     CONTINUE    
       read (1, 10, end=999) expo, sect, stat, cast, date, time,
     1 latdcm, londcm, depth 
 
 10    format (A11, 2X, A4, 3X, I3, 5X, I1, 3X, A10, 2X, A4, 3X,
     1 F7.3, 3X, F8.3, 3X, I4)
        
       write (2, 20) expo, sect, stat, cast, date, time, latdcm, 
     1 londcm, depth

 20    format (A11, 2X, A4, 3X, I3, 5X, I1, 3X, A10, 2X, A4, 3X,
     1 F7.3, 3X, F8.3, 3X, I4)
    
       GOTO 7
 999   close(unit=1)    
       close(unit=2)
       stop
       end