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
📄 accesstype.f90 module foo public type, private, bind(c) :: a integer :: i end type a type, bind(c) :: b_ integer :: j end type b_ public :: b_ type :: c integer :: k end type c end module foo	208 B	2026-01-20 12:58
📄 foo_deps.f90 module foo type bar character(len = 4) :: text end type bar type(bar), parameter :: abar = bar('abar') end module foo	128 B	2026-01-20 12:58
📄 gh15035.f subroutine subb(k) real(8), intent(inout) :: k(:) k=k+1 endsubroutine subroutine subc(w,k) real(8), intent(in) :: w(:) real(8), intent(out) :: k(size(w)) k=w+1 endsubroutine function t0(value) character value character t0 t0 = value endfunction	375 B	2026-01-20 12:58
📄 gh17859.f integer(8) function external_as_statement(fcn) implicit none external fcn integer(8) :: fcn external_as_statement = fcn(0) end integer(8) function external_as_attribute(fcn) implicit none integer(8), external :: fcn external_as_attribute = fcn(0) end	340 B	2026-01-20 12:58
📄 gh23533.f SUBROUTINE EXAMPLE( ) IF( .TRUE. ) THEN CALL DO_SOMETHING() END IF ! .TRUE. END	126 B	2026-01-20 12:58
📄 gh23598.f90 integer function intproduct(a, b) result(res) integer, intent(in) :: a, b res = a*b end function	101 B	2026-01-20 12:58
📄 gh23598Warn.f90 module test_bug implicit none private public :: intproduct contains integer function intproduct(a, b) result(res) integer, intent(in) :: a, b res = a*b end function end module	205 B	2026-01-20 12:58
📄 gh23879.f90 module gh23879 implicit none private public :: foo contains subroutine foo(a, b) integer, intent(in) :: a integer, intent(out) :: b b = a call bar(b) end subroutine subroutine bar(x) integer, intent(inout) :: x x = 2*x end subroutine end module gh23879	332 B	2026-01-20 12:58
📄 gh2848.f90 subroutine gh2848( & ! first 2 parameters par1, par2,& ! last 2 parameters par3, par4) integer, intent(in) :: par1, par2 integer, intent(out) :: par3, par4 par3 = par1 par4 = par2 end subroutine gh2848	282 B	2026-01-20 12:58
📄 operators.f90 module foo type bar character(len = 32) :: item end type bar interface operator(.item.) module procedure item_int, item_real end interface operator(.item.) interface operator(==) module procedure items_are_equal end interface operator(==) interface assignment(=) module procedure get_int, get_real end interface assignment(=) contains function item_int(val) result(elem) integer, intent(in) :: val type(bar) :: elem write(elem%item, "(I32)") val end function item_int function item_real(val) result(elem) real, intent(in) :: val type(bar) :: elem write(elem%item, "(1PE32.12)") val end function item_real function items_are_equal(val1, val2) result(equal) type(bar), intent(in) :: val1, val2 logical :: equal equal = (val1%item == val2%item) end function items_are_equal subroutine get_real(rval, item) real, intent(out) :: rval type(bar), intent(in) :: item read(item%item, ) rval end subroutine get_real subroutine get_int(rval, item) integer, intent(out) :: rval type(bar), intent(in) :: item read(item%item, ) rval end subroutine get_int end module foo	1.16 KB	2026-01-20 12:58
📄 privatemod.f90 module foo private integer :: a public :: setA integer :: b contains subroutine setA(v) integer, intent(in) :: v a = v end subroutine setA end module foo	174 B	2026-01-20 12:58
📄 publicmod.f90 module foo public integer, private :: a public :: setA contains subroutine setA(v) integer, intent(in) :: v a = v end subroutine setA end module foo	167 B	2026-01-20 12:58
📄 pubprivmod.f90 module foo public integer, private :: a integer :: b contains subroutine setA(v) integer, intent(in) :: v a = v end subroutine setA end module foo	165 B	2026-01-20 12:58
📄 unicode_comment.f90 subroutine foo(x) real(8), intent(in) :: x ! Écrit à l'écran la valeur de x end subroutine	98 B	2026-01-20 12:58

Terminal