program readUV_ers1
c
c   Sample program provides read statements used to read ERS1 AMI
c   scatterometer wind data components.
c
c   The ERS1 AMI data are on a 1080 X 540 element grid with the origin at
c   89.833 degrees North latitude and 0.167 degrees East longitude
c   (i.e., a 1/3 degree by 1/3 degree resolution grid ranging from 89.833
c   degrees North to 89.833 degrees South in latitude and 0.167 degrees 
c   East to 359.833 degrees East in longitude).  There are 12 
c   monthly data files for 1994.
c
c   Declarations:

      integer*2 u(1080,540), v(1080,540)  ! ERS-1 wind vectors in cm/sec.
                                          ! 9999 indicates no data

      real*4 xmin,xmax          ! minimum and maximum u values (m/sec)
 
c   Open & Read a file:

      open(8,file='ers9401_fd.dat',form='unformatted')
      read(8) xmin,xmax
      read(8) u
      read(8) v
      close(8)

c   Print min and max values to console window:

      write(*,*) ' xmin, xmax ',xmin,xmax

c   Print values and convert U & V to meters per second:

      do 100 i = 1, 5
         if ( u(i,270).ne.9999 ) then
            write(*,*) '  u(',i,', 270  ) = ',u(i,270)/100.0 ! meters/sec.
         endif
 100  continue

      do 200 i = 1, 5
         if ( v(i,270).ne.9999 ) then
            write(*,*) '  v(',i,', 270  ) = ',v(i,270)/100.0 ! meters/sec.
         endif
 200  continue

c 
c Example Output from file: ers9401_fd.dat 
c 
c xmin, xmax     1.20000    25.1900
c 
c  u(  1, 270  ) =   -0.590000
c  u(  2, 270  ) =   -0.640000
c  u(  3, 270  ) =   -0.450000
c  u(  4, 270  ) =   -0.280000
c  u(  5, 270  ) =   -0.130000
c 
c  v(  1, 270  ) =     2.67000
c  v(  2, 270  ) =     3.00000
c  v(  3, 270  ) =     2.88000
c  v(  4, 270  ) =     2.79000
c  v(  5, 270  ) =     3.17000
c
	
      stop
      end