Gitiles
Code Review
Sign In
gerrit.avm99963.com
/
edu
/
college-misc
/
42b8a899b1ab397c822541d03bf18bc31be6ca1a
/
.
/
quad10
/
fenomens
/
lab
/
p3
/
str.f90
blob: 31cd52967e2fe35bd38fb96d44f8984289bb5e0b [
file
] [
log
] [
blame
]
character
(
len
=
20
)
function
str
(
k
)
!
"Convert an integer to string."
integer
,
intent
(
in
)
::
k
write
(
str
,
*)
k
str
=
adjustl
(
str
)
end
function
str