fill_vector_with_vector Subroutine

private subroutine fill_vector_with_vector(x, vals, i)

Put the vector in the vector and update the index

Arguments

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

should be initialized to 0 before the first call

Calls

proc~~fill_vector_with_vector~~CallsGraph proc~fill_vector_with_vector vector_module::fill_vector_with_vector interface~fill_vector vector_module::fill_vector proc~fill_vector_with_vector->interface~fill_vector interface~fill_vector->proc~fill_vector_with_vector proc~fill_char_vector_with_scalar vector_module::fill_char_vector_with_scalar interface~fill_vector->proc~fill_char_vector_with_scalar proc~fill_char_vector_with_vector vector_module::fill_char_vector_with_vector interface~fill_vector->proc~fill_char_vector_with_vector proc~fill_vector_with_scalar vector_module::fill_vector_with_scalar interface~fill_vector->proc~fill_vector_with_scalar proc~fill_char_vector_with_vector->interface~fill_vector

Called by

proc~~fill_vector_with_vector~~CalledByGraph proc~fill_vector_with_vector vector_module::fill_vector_with_vector interface~fill_vector vector_module::fill_vector proc~fill_vector_with_vector->interface~fill_vector interface~fill_vector->proc~fill_vector_with_vector proc~fill_char_vector_with_vector vector_module::fill_char_vector_with_vector interface~fill_vector->proc~fill_char_vector_with_vector proc~fill_char_vector_with_vector->interface~fill_vector

Source Code

    subroutine fill_vector_with_vector(x, vals, i)

    implicit none

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

    integer :: j !! counter

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

    end subroutine fill_vector_with_vector