fill_gpu_1d Subroutine

private pure subroutine fill_gpu_1d(arr, val)

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(inout) :: arr(:)
real(kind=wp), intent(in) :: val

Called by

proc~~fill_gpu_1d~~CalledByGraph proc~fill_gpu_1d fill_gpu_1d interface~fill_gpu fill_gpu interface~fill_gpu->proc~fill_gpu_1d

Variables

Type Visibility Attributes Name Initial
integer, private :: hi
integer, private :: i
integer, private :: lo

Source Code

   pure subroutine fill_gpu_1d(arr, val)
      ! assumed-shape-ok: generic fill utility; must accept any rank-1 slice
      real(wp), intent(inout) :: arr(:)
      real(wp), intent(in)    :: val
      integer :: i, lo, hi
      lo = lbound(arr, 1)
      hi = ubound(arr, 1)
      do concurrent(i=lo:hi)
         arr(i) = val
      end do
   end subroutine fill_gpu_1d