subroutine plmicfo(is1,is2,js1,js2,micfo,micx,micy,t,sub)
      implicit real*8(a-h,o-z),integer(i-n)
      integer micfo(micx,micy)
      character*6 sub
c00006000100000000020000000003000000000400000000050000000006000000000700
      ispan=is2-is1+1
      loop=ispan/66
      if (66*loop.lt.ispan) loop=loop+1
      do 100 iloop=1,loop
        i1=(iloop-1)*66+is1
        i2=min0(i1+65,is2)
        write(14,1000)t,sub,i1,i2,js2,js1
        do 200 j=js2,js1,-1
200     write(14,2000)(micfo(i,j),i=i1,i2)
100   continue
      return
1000  format('t=',1pe12.5,3x,a6,3x,'micfo(i,j)',3x
     2       ,'i=',i4,'-->',i4,3x,'j=',i4,'-->',i4)
2000  format(66i2)
      end
c------------------------------------------------------------------------
c------------------------------------------------------------------------
      subroutine plmicfp(is1,is2,js1,js2,micfp,micx,micy,t,sub)
      implicit real*8(a-h,o-z),integer(i-n)
      integer micfp(micx,micy)
      character*6 sub
c00006000100000000020000000003000000000400000000050000000006000000000700
      ispan=is2-is1+1
      loop=ispan/66
      if (66*loop.lt.ispan) loop=loop+1
      do 100 iloop=1,loop
        i1=(iloop-1)*66+is1
        i2=min0(i1+65,is2)
        write(14,1000)t,sub,i1,i2,js2,js1
        do 200 j=js2,js1,-1
200     write(14,2000)(micfp(i,j),i=i1,i2)
100   continue
      return
1000  format('t=',1pe12.5,3x,a6,3x,'micfp(i,j)',3x
     2       ,'i=',i4,'-->',i4,3x,'j=',i4,'-->',i4)
2000  format(66i2)
      end
c------------------------------------------------------------------------
c------------------------------------------------------------------------
      subroutine plotnm(is1,is2,js1,js2,nm,micx,micy,t,sub)
      implicit real*8(a-h,o-z),integer(i-n)
      integer nm(micx,micy)
      character*6 sub
c00006000100000000020000000003000000000400000000050000000006000000000700
      ispan=is2-is1+1
      loop=ispan/66
      if (66*loop.lt.ispan) loop=loop+1
      do 100 iloop=1,loop
        i1=(iloop-1)*66+is1
        i2=min0(i1+65,is2)
        write(14,1000)t,sub,i1,i2,js2,js1
        do 200 j=js2,js1,-1
200     write(14,2000)(nm(i,j),i=i1,i2)
100   continue
      return
1000  format('t=',1pe12.5,3x,a6,3x,'nm(i,j)',3x
     2       ,'i=',i3,'-->',i3,3x,'j=',i3,'-->',i3)
2000  format(66i2)
      end
c------------------------------------------------------------------------
c------------------------------------------------------------------------
      subroutine plotnp(is1,is2,js1,js2,np,micx,micy,t,sub)
      implicit real*8(a-h,o-z),integer(i-n)
      integer np(micx,micy)
      character*6 sub
c00006000100000000020000000003000000000400000000050000000006000000000700
      ispan=is2-is1+1
      loop=ispan/66
      if (66*loop.lt.ispan) loop=loop+1
      do 100 iloop=1,loop
        i1=(iloop-1)*66+is1
        i2=min0(i1+65,is2)
        write(14,1000)t,sub,i1,i2,js2,js1
        do 200 j=js2,js1,-1
200     write(14,2000)(np(i,j),i=i1,i2)
100   continue
      return
1000  format('t=',1pe12.5,3x,a6,3x,'np(i,j)',3x
     2       ,'i=',i3,'-->',i3,3x,'j=',i3,'-->',i3)
2000  format(66i2)
      end