IMPLICIT        NONE
        REAL*4          data (360, 180)
        INTEGER         i,j,k

c       ************************************************
        open(8,file='gpcp_1dd_p1d.200412',
     +  form='unformatted',access='sequential')

c       ************************************************
        DO 110 k=1,31  !days in the month
        read(8) ((data(i,j), i=1,360),j=1,180)
  110   CONTINUE
c       ************************************************

        STOP
        END