c********************************************************************
c* FORTRAN 77 data retrieval routine to read and print the files    *           
c* named "*w.txt" (Files 4-12)                                      *
c********************************************************************

c*Defines variables*

       CHARACTER date*10, time*8
       INTEGER course
       REAL latdcm, londcm, speed, temp, salt, press, fco2a, fco2b
       REAL fco2c, fco2d, fco2e, fco2f, fco2g, fco2h
       OPEN (unit=1, file='160696w.txt')
       OPEN (unit=2, file='160696w.dat')
       write (2, 5)
       
c*Writes out column labels*
      
 5     format (5X,'DATE',9X,'TIME',5X,'LATITUDE',3X,'LONGITUDE',
     1 3X,'SPEED',1X,'COURSE',4X,'TEMP',2X,'SALNTY',4X,
     2 'PRESS',4X,8('fCO2',4X),/,5X,'GMT',10X,'GMT',8X,
     3 'DEG N',6X,'DEG E',7X,'KN',3X,'DEG',5X,'DEG C',
     4 2X,'PSS-78',5X,'hPA',5X,8('ľatm',4X),/,
     5 2X,'DD.MM.YYYY',4X,'HH:MM:SS',66X,'LAB A',3X,
     6 'LAB B',3X,'LAB C',3X,'LAB D',3X,'LAB E',3X,
     7 'LAB F',3X,'LAB G',3X,'LAB H')
     
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) date, time, latdcm, londcm, speed,
     1 course, temp, salt, press, fco2a, fco2b, fco2c, fco2d, 
     2 fco2e, fco2f, fco2g, fco2h
     
 10    format (2X, A10, 4X, A8, 4X, F7.4, 4X, F8.4, 4X, F4.1, 
     1 2X, I3, 5X, F5.2, 3X, F5.2, 3X, F6.1, 1X, F7.2, 1X, F7.2,
     2 1X, F7.2, 1X, F7.2, 1X, F7.2, 1X, F7.2, 1X, F7.2, 1X, F7.2)
     
       write (2, 20) date, time, latdcm, londcm, speed,
     1 course, temp, salt, press, fco2a, fco2b, fco2c, fco2d, 
     2 fco2e, fco2f, fco2g, fco2h
     
 20    format (2X, A10, 4X, A8, 4X, F7.4, 4X, F8.4, 4X, F4.1, 
     1 2X, I3, 5X, F5.2, 3X, F5.2, 3X, F6.1, 1X, F7.2, 1X, F7.2,
     2 1X, F7.2, 1X, F7.2, 1X, F7.2, 1X, F7.2, 1X, F7.2, 1X, F7.2)

       GOTO 7
 999   close(unit=1)    
       close(unit=2)
       stop
       end