anchor.diff:    do j=1,mblo ! is it a BLOC?
       if(bezb(j) == lnSplit(2)) then
         singID = j
  +      exit
       end if
     end do
   
  
positive.code:     do j=1,il ! is it a SINGLE ELEMENT?
        if(sixin_bez0(j) == lnSplit(2)) then
          singID = j+nblo
          if(sixin_bez0(j) == sixin_cavity) sixin_icy = sixin_icy+1
        end if
      end do
    end if
  
    if(singID == -1) then
      write(lout,"(a)") "GEOMETRY> ERROR Unknown element '"//trim(lnSplit(2))//"' in STRUCTURE block."
      iErr = .true.
      return
    else
  
negative.code:   integer nSplit, singID
    logical spErr, cErr
  
    integer j
  
    call chr_split(inLine, lnSplit, nSplit, spErr)
    if(spErr) then
  