PROGRAM readbin
      IMPLICIT NONE
      INTEGER IR,IC,MASK(464,224)
      OPEN(98,FILE='IGBPvfcpveg.bin',FORM='UNFORMATTED')
      READ(98)((MASK(IC,IR),IC=1,464),IR=1,224)
      CLOSE(98) 
      END