This subroutine finalizes a path object and deallocates all its nodes.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(aot_path_type), | intent(inout) | :: | me |
Path to destroy |
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