Preview: foo_use.f90
Size: 269 B
//opt/cloudlinux/venv/lib/python3.11/site-packages/numpy/f2py/tests/src/assumed_shape/foo_use.f90
subroutine sum_with_use(x, res)
use precision
implicit none
real(kind=rk), intent(in) :: x(:)
real(kind=rk), intent(out) :: res
integer :: i
!print *, "size(x) = ", size(x)
res = 0.0
do i = 1, size(x)
res = res + x(i)
enddo
end subroutine
Directory Contents
Dirs: 0 × Files: 5