!........................................................................
!
! Subroutine : element_list(lat)
!
! Description: Write element list for geometry check
!
! Arguments  :  INPUT:
!                  LAT        
!
! Mod/Commons:    
!
! Calls      :      
!
! Author     : 
!
! Modified   :     
!             
!........................................................................
!
!
! $Log$
! Revision 1.5  2007/01/30 16:15:13  dcs
! merged with branch_bmad_1.
!
! Revision 1.2  2003/04/30 17:14:49  cesrulib
! dlr's changes since last import
!
! Revision 1.1.1.1  2002/12/13 19:23:27  cesrulib
! import bmadz
!
!
!........................................................................
!
  SUBROUTINE element_list(lat)



  use bmad


  implicit none

    real(rp) circumference
  type (lat_struct) lat

    integer i

    open(unit=41, file = 'element_list.dat')
    do i = 1,lat%n_ele_track
      write(41,1)i, lat%ele(i)%name, lat%ele(i)%value(l$),  &
                       lat%ele(i)%s
    end do
1       format(1x, i4, 5x, a16, f10.4,5x, f10.4)
    close(unit=41)
  return
  end