*** PGM CONVERTS DATSAV2 SOD FROM ENGLISH TO METRIC UNITS   
*** 
      IMPLICIT INTEGER(A-Z) 
      REAL TTAVG,TDDAVG,SLPAVG,STPAVG,VISAVG,SPDAVG,SPDMAX,GSTALL   
      REAL MAXTMP,MINTMP,PCPTOT,SNDPIN  
      CHARACTER*132 HEADER  
      CHARACTER*1 PCPIND,MAXFLG,MINFLG
      OPEN (11,FILE='daily.dat')
      OPEN (21,FILE='daily-met.dat')
      READ (11,810) HEADER  
810   FORMAT (A132) 
      WRITE (21,810) HEADER 
*** 
2     READ (11,800,END=99) STN,YR,MO,DA,TTAVG,TTCNT,
     - TDDAVG,TDDCNT,SLPAVG,SLPCNT,STPAVG,STPCNT,VISAVG,VISCNT, 
     - SPDAVG,SPDCNT,   
     - SPDMAX,GSTALL,MAXTMP,MAXFLG,MINTMP,MINFLG,PCPTOT,PCPIND, 
     - SNDPIN,FOG,RAIN,SNOW,HAIL,THNDER,TORN
800    FORMAT (I6.6,2X,I4.4,I2.2,I2.2,2X,F6.1,1X,I2,2X,F6.1,1X, 
     - I2,2X,F6.1,1X,I2,2X,F6.1,1X,I2,2X,F5.1,1X,I2,2X, 
     - F5.1,1X,I2,  
     - 2X,F5.1,2X,F5.1,2X,F6.1,A1,1X,F6.1,A1,1X,F5.2,A1,1X,  
     - F5.1,2X,6I1)  
       IF (TTAVG .NE. 9999.9) TTAVG = (TTAVG - 32.) / 1.8   
       IF (TDDAVG .NE. 9999.9) TDDAVG = (TDDAVG - 32.) / 1.8
       IF (VISAVG .NE. 999.9) VISAVG = VISAVG / .6214   
       IF (SPDAVG .NE. 999.9) SPDAVG = SPDAVG / 1.9425  
       IF (SPDMAX .NE. 999.9) SPDMAX = SPDMAX / 1.9425  
       IF (GSTALL .NE. 999.9) GSTALL = GSTALL / 1.9425  
       IF (MAXTMP .NE. 9999.9) MAXTMP = (MAXTMP - 32.) / 1.8
       IF (MINTMP .NE. 9999.9) MINTMP = (MINTMP - 32.) / 1.8
       IF (PCPTOT .EQ. 99.99) PCPTOT = 999.9
       IF (PCPTOT .NE. 999.9) PCPTOT = PCPTOT * 25.4
       IF (SNDPIN .NE. 999.9) SNDPIN = SNDPIN * 2.54
      WRITE (21,900) STN,YR,MO,DA,TTAVG,TTCNT,  
     - TDDAVG,TDDCNT,SLPAVG,SLPCNT,STPAVG,STPCNT,VISAVG,VISCNT, 
     - SPDAVG,SPDCNT,   
     - SPDMAX,GSTALL,MAXTMP,MAXFLG,MINTMP,MINFLG,PCPTOT,PCPIND, 
     - SNDPIN,FOG,RAIN,SNOW,HAIL,THNDER,TORN
900    FORMAT (I6.6,2X,I4.4,I2.2,I2.2,2X,F6.1,1X,I2,2X,F6.1,1X, 
     - I2,2X,F6.1,1X,I2,2X,F6.1,1X,I2,2X,F5.1,1X,I2,2X, 
     - F5.1,1X,I2,  
     - 2X,F5.1,2X,F5.1,2X,F6.1,A1,1X,F6.1,A1,1X,F5.1,A1,1X,  
     - F5.1,2X,6I1)  
      GO TO 2   
99    STOP  
      END