reset_initialiser_state Subroutine

  subroutine reset_initialiser_state(state)
    !! Reset the reusable initialiser parser state.
    implicit none

    ! Arguments
    type(json_initialiser_state_type), intent(inout) :: state
    !! Initialiser parser state to reset

    state%in_object = .false.
    state%in_dims_array = .false.
    state%name = ''
    state%data_type = 1
    if(allocated(state%dims)) deallocate(state%dims)
    allocate(state%dims(0))
    if(allocated(state%raw_data)) deallocate(state%raw_data)
    allocate(character(0) :: state%raw_data)

  end subroutine reset_initialiser_state