copy_vector_int64 Subroutine

private subroutine copy_vector_int64(dest, source, threaded, err)

copy a vector of datatype int64

Arguments

Type IntentOptional Attributes Name
integer(kind=int64), intent(inout) :: dest(:)
integer(kind=int64), intent(in) :: source(:)
logical, intent(in), optional :: threaded
type(error_t), intent(inout), optional :: err

set to ERROR_VALIDATION on a size mismatch, leaving dest unchanged; when absent a mismatch aborts with error stop

Calls

proc~~copy_vector_int64~~CallsGraph proc~copy_vector_int64 copy_vector_int64 interface~pic_optional pic_optional proc~copy_vector_int64->interface~pic_optional proc~error_raise error_raise proc~copy_vector_int64->proc~error_raise 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 proc~error_set error_t%error_set proc~error_raise->proc~error_set

Called by

proc~~copy_vector_int64~~CalledByGraph proc~copy_vector_int64 copy_vector_int64 interface~pic_copy pic_copy interface~pic_copy->proc~copy_vector_int64

Variables

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

Source Code

   subroutine copy_vector_int64(dest, source, threaded, err)
        !! copy a vector of datatype int64
      integer(int64), intent(inout) :: dest(:)
      integer(int64), intent(in)    :: source(:)
      logical, intent(in), optional :: threaded
      type(error_t), intent(inout), optional :: err
         !! set to ERROR_VALIDATION on a size mismatch, leaving dest unchanged;
         !! when absent a mismatch aborts with error stop
      logical :: use_threads
      integer(default_int) :: i
      if (size(dest, 1) /= size(source, 1)) then
         if (present(err)) then
            call error_raise(err, ERROR_VALIDATION, "pic_copy: vector size mismatch")
            return
         end if
         error stop "pic_copy: vector size mismatch"
      end if
      use_threads = pic_optional(threaded, use_threaded_default)
      if (use_threads) then
         !$omp parallel do collapse(1) private(i)
         do i = 1, size(dest, 1)
            dest(i) = source(i)
         end do
         !$omp end parallel do
      else
         dest = source
      end if
   end subroutine copy_vector_int64