program NLDASmask_CONUS_read

      implicit none

! Program to read in NLDAS mask over CONUS
! Data is big_endian binary 4-byte real
! Value of mask: [0 = outside of CONUS; 1 = inside of CONUS]
! Lower-left of grid is mask(1,1)
! Upper-right of grid is mask(464,224)
      real*4 mask(464,224)

      open(98,file='NLDASmask_CONUS.bin',form='unformatted')
      read(98) mask
      close(98)

      stop
      end program NLDASmask_CONUS_read