subroutine plvel(ichk1,ichk2,jchk1,jchk2,u,v,macx,macy,t,sub)
      implicit real*8(a-h,o-z),integer(i-n)
      real*8 u(macx,macy),v(macx,macy)
      character*6 sub
c00006000100000000020000000003000000000400000000050000000006000000000700
      ispan=ichk2-ichk1+1
      loop=ispan/11
      if (11*loop.lt.ispan) loop=loop+1
      do 100 iloop=1,loop
        i1=(iloop-1)*11+ichk1
        i2=min0(i1+10,ichk2)
        write(10,1000)t,sub,i1,i2,jchk2,jchk1
        do 210 j=jchk2,jchk1,-1
210     write(10,3000)(u(i,j),i=i1,i2)
        write(11,2000)t,sub,i1,i2,jchk2,jchk1
        do 220 j=jchk2,jchk1,-1
220     write(11,3000)(v(i,j),i=i1,i2)
100   continue
      return
1000  format('t=',1pe12.5,3x,a6,3x,'u(i,j)',3x
     2       ,'i=',i3,'-->',i3,3x,'j=',i3,'-->',i3)
2000  format('t=',1pe12.5,3x,a6,3x,'v(i,j)',3x
     2       ,'i=',i3,'-->',i3,3x,'j=',i3,'-->',i3)
3000  format(11(1pe12.5))
      end
c----6---1---------2---------3---------4---------5---------6---------7--
c----6---1---------2---------3---------4---------5---------6---------7--
      subroutine plvelt(ichk1,ichk2,jchk1,jchk2,tu,tv,macx,macy,t,sub)
      implicit real*8(a-h,o-z),integer(i-n)
      real*8 tu(macx,macy),tv(macx,macy)
      character*6 sub
c00006000100000000020000000003000000000400000000050000000006000000000700
      ispan=ichk2-ichk1+1
      loop=ispan/11
      if (11*loop.lt.ispan) loop=loop+1
      do 100 iloop=1,loop
        i1=(iloop-1)*11+ichk1
        i2=min0(i1+10,ichk2)
        write(10,1000)t,sub,i1,i2,jchk2,jchk1
        do 210 j=jchk2,jchk1,-1
210     write(10,3000)(tu(i,j),i=i1,i2)
        write(11,2000)t,sub,i1,i2,jchk2,jchk1
        do 220 j=jchk2,jchk1,-1
220     write(11,3000)(tv(i,j),i=i1,i2)
100   continue
      return
1000  format('t=',1pe12.5,3x,a6,3x,'tu(i,j)',3x
     2       ,'i=',i3,'-->',i3,3x,'j=',i3,'-->',i3)
2000  format('t=',1pe12.5,3x,a6,3x,'tv(i,j)',3x
     2       ,'i=',i3,'-->',i3,3x,'j=',i3,'-->',i3)
3000  format(11(1pe12.5))
      end
c----6---1---------2---------3---------4---------5---------6---------7--
c----6---1---------2---------3---------4---------5---------6---------7--
      subroutine plutyp(ichk1,ichk2,jchk1,jchk2,utyp,macx,macy,t,sub)
      implicit real*8(a-h,o-z),integer(i-n)
      integer utyp(macx,macy)
      character*6 sub
c00006000100000000020000000003000000000400000000050000000006000000000700
      ispan=ichk2-ichk1+1
      loop=ispan/44
      if (44*loop.lt.ispan) loop=loop+1
      do 100 iloop=1,loop
        i1=(iloop-1)*44+ichk1
        i2=min0(i1+43,ichk2)
        write(10,1000)t,sub,i1,i2,jchk2,jchk1
        do 200 j=jchk2,jchk1,-1
200     write(10,2000)(utyp(i,j),i=i1,i2)
100   continue
      return
1000  format('t=',1pe12.5,3x,a6,3x,'utyp(i,j)'
     2       ,3x,'i=',i3,'-->',i3,3x,'j=',i3,'-->',i3)
2000  format(44i3)
      end
c----6---1---------2---------3---------4---------5---------6---------7--
c----6---1---------2---------3---------4---------5---------6---------7--
      subroutine plvtyp(ichk1,ichk2,jchk1,jchk2,vtyp,macx,macy,t,sub)
      implicit real*8(a-h,o-z),integer(i-n)
      integer vtyp(macx,macy)
      character*6 sub
c00006000100000000020000000003000000000400000000050000000006000000000700
      ispan=ichk2-ichk1+1
      loop=ispan/44
      if (44*loop.lt.ispan) loop=loop+1
      do 100 iloop=1,loop
        i1=(iloop-1)*44+ichk1
        i2=min0(i1+43,ichk2)
        write(11,1000)t,sub,i1,i2,jchk2,jchk1
        do 200 j=jchk2,jchk1,-1
200     write(11,2000)(vtyp(i,j),i=i1,i2)
100   continue
      return
1000  format('t=',1pe12.5,3x,a6,3x,'vtyp(i,j)'
     2       ,3x,'i=',i3,'-->',i3,3x,'j=',i3,'-->',i3)
2000  format(44i3)
      end