shared_dealloc_bool Subroutine

private subroutine shared_dealloc_bool(this)

Type Bound

shared_ragged_array_bool_t

Arguments

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

Source Code

    subroutine shared_dealloc_bool(this)
        class(shared_ragged_array_bool_t), intent(inout) :: this

        call this%data_array%shared_dealloc()
        if (allocated(this%ptr)) deallocate(this%ptr)
        if (allocated(this%store_sizes)) deallocate(this%store_sizes)
    end subroutine shared_dealloc_bool