Gitiles
Code Review
Sign In
gerrit.avm99963.com
/
edu
/
college-misc
/
c2d9f31eee03d35d3ee3f1577a027220e3294ca6
/
.
/
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