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 program~main~10 main program~main~10->proc~parser_obj_init program~main~11 main program~main~11->proc~parser_obj_init program~main~12 main program~main~12->proc~parser_obj_init program~main~13 main program~main~13->proc~parser_obj_init program~main~14 main program~main~14->proc~parser_obj_init program~main~15 main program~main~15->proc~parser_obj_init program~main~2 main program~main~2->proc~parser_obj_init program~main~3 main program~main~3->proc~parser_obj_init program~main~4 main program~main~4->proc~parser_obj_init program~main~5 main program~main~5->proc~parser_obj_init program~main~6 main program~main~6->proc~parser_obj_init program~main~7 main program~main~7->proc~parser_obj_init program~main~8 main program~main~8->proc~parser_obj_init program~main~9 main program~main~9->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