!+
! Program CESRV_CL.F90
!
! Command line version of CESRV.
!-

program cesrv_cl

use cesrv_struct
use cesrv_interface
use super_universe_com
use nonlin_bpm_mod, only: nonlin_butcon, nonlin_bpm_use_coeff

implicit none

type (universe_struct), pointer :: u
type (graph_struct), target :: graph
type (lat_struct), pointer :: ring1, ring2
type (ele_struct), pointer :: eles1(:), eles2(:)
type (coord_struct), pointer :: orb1(:), orb2(:)

integer ios
logical err_flag, plotit
character(200) line

!----------------------------------------------------------------------------
! init

nonlin_bpm_use_coeff = .true.
call mpm_init("CESRV")

allocate (super%u_(1))
u => super%u_(1)

logic%u_num = 1
logic%u_view = 1

global_com%exit_on_error = .false.

! initialize data and plot structs
call init_universe (u)
call init_plotting(.true., graph, u)

plotit = logic%plotit      ! temp save
logic%plotit = .false.

! Process command line arguments and/or request starting environment from user
call init_init(u, graph, '')
logic%plotit = plotit

call plotdo ('X', graph, .false., u)

! Not using a gui

logic%gui = .false.

! see if there is an init file

if (.not. logic%command_file_open) then
  logic%iu_command_file = lunget()
  open (logic%iu_command_file, file = 'cesrv.in', status = 'old', iostat = ios)
  if (ios == 0) then  ! opened
    logic%command_file_open = .true.
    print *, 'Init command file found: cesrv.in ....'
  endif
endif

!---------------------------------------------------------------------
! Command loop

do
  call get_cesrv_command (trim(logic%prompt_str) // '>', line)
  call cesrv_command(line, u, graph, err_flag)

  orb1  => super%u_(1)%orb
  ring1 => super%u_(1)%ring
  eles1 => ring1%ele
  if (size(super%u_) > 1) then
    orb2  => super%u_(2)%orb
    ring2 => super%u_(2)%ring
    eles2 => ring2%ele
  endif
enddo

end program