c      
c       This dataset is downloaded from  Remote Sensing Systems,
c       3-Day average of Advanced Microwave Scanning Radiometer (AMSR-E):
c       http://www.ssmi.com/amsr/amsr_data_description.html

        program read_data_in_one_file
        parameter (lons=1440,lats=720,kvar=5)
        real*4 data(lons,lats,kvar)

        open(8,file='amsre_20020825v4.dat',
     &  form='unformatted',access='sequential')



        do 120 ivar=1,kvar

        read(8) ((data(i,j,ivar),i=1,lons),j=1,lats)

c       ivar= 
c              1  sea surface temperatures in deg C
c              2  surface wind speed  in  m/s 
c              3  atmospheric water vapor in mm
c              4  cloud liquid water in mm
c              5  rain rate in mm/hour


  120   continue
 
        stop
        end