destroy_stl_file Subroutine

private subroutine destroy_stl_file(me)

Destroy an stl_file.

Type Bound

stl_file

Arguments

Type IntentOptional Attributes Name
class(stl_file), intent(inout) :: me

Called by

proc~~destroy_stl_file~~CalledByGraph proc~destroy_stl_file stl_file%destroy_stl_file proc~read_binary_stl_file stl_file%read_binary_stl_file proc~read_binary_stl_file->proc~destroy_stl_file proc~read_tab_file stl_file%read_tab_file proc~read_tab_file->proc~destroy_stl_file

Source Code

    subroutine destroy_stl_file(me)

    implicit none

    class(stl_file),intent(inout) :: me

    if (allocated(me%plates)) deallocate(me%plates)
    me%n_plates = 0

    end subroutine destroy_stl_file