Linux boca.hozzt.com 4.18.0-553.8.1.lve.el8.x86_64 #1 SMP Thu Jul 4 16:24:39 UTC 2024 x86_64
LiteSpeed
: 159.253.39.62 | : 3.16.218.116
Cant Read [ /etc/named.conf ]
7.4.33
renovkoron
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
opt /
cloudlinux /
venv /
lib /
python3.11 /
site-packages /
numpy /
f2py /
tests /
src /
crackfortran /
[ HOME SHELL ]
Name
Size
Permission
Action
accesstype.f90
208
B
-rw-r--r--
foo_deps.f90
128
B
-rw-r--r--
gh15035.f
375
B
-rw-r--r--
gh17859.f
340
B
-rw-r--r--
gh23533.f
126
B
-rw-r--r--
gh23598.f90
101
B
-rw-r--r--
gh23598Warn.f90
205
B
-rw-r--r--
gh23879.f90
332
B
-rw-r--r--
gh2848.f90
282
B
-rw-r--r--
operators.f90
1.16
KB
-rw-r--r--
privatemod.f90
174
B
-rw-r--r--
publicmod.f90
167
B
-rw-r--r--
pubprivmod.f90
165
B
-rw-r--r--
unicode_comment.f90
98
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : 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
Close