Wala shell

Advanced PHP File Manager

Server IP: 127.0.0.1 | PHP Version: 8.3.30 | Domains Hosted: 54

Name	Size	Last Modified	Actions
📁 ..	-	2026-01-20 12:58
📄 char.f90 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	618 B	2026-01-20 12:58
📄 fixed_string.f90 function sint(s) result(i) implicit none character(len=) :: s integer :: j, i i = 0 do j=len(s), 1, -1 if (.not.((i.eq.0).and.(s(j:j).eq.' '))) then i = i + ichar(s(j:j)) 10 ** (j - 1) endif end do return end function sint function test_in_bytes4(a) result (i) implicit none integer :: sint character(len=4) :: a integer :: i i = sint(a) a(1:1) = 'A' return end function test_in_bytes4 function test_inout_bytes4(a) result (i) implicit none integer :: sint character(len=4), intent(inout) :: a integer :: i if (a(1:1).ne.' ') then a(1:1) = 'E' endif i = sint(a) return end function test_inout_bytes4	695 B	2026-01-20 12:58
📄 scalar_string.f90 MODULE string_test character(len=8) :: string character string77 * 8 character(len=12), dimension(5,7) :: strarr character strarr77(5,7) * 12 END MODULE string_test	176 B	2026-01-20 12:58
📄 string.f C FILE: STRING.F SUBROUTINE FOO(A,B,C,D) CHARACTER5 A, B CHARACTER(*) C,D Cf2py intent(in) a,c Cf2py intent(inout) b,d A(1:1) = 'A' B(1:1) = 'B' C(1:1) = 'C' D(1:1) = 'D' END C END OF FILE STRING.F	248 B	2026-01-20 12:58

Terminal