get_array3d Function

  1. pf_ndsysarray.f90
  2. pf_mod_ndsysarray
  3. get_array3d

public function get_array3d(x, n, flags) result(r)

Arguments

Type IntentOptional AttributesName
class(pf_encap_t), intent(in), target:: x
integer, intent(in) :: n
integer, intent(in), optional :: flags

Return Value real(kind=pfdp), pointer,(:,:,:)


Contents

Source Code

get_array3d

Source Code

  function get_array3d(x,n,flags) result(r)
    class(pf_encap_t), target,intent(in) :: x
    integer, intent(in) :: n
    integer,           intent(in   ), optional :: flags
    real(pfdp), pointer :: r(:,:,:)

    select type (x)
    type is (ndsysarray)
       r(1:x%arr_shape(1),1:x%arr_shape(2),1:x%arr_shape(3)) => x%flatarray(x%ndof*(n-1)+1:x%ndof*n)
    end select
  end function get_array3d