codekingpro/portable-devtools

1subroutine sum_with_use(x, res)
2  use precision
3
4  implicit none
5
6  real(kind=rk), intent(in) :: x(:)
7  real(kind=rk), intent(out) :: res
8
9  integer :: i
10
11  !print *, "size(x) = ", size(x)
12
13  res = 0.0
14
15  do i = 1, size(x)
16    res = res + x(i)
17  enddo
18
19 end subroutine
20