parser_obj_init Subroutine

private pure subroutine parser_obj_init(this)

Initializes the parser object.

Type Bound

parser_obj

Arguments

Type IntentOptional Attributes Name
class(parser_obj), intent(inout) :: this

Parser object

Called by

proc~~parser_obj_init~~CalledByGraph proc~parser_obj_init parser_obj%parser_obj_init program~main main program~main->proc~parser_obj_init

Source Code

  pure subroutine parser_obj_init(this)
    !> Initializes the parser object.
    implicit none
    class(parser_obj), intent(inout) :: this                                   !! Parser object

    ! Set number of fields to zero
    if (allocated(this%entries)) deallocate(this%entries)

    return
  end subroutine parser_obj_init