REDROOM
PHP 8.2.30
Path:
Logout
Edit File
Size: 609 B
Close
/opt/cloudlinux/venv/lib/python3.11/site-packages/numpy/f2py/tests/src/parameter/constant_non_compound.f90
Text
Base64
! Check that parameters are correct intercepted. ! Specifically that types of constants without ! compound kind specs are correctly inferred ! adapted Gibbs iteration code from pymc ! for this test case subroutine foo_non_compound_int(x) implicit none integer, parameter :: ii = selected_int_kind(9) integer(ii) maxiterates parameter (maxiterates=2) integer(ii) maxseries parameter (maxseries=2) integer(ii) wasize parameter (wasize=maxiterates*maxseries) integer(ii), intent(inout) :: x dimension x(wasize) x(1) = x(1) + x(2) + x(3) + x(4) * wasize return end subroutine
Save
Close
Exit & Reset
Text mode: syntax highlighting auto-detects file type.
Directory Contents
Dirs: 0 × Files: 5
Delete Selected
Select All
Select None
Sort:
Name
Size
Modified
Enable drag-to-move
Name
Size
Perms
Modified
Actions
constant_both.f90
1.89 KB
lrw-r--r--
2026-01-20 13:01:48
Edit
Download
Rename
Chmod
Change Date
Delete
OK
Cancel
recursive
OK
Cancel
recursive
OK
Cancel
constant_compound.f90
469 B
lrw-r--r--
2026-01-20 13:01:48
Edit
Download
Rename
Chmod
Change Date
Delete
OK
Cancel
recursive
OK
Cancel
recursive
OK
Cancel
constant_integer.f90
612 B
lrw-r--r--
2026-01-20 13:01:48
Edit
Download
Rename
Chmod
Change Date
Delete
OK
Cancel
recursive
OK
Cancel
recursive
OK
Cancel
constant_non_compound.f90
609 B
lrw-r--r--
2026-01-20 13:01:48
Edit
Download
Rename
Chmod
Change Date
Delete
OK
Cancel
recursive
OK
Cancel
recursive
OK
Cancel
constant_real.f90
610 B
lrw-r--r--
2026-01-20 13:01:48
Edit
Download
Rename
Chmod
Change Date
Delete
OK
Cancel
recursive
OK
Cancel
recursive
OK
Cancel
Zip Selected
If ZipArchive is unavailable, a
.tar
will be created (no compression).