print_plain_vector Subroutine

private subroutine print_plain_vector(vec, n_elements)

private subroutine that prints a vector of n_elements

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: vec(:)
integer(kind=default_int), intent(in), optional :: n_elements

Called by

proc~~print_plain_vector~~CalledByGraph proc~print_plain_vector print_plain_vector proc~print_vector print_vector proc~print_vector->proc~print_plain_vector proc~print_vector_n print_vector_n proc~print_vector_n->proc~print_plain_vector interface~print_array print_array interface~print_array->proc~print_vector interface~print_array_with_bounds print_array_with_bounds interface~print_array_with_bounds->proc~print_vector_n

Variables

Type Visibility Attributes Name Initial
integer(kind=default_int), private :: i
integer(kind=default_int), private :: loop_bound

Source Code

   subroutine print_plain_vector(vec, n_elements)
    !! private subroutine that prints a vector of n_elements
      real(kind=dp), intent(in) :: vec(:)
      integer(kind=default_int), intent(in), optional :: n_elements
      integer(kind=default_int) :: i, loop_bound
      if (present(n_elements)) then
         loop_bound = n_elements
      else
         loop_bound = size(vec)
      end if
      print *, "Vector (Plain format):"
      do i = 1, loop_bound
         write (*, fmt_edge) vec(i)
      end do
   end subroutine print_plain_vector