append_vectorPnt2grwPoints Subroutine

private subroutine append_vectorPnt2grwPoints(me, val)

This routine append a array of points to growing array of points

Arguments

Type IntentOptional Attributes Name
type(tem_grwPoints_type), intent(inout) :: me

Growing array of points in each dimension
real(kind=rk), intent(in) :: val(:,:)

Array of points to append

Calls

proc~~append_vectorpnt2grwpoints~~CallsGraph proc~append_vectorpnt2grwpoints append_vectorPnt2grwPoints interface~append~25 append proc~append_vectorpnt2grwpoints->interface~append~25 proc~tem_abort tem_abort proc~append_vectorpnt2grwpoints->proc~tem_abort proc~append_da_label append_da_label interface~append~25->proc~append_da_label proc~append_da_veclabel append_da_veclabel interface~append~25->proc~append_da_veclabel mpi_abort mpi_abort proc~tem_abort->mpi_abort interface~expand~22 expand proc~append_da_label->interface~expand~22 interface~sortedposofval~5 sortedposofval proc~append_da_label->interface~sortedposofval~5 proc~append_da_veclabel->interface~expand~22 proc~expand_da_label expand_da_label interface~expand~22->proc~expand_da_label proc~sortposofval_label sortposofval_label interface~sortedposofval~5->proc~sortposofval_label

Called by

proc~~append_vectorpnt2grwpoints~~CalledByGraph proc~append_vectorpnt2grwpoints append_vectorPnt2grwPoints interface~append~5 append interface~append~5->proc~append_vectorpnt2grwpoints

Source Code

  subroutine append_vectorPnt2grwPoints(me, val)
    !---------------------------------------------------------------------------
    !> Growing array of points in each dimension
    type(tem_grwPoints_type), intent(inout) :: me
    !> Array of points to append
    real(kind=rk), intent(in) :: val(:,:)
    !---------------------------------------------------------------------------
    ! Expect points in shape(n,3) if not terminate
    if (size(val,dim=2)/=3) then
      write(logUnit(1),*) 'Error: Appending array of points to 1D growing'
      write(logUnit(1),*) '       array. Expects shape (n,3)'
      call tem_abort()
    end if

    call append(me = me%coordX, val = val(:,1))
    call append(me = me%coordY, val = val(:,2))
    call append(me = me%coordZ, val = val(:,3))
  end subroutine append_vectorPnt2grwPoints