aot_fin_path Subroutine

public subroutine aot_fin_path(me)

This subroutine finalizes a path object and deallocates all its nodes.

Arguments

Type IntentOptional Attributes Name
type(aot_path_type), intent(inout) :: me

Path to destroy

Calls

proc~~aot_fin_path~~CallsGraph proc~aot_fin_path aot_fin_path proc~aot_path_delnode aot_path_delNode proc~aot_fin_path->proc~aot_path_delnode

Called by

proc~~aot_fin_path~~CalledByGraph proc~aot_fin_path aot_fin_path proc~aot_init_path aot_init_path proc~aot_init_path->proc~aot_fin_path proc~aot_path_copy aot_path_copy proc~aot_path_copy->proc~aot_fin_path interface~assignment(=) assignment(=) interface~assignment(=)->proc~aot_path_copy

Source Code

  subroutine aot_fin_path(me)
    !> Path to destroy
    type(aot_path_type), intent(inout) :: me

    logical :: emptied

    emptied = .false.

    do while (.not. emptied)
      call aot_path_delNode(me, emptied)
    end do
    me%LuaFilename = ''
    me%rootHandle = 0
  end subroutine aot_fin_path