ndarray_oc_create_single Subroutine

public subroutine ndarray_oc_create_single(this, x, level, shape)

Subroutine to create a single array

Arguments

Type IntentOptional AttributesName
class(ndarray_oc_factory), intent(inout) :: this
class(pf_encap_t), intent(inout), allocatable:: x
integer, intent(in) :: level
integer, intent(in) :: shape(:)

Calls

proc~~ndarray_oc_create_single~~CallsGraph proc~ndarray_oc_create_single ndarray_oc_create_single proc~ndarray_oc_build ndarray_oc_build proc~ndarray_oc_create_single->proc~ndarray_oc_build

Contents


Source Code

  subroutine ndarray_oc_create_single(this, x, level, shape)
    class(ndarray_oc_factory), intent(inout)           :: this
    class(pf_encap_t),      intent(inout), allocatable :: x
    integer,                intent(in   )              :: level, shape(:)
    allocate(ndarray_oc::x)
    call ndarray_oc_build(x, shape)
  end subroutine ndarray_oc_create_single