anchor.diff:        enddo
   
         open(unit=matunit2,file=matname2)
  -      write(matunit2,1000) time,mfields,ngrids,maux
  +      write(matunit2,1000) time,meqn,ngrids
    1000 format(e18.8,'    time', /,
        &      i5,'                 mfields'/,
  -     &      i5,'                 ngrids'/,
  -     &      i5,'                 maux'/,/)
  +     &      i5,'                 ngrids')
   
         close(matunit2)
   
  
positive.code:       subroutine torus_write_tfile(iframe,time,
       &      mfields,ngrids,maux)
        implicit none
  
        integer iframe,mfields,ngrids,maux
  
        character*10 matname1
        character*10 matname2
  
negative.code: 
        end
  
        subroutine torus_write_qfile(mx,my,meqn,mbc,
       &      xlower, ylower,dx,dy,q,iframe,patch_num,
       &      level, blockno, mpirank)
  
        implicit none
  
        integer meqn,mbc,mx,my, mpirank
        integer iframe,patch_num, level, blockno
        double precision xlower, ylower,dx,dy
  
        double precision q(1-mbc:mx+mbc,1-mbc:my+mbc,meqn)
  
        character*10 matname1
        integer matunit1
  