anchor.diff:              if(input_mode.ge.1)then
                  write (fname2,"('connectivity boundary',i1)") iblk
               else
  -               write (fname2,"('connectivity boundary linear tetrahedron')")
  +               write (fname2,"('connectivity boundary?')")
               endif
    
               call phio_readheader(fhandle, fname2 // char(0),
  
positive.code: c
  c.... Read the boundary material type
  c
             if(input_mode.gt.1)then
               write (fname2,"('material type boundary linear tetrahedron',i1)") iblk
             else 
  c             select case (iblk)
  
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
  