shared_dealloc_int32 Subroutine

private subroutine shared_dealloc_int32(this)

Type Bound

shared_ragged_array_int32_t

Arguments

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

Contents

Source Code

shared_dealloc_int32

Source Code

    subroutine shared_dealloc_int32(this)
        class(shared_ragged_array_int32_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_int32