extract_vector_from_vector Subroutine

private subroutine extract_vector_from_vector(vals, x, i)

Extract a vector from the vector and update the index

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(out), dimension(:) :: vals
real(kind=wp), intent(in), dimension(:) :: x
integer, intent(inout) :: i

should be initialized to 0 before the first call

Calls

proc~~extract_vector_from_vector~~CallsGraph proc~extract_vector_from_vector vector_module::extract_vector_from_vector interface~extract_vector vector_module::extract_vector proc~extract_vector_from_vector->interface~extract_vector interface~extract_vector->proc~extract_vector_from_vector proc~extract_scalar_from_vector vector_module::extract_scalar_from_vector interface~extract_vector->proc~extract_scalar_from_vector

Called by

proc~~extract_vector_from_vector~~CalledByGraph proc~extract_vector_from_vector vector_module::extract_vector_from_vector interface~extract_vector vector_module::extract_vector proc~extract_vector_from_vector->interface~extract_vector interface~extract_vector->proc~extract_vector_from_vector

Source Code

    subroutine extract_vector_from_vector(vals, x, i)

    implicit none

    real(wp),dimension(:),intent(out) :: vals
    real(wp),dimension(:),intent(in) :: x
    integer,intent(inout) :: i !! should be initialized to 0 before the first call

    integer :: j !! counter

    do j = 1, size(vals)
        call extract_vector(vals(j),x,i)
    end do

    end subroutine extract_vector_from_vector