Current Path: > > opt > cloudlinux > venv > lib > python3.11 > site-packages > numpy > f2py > tests > src > assumed_shape
Operation : Linux premium131.web-hosting.com 4.18.0-553.44.1.lve.el8.x86_64 #1 SMP Thu Mar 13 14:29:12 UTC 2025 x86_64 Software : Apache Server IP : 162.0.232.56 | Your IP: 216.73.216.111 Domains : 1034 Domain(s) Permission : [ 0755 ]
| Name | Type | Size | Last Modified | Actions |
|---|---|---|---|---|
| .f2py_f2cmap | File | 29 bytes | April 17 2025 13:10:58. | |
| foo_free.f90 | File | 460 bytes | April 17 2025 13:10:58. | |
| foo_mod.f90 | File | 499 bytes | April 17 2025 13:10:58. | |
| foo_use.f90 | File | 269 bytes | April 17 2025 13:10:58. | |
| precision.f90 | File | 130 bytes | April 17 2025 13:10:58. |
module mod
contains
subroutine sum(x, res)
implicit none
real, intent(in) :: x(:)
real, intent(out) :: res
integer :: i
!print *, "sum: size(x) = ", size(x)
res = 0.0
do i = 1, size(x)
res = res + x(i)
enddo
end subroutine sum
function fsum(x) result (res)
implicit none
real, intent(in) :: x(:)
real :: res
integer :: i
!print *, "fsum: size(x) = ", size(x)
res = 0.0
do i = 1, size(x)
res = res + x(i)
enddo
end function fsum
end module mod
SILENT KILLER Tool