get_array2d Function

  1. pf_ndsysarray.f90
  2. pf_mod_ndsysarray
  3. get_array2d

public function get_array2d(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_array2d

Source Code

  function get_array2d(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)) => x%flatarray(x%ndof*(n-1)+1:x%ndof*n)
    end select
  end function get_array2d