| commit | 802583e7b41e076c94a8279782af52dbd5df2f55 | [log] [tgz] |
|---|---|---|
| author | avm99963 <me@avm99963.com> | Thu May 12 10:56:56 2022 +0200 |
| committer | avm99963 <me@avm99963.com> | Thu May 12 10:58:11 2022 +0200 |
| tree | f36579c43d929795735c14bc6ee04b36842ea7fa | |
| parent | 354187350193313e85cfed50a07c0c3971425a66 [diff] [blame] |
Afegir sessió 3 del lab de fenòmens Change-Id: Ic21d679decc844e3c2899d6da4cca48301dbae0c
diff --git a/quad10/fenomens/lab/p3/str.f90 b/quad10/fenomens/lab/p3/str.f90 new file mode 100644 index 0000000..31cd529 --- /dev/null +++ b/quad10/fenomens/lab/p3/str.f90
@@ -0,0 +1,6 @@ +character(len=20) function str(k) + ! "Convert an integer to string." + integer, intent(in) :: k + write (str, *) k + str = adjustl(str) +end function str