| commit | 45a8a462b0f64b2a96796a25ae064ffe252e225d | [log] [tgz] |
|---|---|---|
| author | avm99963 <me@avm99963.com> | Sat Jun 04 12:41:03 2022 +0200 |
| committer | Adrià Vilanova Martínez <me@avm99963.com> | Sat Jun 04 18:47:37 2022 +0200 |
| tree | 6631fcdda187b70505decaceefaeb7934d217c95 | |
| parent | 802583e7b41e076c94a8279782af52dbd5df2f55 [diff] [blame] |
Afegir sessió 4 del lab de fenomens Change-Id: I68a9c725acd6cde3fd43413fe673e5ec7794f7e6
diff --git a/quad10/fenomens/lab/p4/str.f90 b/quad10/fenomens/lab/p4/str.f90 new file mode 100644 index 0000000..31cd529 --- /dev/null +++ b/quad10/fenomens/lab/p4/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