cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c program: PRCP_CU_GAUGE_V1.0GLB_0.50deg_F77_read_sample.f
c to read PRCP_CU_GAUGE_V1.0GL_0.50deg.lnx.yyyymmdd.RT
c 1. CPC unified gauge daily analysis over global land
c 2. direct access little endian format data
c 3. rec=1, rainfall values in 0.1mm/day
c 4. rec=2, the number of stations in the grid box
c
   
      parameter (nx=720,ny=360)
      dimension rain(nx,ny),stnm(nx,ny)
c 
      open(10,
     &file='PRCP_CU_GAUGE_V1.0GLB_0.50deg.lnx.20060101.RT',
     &access='direct',recl=nx*ny*4)
c
      read(10,rec=1) rain
      read(10,rec=2) stnm
c
      i=500
      do j=240,250
       print *,j,' rain= ',rain(i,j),' stnm= ',stnm(i,j)
      enddo
c
      stop
      end
ccccccccccccccccccccccccccccccccccccccccccccc