fill_vector_int64 Subroutine

private subroutine fill_vector_int64(vector, alpha, threaded)

fill a vector of datatype int64 with a value

Arguments

Type IntentOptional Attributes Name
integer(kind=int64), intent(inout) :: vector(:)
integer(kind=int64), intent(in) :: alpha
logical, intent(in), optional :: threaded

Calls

proc~~fill_vector_int64~~CallsGraph proc~fill_vector_int64 fill_vector_int64 interface~pic_optional pic_optional proc~fill_vector_int64->interface~pic_optional proc~optional_char optional_char interface~pic_optional->proc~optional_char proc~optional_dp optional_dp interface~pic_optional->proc~optional_dp proc~optional_int32 optional_int32 interface~pic_optional->proc~optional_int32 proc~optional_int64 optional_int64 interface~pic_optional->proc~optional_int64 proc~optional_logical optional_logical interface~pic_optional->proc~optional_logical proc~optional_sp optional_sp interface~pic_optional->proc~optional_sp

Called by

proc~~fill_vector_int64~~CalledByGraph proc~fill_vector_int64 fill_vector_int64 interface~pic_fill pic_fill interface~pic_fill->proc~fill_vector_int64

Variables

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

Source Code

   subroutine fill_vector_int64(vector, alpha, threaded)
        !! fill a vector of datatype int64 with a value
      integer(int64), intent(inout) :: vector(:)
      integer(int64), intent(in)    :: alpha
      logical, intent(in), optional :: threaded
      logical :: use_threads
      integer(default_int) :: i

      use_threads = pic_optional(threaded, use_threaded_default)
      if (use_threads) then
         !$omp parallel do collapse(1) private(i)
         do i = 1, size(vector, 1)
            vector(i) = alpha
         end do
         !$omp end parallel do
      else
         vector = alpha
      end if

   end subroutine fill_vector_int64