!
!  In the calling program define the structure by:
!      RECORD / TWISS_MAX_STRUCT /TWISS_MAX
!
!  Example values
!
! TWISS_MAX.ARC.X.BETA       Maximum beta x in arc
! TWISS_MAX.ARC.Y.BETA       Maximum beta y in arc
! TWISS_MAX.ARC.X.IX_BETA       index to Maximum beta x in arc
! TWISS_MAX.ARC.Y.IX_BETA       index to Maximum beta y in arc
! TWISS_MAX.ARC.X.ETA       Maximum eta x in arc
! TWISS_MAX.ARC.Y.ETA       Maximum eta y in arc
! TWISS_MAX.ARC.X.IX_ETA    index to Maximum eta x in arc
! TWISS_MAX.ARC.Y.IX_ETA    index to Maximum eta y in arc
! TWISS_MAX.ARC.X.SIGMA       Maximum sigma x in arc
! TWISS_MAX.ARC.Y.SIGMA       Maximum sigma y in arc
! TWISS_MAX.IR.X.BETA       Maximum beta x in ir
! TWISS_MAX.IR.Y.BETA       Maximum beta y in ir
! TWISS_MAX.IR.X.IX_BETA    index to Maximum beta x in ir
! TWISS_MAX.IR.Y.IX_BETA    index to Maximum beta y in ir
! TWISS_MAX.IR.X.ETA       Maximum eta x in ir
! TWISS_MAX.IR.Y.ETA       Maximum eta y in ir
! TWISS_MAX.IR.X.IX_ETA    index to Maximum eta x in ir
! TWISS_MAX.IR.Y.IX_ETA     index to Maximum eta y in ir
! TWISS_MAX.IR.X.SIGMA       Maximum sigma x in ir
! TWISS_MAX.IR.Y.SIGMA       Maximum sigma y in ir
!-
module twiss_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)  a, b
  end type

  type ir_struct
    type (max_struct)  a, b
  end type

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


end module