anchor.diff:  ! do not overwrite interface variables
     iElUp=itElUp
     iElDw=itElDw
  +  iuold=-1
   ! markers accross extremes of lattice structure?
     lAccrossLatticeExtremes=iElUp.gt.iElDw
   #ifdef DEBUG
  
positive.code: subroutine copy_aperture( ixApeTo, ixApeFrom, nKApe, nApe )
  !-----------------------------------------------------------------------
  !     by A.Mereghetti
  !     last modified: 02-12-2016
  !     copy aperture, either from an existing one or from the one
  !       received on the fly
  !-----------------------------------------------------------------------
    implicit none
  
  ! interface variables
    integer ixApeTo, ixApeFrom, nKApe
    real(kind=fPrec) nApe(11)
  
    if( ixApeFrom.gt.0 ) then
  ! copy aperture marker from existing SINGLE ELEMENT
  
negative.code:       iEl=iu
        ixEl=ix
        bez(ixEl)='e.latt.aper'
        bezs(iEl)=bez(ixEl)
        write(lout,"(a)") "APER> -> Inserted empty marker at end of lattice"
      end if
    else if( iEl.eq.1 ) then
  