REDROOM
PHP 8.2.30
Path:
Logout
Edit File
Size: 618 B
Close
//opt/cloudlinux/venv/lib/python3.11/site-packages/numpy/f2py/tests/src/string/char.f90
Text
Base64
MODULE char_test CONTAINS SUBROUTINE change_strings(strings, n_strs, out_strings) IMPLICIT NONE ! Inputs INTEGER, INTENT(IN) :: n_strs CHARACTER, INTENT(IN), DIMENSION(2,n_strs) :: strings CHARACTER, INTENT(OUT), DIMENSION(2,n_strs) :: out_strings !f2py INTEGER, INTENT(IN) :: n_strs !f2py CHARACTER, INTENT(IN), DIMENSION(2,n_strs) :: strings !f2py CHARACTER, INTENT(OUT), DIMENSION(2,n_strs) :: strings ! Misc. INTEGER*4 :: j DO j=1, n_strs out_strings(1,j) = strings(1,j) out_strings(2,j) = 'A' END DO END SUBROUTINE change_strings END MODULE char_test
Save
Close
Exit & Reset
Text mode: syntax highlighting auto-detects file type.
Directory Contents
Dirs: 0 × Files: 4
Delete Selected
Select All
Select None
Sort:
Name
Size
Modified
Enable drag-to-move
Name
Size
Perms
Modified
Actions
char.f90
618 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
fixed_string.f90
695 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
scalar_string.f90
176 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
string.f
248 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).