Gitiles
Code Review
Sign In
gerrit.avm99963.com
/
edu
/
college-misc
/
5b56f8b29a36f94447e85a2c8d8cdb3f4f15670d
/
.
/
quad10
/
fenomens
/
lab
/
p3
/
str.f90
blob: 31cd52967e2fe35bd38fb96d44f8984289bb5e0b [
file
] [
log
] [
blame
]
avm99963
802583e
2022-05-12 10:56:56 +0200
[
diff
] [
blame
]
1
character
(
len
=
20
)
function
str
(
k
)
2
!
"Convert an integer to string."
3
integer
,
intent
(
in
)
::
k
4
write
(
str
,
*)
k
5
str
=
adjustl
(
str
)
6
end
function
str