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:   ! CAVITIES
    if(abs(kz(geom_nSing)) == 12) then
      if(abs(ed(geom_nSing)) > pieni .and. abs(ek(geom_nSing)) > pieni) then
        sixin_ncy2          = sixin_ncy2 + 1
        itionc(geom_nSing) = kz(geom_nSing)/abs(kz(geom_nSing))
        kp(geom_nSing)     = 6
      end if
  
negative.code:   logical spErr
  
    integer i, j
  
    expLine = chr_expandBrackets(inLine)
    call chr_split(expLine, lnSplit, nSplit, spErr)
  