cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc    
c     program     :     example.f  
c     objective   :     to read the PREC/L data for 1948    
c 
      dimension    rain(360,180),gauge_num(360,180)  
c
c     1.  to open the data file 
c
      open  (unit=10,file='precl_mon_v1.0.txt.1948', 
     #       access='sequential',status='old',form='formatted') 
c
c     2.  to read the data 
c 
      do 2001 kmon=1,12    
      do 2001 jj=1,180 
      do 2001 ii=1,360 
        read  (10,2901)  kyr,kmn,rlat,rlon, 
     #                   rain(ii,jj),gauge_num(ii,jj) 
 2001 continue 
 2901 format  (2i4,2f8.2,2f8.2) 
c
      stop 
      end  
cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc