subroutine separator_symmetry(cesr,lat)

  use bmad
  use cesr_basic_mod

  implicit none

  type (lat_struct)  lat
  type (db_struct) cesr

  integer jwest,jeast

!

  jwest=cesr%h_sep(h_sep_08w$)%ix_lat
  jeast=cesr%h_sep(h_sep_08e$)%ix_lat

  if(lat%ele(jwest)%value(hkick$)  &
          *lat%ele(jeast)%value(hkick$) < 0)then
    lat%ele(jwest)%type = 'ANTI'
  endif
  if(lat%ele(jwest)%value(hkick$)  &
          *lat%ele(jeast)%value(hkick$) > 0)then
    lat%ele(jwest)%type = 'SYMM'
  endif

  jwest=cesr%h_sep(h_sep_45w$)%ix_lat
  jeast=cesr%h_sep(h_sep_45e$)%ix_lat

  if(lat%ele(jwest)%value(hkick$)  &
          *lat%ele(jeast)%value(hkick$) < 0)then
    lat%ele(jwest)%type = 'ANTI'
  endif
  if(lat%ele(jwest)%value(hkick$)  &
          *lat%ele(jeast)%value(hkick$) > 0)then
    lat%ele(jwest)%type = 'SYMM'
  endif

  end