anchor.diff:    end if
   
     do i=1,nSplit
  -    ilm0(i) = lnSplit(i)
  -  end do
  -
  -  do i=1,40
  -
  -    if(ilm0(i) == " ") cycle
  -    if(ilm0(i) == geom_go) then
  +
  +    if(len_trim(lnSplit(1)) > mNameLen) then
  +      write(lout,"(a)") "GEOMETRY> ERROR Structure element name cannot have more than ",mNameLen," characters."
  +      iErr = .true.
  +      return
  +    end if
  +
  +    if(lnSplit(i) == " ") cycle
  +    if(lnSplit(i) == geom_go) then
         kanf = geom_nStru + 1
         cycle
       end if
  
positive.code:     return
    end if
  
    geom_nStru = geom_nStru + 1
    if(geom_nStru > nblz-3) then
      call expand_arrays(nele,npart,nblz+1000,nblo)
    end if
  
    bezs(geom_nStru) = lnSplit(1)
    call chr_cast(lnSplit(3), elpos(geom_nStru), cErr)
  
    singID = -1
  
negative.code:     end if
  
      do j=1,mblo ! is it a BLOC?
        if(bezb(j) == lnSplit(i)) then
          ic(geom_nStru)   = j
          bezs(geom_nStru) = bezb(j)
          exit
        end if
      end do
  
      do j=1,il ! is it a SINGLE ELEMENT?
        if(geom_bez0(j) == lnSplit(i)) then
          ic(geom_nStru)   = j+nblo
          bezs(geom_nStru) = geom_bez0(j)
          if(geom_bez0(j) == geom_cavity) then
            sixin_icy = sixin_icy+1
          end if
          exit
        end if
      end do
    end do
  