!+
!  In the calling program define the structure by:
!      RECORD / ZQUAD_STRUCT /QUAD
!
!  Example values
!
! QUAD%LENS(n)%X%BETA_AVE   average beta x in quad n
! QUAD%LENS(n)%X%BETA_MAX   maximum beta x in quad n
! QUAD%LENS(n)%IX           Quad n == lat element ix
! QUAD%N                     number if quads
!-

module zquad_lens_mod

  use bmad_struct

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

  type beta_struct
    real(rp) beta_ave
    real(rp) beta_max
    real(rp) eta_max
  end type

  type eta_struct
    real(rp) eta_max
  end type

  type lens_struct
    type (beta_struct)  a, b
    type (eta_struct) x, y
    integer ix
  end type

  type zquad_struct
    type (lens_struct)  lens(2000) ! 200 -> 2000 to handle damping lattices
    integer n                       ! number of parasitic crossings
  end type

end module zquad_lens_mod