C FORTRAN program to read the USSR 6- and 3-hourly data files
C
      INTEGER WMO,YEAR, MONTH, DAY, HOUR, RH, RHQF, VAPORP,VAPQF,
     * SLP, SLPQF, HDEF, HDEFQF, PCHR, PCHRQF, PTND,
     * PTNDQF, VIS, VISCF, VISQF, HCLD, HCLDCF, HCLDQF, TDEW,          
     * TDEWQF, GRND, GRNDQF, TCLD, TCLDCF, TCLDQF, LCLD, LCLDCF,
     * LCLDQF, WDIR, WDIRQF, WSPD, WSPDQF, PRCP, PRCPCF, PRCPQF,
     * STAP, STAPQF, SOILT, SOILQF, W, WCF, WQF, WW, WWQF, AIRT,
     * AIRTQF, APH1, APH1CF, APH1QF, APH2, APH2CF, APH2QF, APH3,
     * APH3CF, APH3QF, APH4, APH4CF, APH4QF, APH5, APH5CF,
     * APH5QF, APH6, APH6CF, APH6QF, APH7, APH7CF, APH7QF, CLDH,       
     * CLDHCF, CLDHQF, CLDM, CLDMQF, CLDL1, CLDL1F, CLDL2,
     * CLDL2F, CLDL3, CLDL3F, WIR, WIRF
      OPEN (UNIT=1, FILE='ussr01.dat')
      OPEN (UNIT=2, FILE='data.out')
      numrec=0
   10 READ(1,100,END=99)WMO,YEAR,MONTH,DAY,HOUR,RH,RHQF,VAPORP,
     * VAPQF, SLP, SLPQF, HDEF, HDEFQF, PCHR, PCHRQF, PTND,            
     * PTNDQF, VIS, VISCF, VISQF, HCLD, HCLDCF, HCLDQF,
     * TDEW, TDEWQF, GRND, GRNDQF, TCLD, TCLDCF, TCLDQF, LCLD,         
     * LCLDCF, LCLDQF, WDIR, WDIRQF, WSPD, WSPDQF, PRCP, PRCPCF,
     * PRCPQF, STAP, STAPQF, SOILT, SOILQF, W, WCF, WQF, WW, 
     * WWQF, AIRT, AIRTQF, APH1, APH1CF, APH1QF, APH2, APH2CF,
     * APH2QF, APH3, APH3CF, APH3QF, APH4, APH4CF, APH4QF, APH5,       
     * APH5CF, APH5QF, APH6, APH6CF, APH6QF, APH7, APH7CF,
     * APH7QF, CLDH, CLDHCF, CLDHQF, CLDM, CLDMQF, CLDL1, CLDL1F,      
     * CLDL2, CLDL2F, CLDL3, CLDL3F, WIR, WIRF   
  100 FORMAT (I5, I3, 3I2, 2(I3,I1), I5, I1, I3, 3I1, I3, I1, I2,
     * 2I1, I2, 2I1, I3, 3I1, 2(I2,2I1), 2(I2,I1), I4, 2I1, I5, I1,
     * I3, 4I1, I2, I1, I4, 35I1)
      write(2,100)WMO,YEAR,MONTH,DAY,HOUR,RH,RHQF,VAPORP,
     * VAPQF, SLP, SLPQF, HDEF, HDEFQF, PCHR, PCHRQF, PTND,            
     * PTNDQF, VIS, VISCF, VISQF, HCLD, HCLDCF, HCLDQF,
     * TDEW, TDEWQF, GRND, GRNDQF, TCLD, TCLDCF, TCLDQF, LCLD,         
     * LCLDCF, LCLDQF, WDIR, WDIRQF, WSPD, WSPDQF, PRCP, PRCPCF,
     * PRCPQF, STAP, STAPQF, SOILT, SOILQF, W, WCF, WQF, WW, 
     * WWQF, AIRT, AIRTQF, APH1, APH1CF, APH1QF, APH2, APH2CF,
     * APH2QF, APH3, APH3CF, APH3QF, APH4, APH4CF, APH4QF, APH5,       
     * APH5CF, APH5QF, APH6, APH6CF, APH6QF, APH7, APH7CF,
     * APH7QF, CLDH, CLDHCF, CLDHQF, CLDM, CLDMQF, CLDL1, CLDL1F,      
     * CLDL2, CLDL2F, CLDL3, CLDL3F, WIR, WIRF   
      numrec=numrec + 1
      if (numrec.gt.100) go to 99
      GO TO 10
   99 STOP
      END
