anchor.diff:    integer nSplit
     logical spErr
   
  -  integer i, j, t
  +  integer i, j
     character(len=mNameLen) ilm0(40)
   
     ilm0(:) = " "
  
positive.code:   integer nSplit, singID
    logical spErr, cErr
  
    integer i, j, t
  
    call chr_split(inLine, lnSplit, nSplit, spErr)
    if(spErr) then
  
negative.code: 
      do j=1,mblo ! is it a BLOC?
        if(bezb(j) == ilm0(i)) then
          ic(sixin_nStru)     = j
          icname(sixin_nStru) = bezb(j)
          cycle
        end if
      end do
  
      do j=1,il ! is it a SINGLE ELEMENT?
        if(sixin_bez0(j) == ilm0(i)) then
          ic(sixin_nStru)     = j+nblo
          icname(sixin_nStru) = sixin_bez0(j)
          if(sixin_bez0(j) == sixin_cavity) then
            sixin_icy = sixin_icy+1
          end if
          cycle
        end if
      end do
  