subroutine get_crossings(lat,string ,ncross, xcross)

 use bmad
 use bunchcross_mod
 use constraints_mod

implicit none

 type(lat_struct) lat
 type (pc_struct) pc
 type(constraint_struct) con


integer trains, bunches, spacing
integer ncross
integer test
integer ix, ios
integer i,l
character*120 string
character*64 file
real(rp), allocatable ::  xcross(:)
!allocate(cross(1000))
!

file = 'NULL'
call string_trim(string, string, ix)
print '(a)',string
if(string(1:4) /= 'PRET')then 
  print *,' SOMETHING WRONG IN GET_CROSSINGS '
  stop
endif

call string_trim(string(ix+1:),string,ix)
read (string(1:ix), *, iostat = ios) test
print *, test
if(test > 0 .and. test < 20 .and. ios == 0) then 
  trains = test
  call string_trim(string(ix+1:),string,ix)
  read(string(1:ix), *)bunches
  call string_trim(string(ix+1:),string,ix)
  read(string(1:ix), *)spacing
  print *,' trains = ', trains
  print *,' bunches = ', bunches
  print *,' spacing = ', spacing  
con%n_trains = trains
con%n_cars = bunches
con%electron_offset = 0

con%n_14ns_space = spacing
else
  file = string(1:ix)
endif

print *,' file = ', file


con%BunchPattern = file

!call bunchcross(lat,con,pc)

!ncross = pc%total_pc
!xcross(1:ncross)  = pc%cross(1:ncross)%ele%s
print *,' ncross = ',ncross
l = ncross/10

do i=1,l
 print '(10f8.2)',xcross(10*(i-1)+1:min(i*10,ncross))
enddo

if(l*10 < ncross)print '(10f8.2)',xcross(10*l+1:ncross)

end