implicit none
      character*1 head
      character*300 inline, inline2
      integer i, month, day, year, hour, minute
      real TEMP10, TEMP30, TEMP100, TEMP10F, TEMP30F, TEMP100F,
     -  DTEMP30, DTEMP100, DEWPT10, DEWPT10F, REL_HUM, BP_IN, BP_MB,
     -  SOLAR_LG, SOLARWM2, PRECIP_M, PRECIP_I, WDIR10M, WDIR30M,
     -  WDIR100M, VWDIR10, VWDIR30, VWDIR100, WS10MS, WS30MS, WS100MS,
     -  WSPD10, WSPD30, WSPD100, VWSPD10, VWSPD30, VWSPD100, PKWS10Q,
     -  PKWS30Q, PKWS100Q, SVP, VP, LHV, SMR, MR
      Real STAB, WDrStd10, WDrStd30, WdrStd100

      open(10,file='towc.txt')
      open(20,file='edas3.txt')

c if TowC doesn't have headers, take out this line
      read(10,*) head

      read(10,'(a)') inline2
      if (inline2(16:16) .eq. ',') then
        read(inline2,'(i2,2(1x,i2),2x,2(i2,1x),a)')
     -    month, day, year, hour, minute,inline
      else
        read(inline2,'(i2,2(1x,i2),2x,i1,1x,i2,1x,a)')
     -    month, day, year, hour, minute,inline
      endif

      read(inline,*) 
     -  TEMP10, TEMP30, TEMP100, TEMP10F, TEMP30F, TEMP100F,
     -  DTEMP30, DTEMP100, DEWPT10, DEWPT10F, REL_HUM, BP_IN, BP_MB,
     -  SOLAR_LG, SOLARWM2, PRECIP_M, PRECIP_I, WDIR10M, WDIR30M,
     -  WDIR100M, VWDIR10, VWDIR30, VWDIR100, WS10MS, WS30MS, WS100MS,
     -  WSPD10, WSPD30, WSPD100, VWSPD10, VWSPD30, VWSPD100, PKWS10Q,
     -  PKWS30Q, PKWS100Q, SVP, VP, LHV, SMR, MR

c m/s to mph
      WS10MS = WS10MS * 2.2369
      WS30MS = WS30MS * 2.2369
      WS100MS = WS100MS * 2.2369

      stab = -999.99

      write(20,'(a5,3i2.2,1x,2i2.2,23f8.2,a)')
     - 'TOWC ',month, day, year, hour, minute,
     -  WDIR10M, WDIR30M, -999.990, WDIR100M, WS10MS, WS30MS, -999.99,
     -  WS100MS, TEMP10F, TEMP30F,  -999.990, TEMP100F, REL_HUM, Stab,
     -  -999.99, -999.99, -999.99, -999.99, -999.99, -999.99,
     -  PRECIP_I, BP_IN, SOLAR_LG, ' 0015 00015'
      stop
      end