!+
! bmad_test (...)
!
! Routine to test cpp/fortran inteface.
!-

subroutine bmad_test (c_ele, has_twiss, file_name, c_err)

use bmad_common_mod
use superimpose_mod

implicit none

character(10) name, name2

!

type (c_ptr), value :: c_ele
type (ele_struct), save :: ele
type (ele_struct), pointer :: super_ele, ele2
type (lat_struct), pointer :: lat, lat2
type (bmad_doocs_common_struct), save, target :: lat_save(20)

integer i, has_twiss, ix_lat
logical(c_bool) c_err
integer stat_b(24), stat, ierr

logical err_flag, does_exist, parsing_needed

character(1) file_name(*)
character(200) f_name
character(16), parameter :: r_name = 'bmad_create_element'

!

do i = 1, 200
  if (file_name(i) == char(0)) exit
  print *, i, file_name(i)
enddo

!!call remove_null_in_string (file_name, f_name)
print *, f_name

end subroutine