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:   logical lInsUp
  ! run time variables
    integer iElUp, iElDw, ixApeUp, ixApeDw, jj, iuold
    logical lExtremes, lsame
  
  ! do not overwrite interface variables
    iElUp=itElUp
    iElDw=itElDw
  ! handling extremes of lattice structure?
    lExtremes=iElUp.eq.iu.and.iElDw.eq.1
  
  ! upstream marker
    iuold=iu
    call contour_aperture_marker( iElUp, lInsUp )
  ! the addition of the upstream aperture marker may have
  !    shifted by one the downstream entries
  ! NB: if lExtremes, the upstream marker is the last entry
  !     in the lattice structure! Hence, no other entry is shifted!
    if( .not.lExtremes ) then
      if( iu-iuold.ne.0 ) then
        iElDw=iElDw+(iu-iuold)
        write(lout,"(a,i0)") "APER> ...inserted upstream marker - downstream entries shifted by ",iu-iuold
  
negative.code:      end select
    end if
    return
   1984 format (1x,a48,1x,a6,12(1x,f15.6))
  end subroutine dump_aperture
  
  subroutine dump_aperture_marker( iunit, ixEl, iEl )
  