shared_dealloc_cmplx Subroutine

private subroutine shared_dealloc_cmplx(this)

Type Bound

shared_ragged_array_cmplx_t

Arguments

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

Contents

Source Code


Source Code

    subroutine shared_dealloc_cmplx(this)
        class(shared_ragged_array_cmplx_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_cmplx