program readaari

      parameter (width = 721, height = 721, scale = 0.01)

      integer*2 lat(height, width), lon(height, width)


      open(unit=1, file='aarilats.bin', form='system')
      read(1) lat

      open(unit=2, file='aarilons.bin', form='system')
      read(2) lon

      close(1)
      close(2)


      write(*,*) 'row, column, lat, lon'
      write(*,*) 721, 721, scale*lat(721,721), scale*lon(721,721)
      write(*,*) 1, 1, scale*lat(1,1), scale*lon(1,1)
      write(*,*) 1, 721, scale*lat(1,721), scale*lon(1,721)
      write(*,*) 721, 1, scale*lat(721,1), scale*lon(721,1)
      write(*,*) 361, 361, scale*lat(361,361), scale*lon(361,361)

      end