Gitiles
Code Review Sign In
gerrit.avm99963.com / edu / college-misc / 5b56f8b29a36f94447e85a2c8d8cdb3f4f15670d / . / quad10 / fenomens / lab / p1 / P1-exercici-2.f90
blob: 50ae82a526cc64623679456e6019d941a8548b69 [file] [log] [blame]
avm999639622dc72022-04-29 15:44:05 +0200[diff] [blame]1program p1e2
2 implicit none
3 integer*4, PARAMETER :: L = 64
4 integer*2 S(1:L, 1:L)
5
6 call WRITECONFIG(S, L)
7endprogram p1e2