!
!  In the calling program define the structure by:
!      RECORD / PRETZ_STRUCT /PRETZ
!
!  Example values
!
! PRETZ.X.DNU       Maximum horizontal tune shift
! PRETZ.X.DNU_IX    Location of maximum horizontal tune shift
! PRETZ.X.ARC_APE   Maxium arc horizontal aperture
! PRETZ.X.ARC_APE_IX   Location of max arc horizontal aperture
! PRETZ.X.ARC_IR   Maxium ir horizontal aperture
! PRETZ.X.ARC_IR_IX   Location of max ir horizontal aperture
! PRETZ.X.DNU_TOT(k) !sum of tune shifts for bunch k
! PRETZ.W-T  !Welch-Temnykh parameter
!-


module pretz_max_mod

  use precision_def

  ! This is to suppress the ranlib "has no symbols" message
  integer, private :: private_dummy

  type max_struct
    real(rp) beta
    real(rp) eta
    real(rp) sigma
    integer ix_beta
    integer ix_eta
    integer ix_sigma
  end type

  type arc_struct
    type (max_struct)  x,y
  end type

  type ir_struct
    type (max_struct)  x,y
  end type

  type twiss_max_struct
    type (arc_struct) arc
    type (ir_struct) ir
  end type

end module pretz_max_mod