blob: 50ae82a526cc64623679456e6019d941a8548b69 [file] [log] [blame]
avm999639622dc72022-04-29 15:44:05 +02001program 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