ndarray_oc_destroy Subroutine

  1. pf_ndarray-oc.f90
  2. pf_mod_ndarray_oc
  3. ndarray_oc_destroy

public subroutine ndarray_oc_destroy(encap)

Subroutine to destroy array

Arguments

Type IntentOptional AttributesName
class(pf_encap_t), intent(inout) :: encap

Calls

proc~~ndarray_oc_destroy~~CallsGraph proc~ndarray_oc_destroy ndarray_oc_destroy proc~cast_as_ndarray_oc cast_as_ndarray_oc proc~ndarray_oc_destroy->proc~cast_as_ndarray_oc

Contents

Source Code

ndarray_oc_destroy

Source Code

  subroutine ndarray_oc_destroy(encap)
    class(pf_encap_t), intent(inout) :: encap
    type(ndarray_oc), pointer :: ndarray_oc_obj

    ndarray_oc_obj => cast_as_ndarray_oc(encap) !??

    deallocate(ndarray_oc_obj%pflatarray)
    deallocate(ndarray_oc_obj%yflatarray)
    deallocate(ndarray_oc_obj%shape)
    nullify(ndarray_oc_obj)
  end subroutine ndarray_oc_destroy