anchor.diff:          ! x2=ape(2)/tan(theta2)
           ! y2=ape(2)
           write(iunit,1984) name, apeName(aptype), spos, ape(1), ape(2), atan2_mb(ape(1)*ape(5)+ape(6),ape(1)), &
  -             &         atan2_mb(ape(2),(ape(2)-ape(6))/ape(5)),   zero,   zero, ape(7), ape(8), ape(9)
  +             &         atan2_mb(ape(2),(ape(2)-ape(6))/ape(5)),   zero,   zero, ape(7), ape(8), ape(9), zero, zero
        case(6) ! Racetrack
  -        write(iunit,1984) name, apeName(aptype), spos, ape(1), ape(2), ape(3),   zero,   zero,   zero, ape(7), ape(8), ape(9)
  +        write(iunit,1984) name, apeName(aptype), spos, ape(10), ape(11), ape(3), ape(4),   zero,   zero, ape(7), ape(8), ape(9), zero, zero
        end select
     end if
     return
  - 1984 format (1x,a16,1x,a6,10(1x,f15.5))
  + 1984 format (1x,a,1x,a6,12(1x,f15.5))
   end subroutine dump_aperture
   
   subroutine dump_aperture_marker( iunit, ixEl, iEl )
  
positive.code: end subroutine aperture_nul
  
  
  subroutine aperture_initCR( ix, aper )
    !-----------------------------------------------------------------------
    ! A.Mereghetti (CERN, BE-ABP-HSS), 2018-03-21
  
negative.code:   logical,          intent(inout) :: iErr
  
    character(len=:), allocatable   :: lnSplit(:)
    real(kind=fPrec) tmpflts(8)
    integer          nSplit, i
    logical          spErr
  
  