program read_FSUsm
C+++++Read Former Soviet Union (FSU) Soil Moisture data from 1958 through 2002. 
C+++++The missing data is filled with 999. 
C+++++This file is created by Mingquan Mu on 9/12/2002.
c**********************************************************
c***** integer file (nreg, iyear,  mon,idec)
        dimension iw(0:170,1958:2002,1:12,1:3)	 
	dimension slat(0:170),slon(0:170)
	dimension win(0:170),spr(0:170),ratio(0:170),forest(0:170)
	integer jm(36),jd(36)
	integer area(0:170),arab(0:170)
	character*80 stat(0:170)
	
C------------------------------------------------------------------------------
C+++ filename: winter100_1958-2002.txt, winter20_1958-2002.txt,
C+++             spring100_1958-2002.txt, spring20_1958-2002.txt,
C+++ In the file names, spring (winter) represents spring (winter) cereals,
C+++ and 100 (20) is the layer of 100 cm (20 cm).
C------------------------------------------------------------------------------

         open(3,file='filename',form='formatted')

          read(3,100) 
          do k=0,170
           read (3,220) ik,stat(k),slat(k),slon(k),area(k),arab(k),
     +                win(k),spr(k),ratio(k),forest(k)
          enddo
          do k=0,170
             read (3,*) 
             read (3,*) 
	     read (3, 200) (jm(i),jd(i), i=1,36)  
             do iy=1958,2002
                read (3,210) iiy,((iw(k,iy,im,i),
     +                  i=1,3),im=1,12)
	     enddo
	  enddo
          close(3)

 100    format(4(/))
 200    format(5X,36(I2,1X,I1,1X))
 210    format(I4,1X,36(1X,I3,1X))
 220    format (I3,2X,A28,2X,f5.2,1X,f7.2,2X,I6,3x,I5,1x,f6.1,3x,
     +        F6.1,1x,f5.2,2x,f6.1) 
	
      stop      
      end