initialise_json_parser Subroutine

  subroutine initialise_json_parser(parser)
    !! Initialise the reusable parser state objects.
    implicit none

    ! Arguments
    type(json_parser_state_type), intent(out) :: parser
    !! Parser state container to initialise

    parser%section = ''
    call reset_node_state(parser%node)
    call reset_initialiser_state(parser%initialiser)
    call reset_tensor_state(parser%input_tensor)
    call reset_tensor_state(parser%output_tensor)

  end subroutine initialise_json_parser