cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c program: f77ReadCONUS0.25degSample.f
c to read PRCP_CU_GAUGE_V1.0CONUS_0.25deg.lnx.yyyymmdd.RT
c 1. CPC unified gauge daily analysis over CONUS region
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
   
      dimension rain250(300,120),stnm250(300,120)
c 
      open(10,
     &file='PRCP_CU_GAUGE_V1.0CONUS_0.25deg.lnx.20101020.RT',
     &access='direct',recl=300*120*4)
c
      read(10,rec=1) rain250
      read(10,rec=2) stnm250
c
      i=150
      do j=1,120
       print *,j,' rain= ',rain250(i,j),' stnm= ',stnm250(i,j)
      enddo
c
      stop
      end
ccccccccccccccccccccccccccccccccccccccccccccc