subroutine set_lattice (lattice, u)

  use cesrv_struct
  use cesrv_interface

  implicit none

  type (universe_struct), target :: u
  

  integer ix
  character(40) lattice
  logical doit

!

  call string_trim (lattice, lattice, ix)

  if (logic%lattice == 'INIT') then
    logic%lattice = lattice
    call upcase_string(logic%lattice)
    call init_lattice (u, .true., make_groups$)
  elseif (lattice /= logic%lattice) then
    print *, 'WARNING: THE LATTICE NAME IN THE DATA FILE: ', trim(lattice)
    print *, '       IS NOT THE SAME AS THE CURRENT LATTICE: ', &
                                                           trim(logic%lattice)
    doit = .true.
    call cesrv_logic_get ('Y', 'N', 'REINITALIZE WITH THE NEW LATTICE?', doit)
    if (doit) then
      logic%lattice = lattice
      call upcase_string(logic%lattice)
      call init_lattice (u, .true., make_groups$)
    else
      print *, '*NOT* Reinitalizing'
    endif
  endif

end subroutine