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