program main
      
      real array(201,111), u(201,111,14), v(201,111,14), t(201,111,14), 
     & q(201,111,14), pstar(201,111)

      integer iarray(201,111)
      
      do iday=1,20

      do iii=1,57

      do ix=1,201
c      write (6,*) iii, ix
      read (71,771) (iarray(ix,iy), iy=1,111)
      enddo
771   format (8I7)
 
      if (iii.le.14) then
      
      do ix=1,201
      do iy=1,111
      u(ix,iy,iii) = 0.01*iarray(ix,iy)
      if (iarray(ix,iy).lt.-99990) u(ix,iy,iii)=-9999.
      enddo
      enddo
      endif

      if (iii.gt.14.and.iii.le.28) then
      do ix=1,201
      do iy=1,111
      v(ix,iy,iii-14) = 0.01*iarray(ix,iy)
      if (iarray(ix,iy).lt.-99990) v(ix,iy,iii-14)=-9999.
      enddo
      enddo
      endif

      if (iii.gt.28.and.iii.le.42) then
      do ix=1,201
      do iy=1,111
      t(ix,iy,iii-28) = 0.01*iarray(ix,iy)
      if (iarray(ix,iy).lt.-99990) t(ix,iy,iii-28)=-9999.
      enddo
      enddo
      endif


      if (iii.gt.42.and.iii.le.56) then
      do ix=1,201
      do iy=1,111
      q(ix,iy,iii-42) = iarray(ix,iy)/10000000.
      if (iarray(ix,iy).lt.-99990) q(ix,iy,iii-42)=-9999.
      enddo
      enddo
      endif

      if (iii.eq.57) then
      do ix=1,201
      do iy=1,111
      pstar(ix,iy) = 0.01*iarray(ix,iy)
      enddo
      enddo
      endif


      enddo


      write (6,666) iday
666   format (' day=', i3)

      write (6,*) u(1,1,1), u(201,111,14)
      write (6,*) v(1,1,1), v(201,111,14)
      write (6,*) t(1,1,1), t(201,111,14)
      write (6,*) q(1,1,1), q(201,111,14)
      write (6,*) pstar(1,1), pstar(201,111)

      enddo

      stop
      end