Subroutine to create a single array
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(ndarray_oc_factory), | intent(inout) | :: | this | |||
| class(pf_encap_t), | intent(inout), | allocatable | :: | x | ||
| integer, | intent(in) | :: | level | |||
| integer, | intent(in) | :: | shape(:) | 
  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