ndarray_create_single Subroutine

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

Subroutine to create a single array

Arguments

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

Calls

proc~~ndarray_create_single~~CallsGraph proc~ndarray_create_single ndarray_create_single proc~ndarray_build ndarray_build proc~ndarray_create_single->proc~ndarray_build

Contents

Source Code


Source Code

  subroutine ndarray_create_single(this, x, level, shape)
    class(ndarray_factory), intent(inout)              :: this
    class(pf_encap_t),      intent(inout), allocatable :: x
    integer,                intent(in   )              :: level, shape(:)
    integer :: i
    allocate(ndarray::x)
    call ndarray_build(x, shape)
  end subroutine ndarray_create_single