anchor.diff:  c             case (itp_wedge_quad)
   c               write (fname2,"('material type boundary linear wedge quadface')") 
   c             end select
  -      write (fname2,"('material type boundary?')") 
  +            write (fname2,"('material type boundary?')")
              endif
   C           call MPI_BARRIER(MPI_COMM_WORLD, ierr)
              intfromfile(:)=-1
  
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
  c.... Read the boundary material type
  c
             if(input_mode.ge.1)then
               write (fname2,"('material type boundary linear tetrahedron',i1)") iblk
             else 
  c             select case (iblk)
  