************************************************************
*READO3.FOR: FORTRAN 90 code to read any of the .dat files *
*containing ozone measurements                             *
************************************************************ 

       CHARACTER COLUMNS*82, SITE*3, DTYPE*3
       INTEGER YEAR, DOY, HR, MN, SC
       REAL ALT, LAT, LON, CO, CO_CMDL
       OPEN(UNIT=5,FILE='dc8_00_199404.dat')
       OPEN(UNIT=7,FILE='output.file')
       READ(5,10) COLUMNS
10     FORMAT(//////////////,A82)
       WRITE(7,15)
15     FORMAT(1X,'SITE',2X,'DATA',29X,'ALTITUDE',6X,'LATITUDE',5X,
     1 'LONGITUDE',3X,'CO-LAB',3X,'CO-CMDL',5X,'OZONE',/,1X,'CODE',
     2 2X,'TYPE',2X,'YEAR',2X,'DOY',2X,'HR',2X,'MIN',2X,'SEC',2X,
     3 '(m asl or km)', 2X,'(dec. deg.)',2X,'(dec. deg.)',2X,
     4 '(ppb)',5X,'(ppb)',6X,'(ppb)',/)
20     CONTINUE
       READ(5,25,END=99) SITE, DTYPE, YEAR, DOY, HR, MN, SC, 
     1  ALT, LAT, LON, CO, CO_CMDL, O3 
25     FORMAT(A3,A3,2X,I4,2X,I3,2X,I2,2X,I2,2X,I2,2X,F7.2,3X,
     1 F8.3,3X,F8.3,5X,F6.1,5X,F6.1,5X,F6.1)
       WRITE(7,30) SITE, DTYPE, YEAR, DOY, HR, MN, SC, ALT,
     1  LAT, LON, CO, CO_CMDL,O3 
30     FORMAT(2X,A3,3X,A3,2X,I4,2X,I3,2X,I2,3X,I2,3X,I2,3X,F7.2,
     1 7X,F8.3,6X,F8.3,4X,F6.1,3X,F6.1,5X,F6.1)
       GOTO 20
99     CONTINUE
       CLOSE(UNIT=5)
       CLOSE(UNIT=7)
       STOP
       END