anchor.diff:  c
   c.... Read the boundary material type
   c
  -           if(input_mode.gt.1)then
  +           if(input_mode.ge.1)then
                write (fname2,"('material type boundary linear tetrahedron',i1)") iblk
              else 
   c             select case (iblk)
  
positive.code:             if(input_mode.ge.1)then
                 write (fname2,"('connectivity boundary',i1)") iblk
              else
                 write (fname2,"('connectivity boundary linear tetrahedron')")
              endif
   
              call phio_readheader(fhandle, fname2 // char(0),
  
negative.code: c             case (itp_wedge_quad)
  c               write (fname2,"('material type boundary linear wedge quadface')") 
  c             end select
              write (fname2,"('material type boundary?')")
             endif
  C           call MPI_BARRIER(MPI_COMM_WORLD, ierr)
             intfromfile(:)=-1
  