anchor.diff:  
   ! echo
     write(lout,"(a)")                 "APER> Look for aperture markers closest to:"
  -  write(lout,"(a,i0,a,i0,a,e15.7)") "APER> i=",iEl," - ix=",ixEl," - name: '"//bez(ixEl)//"' - s=",dcum(iEl)
  +  write(lout,"(a,i0,a,i0,a,f15.6)") "APER> i=",iEl," - ix=",ixEl," - name: '"//bez(ixEl)//"' - s=",dcum(iEl)
   
   ! candidate aperture marker
     if( lInsUp ) then
  
positive.code:     write(lout,"(a)")    "APER> ...no need to insert a downstream marker - no shift of downstream entries required."
    end if
  
    if( lExtremes ) then
  ! check that the aperture markers at the extremities of accelerator
  ! lattice structure are the same
      ixApeUp=ic(iElUp)-nblo
  
negative.code:   call contour_aperture_marker( iElDw, .false. )
  ! the addition of the downstream aperture marker may have shifted by one the downstream entries
    if( iu-iuold.ne.0 ) then
  ! NB: if lAccrossLatticeExtremes, the downstream marker is almost at the beginngin of
  !     the lattice structure! Hence, if a new entry has been inserted,
  !     the upstream marker (towards the end of the lattice structure) is
  !     shifted by 1
      if( lAccrossLatticeExtremes ) then
        iElUp=iElUp+(iu-iuold)
      end if
      write(lout,"(a,i0)") "APER> ...inserted downstream marker - downstream entries shifted by ",iu-iuold
  