c    TRMM 3B43 V6: monthly accumulated rain of TRMM and other data source
c    http://daac.gsfc.nasa.gov/precipitation/TRMM_README/
c           TRMM_3B43_readme.shtml

c    1) description of the data
c        rr(i,j):  Monthly accumulated rain [mm/hr]
c        er(i,j):  relative error (mm/hr)
c    2) coverage:
c        179.875S => 179.875E
c        49.875S  => 49.875N
c      January 1998 to January, 2007
c    3) resolution:
c        0.25 deg lat x 0.25 deg lon
c    4) missing values: -9999.0
c    5) example program

      parameter (lons=1440,lats=400) 
      real*4  rr(lons,lats),er(lons,lats)

      open(21,file='3B43.000101.6.dat',
     &  form='unformatted',access='sequential')

      read(21) ((rr(i,j),i=1,lons),j=1,lats)
      read(21) ((er(i,j),i=1,lons),j=1,lats)

      write(6,*) rr(720,200)
      write(6,*) er(720,200)
 180  continue

       stop
       end

c       Contact:
c       Yongsheng Zhang: yshzhang@hawaii.edu
c       March 15, 2007