assign_file_ini Subroutine

  elemental subroutine assign_file_ini(lhs, rhs)
  !< Assignment between two INI files.
  class(file_ini), intent(inout) :: lhs !< Left hand side.
  type(file_ini),  intent(in)    :: rhs !< Rigth hand side.

  if (allocated(rhs%filename)) lhs%filename = rhs%filename
  if (allocated(rhs%sections)) then
    if (allocated(lhs%sections)) deallocate(lhs%sections) ; allocate(lhs%sections(1:size(rhs%sections, dim=1)))
    lhs%sections = rhs%sections
  endif
  lhs%Ns = rhs%Ns
  endsubroutine assign_file_ini