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