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:      end select
    end if
    return
   1984 format (1x,a,1x,a6,12(1x,f15.5))
  end subroutine dump_aperture
  
  subroutine dump_aperture_marker( iunit, ixEl, iEl )
  
negative.code:  &                  'aper3[mm][rad]', 'aper4[mm][rad]', 'aper5[mm][rad]', 'aper6[mm][rad]', &
   &                  'aper7[mm][rad]', 'aper8[mm][rad]', 'angle[rad]', 'xoff[mm]', 'yoff[mm]'
    return
   1984 format (a1,a48,1x,a6,12(1x,a15))
  end subroutine dump_aperture_header
  
  subroutine dump_aperture_xsecs
  