cast_as_ndarray_oc Function

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

public function cast_as_ndarray_oc(encap_polymorph) result(ndarray_oc_obj)

Arguments

Type IntentOptional AttributesName
class(pf_encap_t), intent(in), target:: encap_polymorph

Return Value type(ndarray_oc), pointer


Called by

proc~~cast_as_ndarray_oc~~CalledByGraph proc~cast_as_ndarray_oc cast_as_ndarray_oc proc~ndarray_oc_destroy ndarray_oc_destroy proc~ndarray_oc_destroy->proc~cast_as_ndarray_oc proc~ndarray_oc_dump_hook ndarray_oc_dump_hook proc~ndarray_oc_dump_hook->proc~cast_as_ndarray_oc proc~ndarray_oc_dump_all_hook ndarray_oc_dump_all_hook proc~ndarray_oc_dump_all_hook->proc~cast_as_ndarray_oc

Contents

Source Code

cast_as_ndarray_oc

Source Code

  function cast_as_ndarray_oc(encap_polymorph) result(ndarray_oc_obj)
    class(pf_encap_t), intent(in), target :: encap_polymorph
    type(ndarray_oc), pointer :: ndarray_oc_obj
    
    select type(encap_polymorph)
    type is (ndarray_oc)
       ndarray_oc_obj => encap_polymorph
    class default
      stop "TYPE ERROR in cast_as_ndarray_oc"
    end select
  end function cast_as_ndarray_oc