anchor.diff:    WRITE(6,*) dir2_fname2
     WRITE(6,*) ' '
   
  -  dir3_fname3 = TRIM(dir3)//'/'//TRIM(fname3)
  -  WRITE(6,*) 'A summary of the results will be stored in : '
  -  WRITE(6,*) dir3_fname3
  -
  -
     OPEN(10,file=dir1_fname2)
     READ(10,*) t1
  -  READ(10,*) mfields1
  +  READ(10,*) meqn1
     READ(10,*) ngrids1
     CLOSE(10)
   
     OPEN(10,file=dir2_fname2)
     READ(10,*) t2
  -  READ(10,*) mfields2
  +  READ(10,*) meqn2
     READ(10,*) ngrids2
     CLOSE(10)
   
  -  IF (mfields1 .NE. mfields2) THEN
  -     WRITE(6,*) 'mfields1 .ne. mfields2'
  +  IF (meqn1 .NE. meqn2) THEN
  +     WRITE(6,*) 'meqn1 .ne. meqn2'
        stop
     ENDIF
   
  
positive.code:      READ(20,*) ngrid2
       READ(20,*) level2
       READ(20,*) blockno2
       READ(20,*) mx2
       READ(20,*) my2
       READ(20,*) xlow2
  
negative.code:   dir3_fname1 = TRIM(dir3)//'/'//trim(fname1)
    OPEN(fid_com,file=dir3_fname1,position='append');
  
    WRITE(fid_com,1001) patch_num, level, blockno, mpirank, mx, my
  1001 FORMAT(i5,'                 grid_number',/, &
              i5,'                 AMR_level',/, &
              i5,'                 block_number',/, &
              i5,'                 mpi_rank',/, &
              i5,'                 mx',/, &
              i5,'                 my')
  
  
    WRITE(fid_com,1002) xlower,ylower,dx,dy
  