blob: 50ae82a526cc64623679456e6019d941a8548b69 [file] [log] [blame]
program p1e2
implicit none
integer*4, PARAMETER :: L = 64
integer*2 S(1:L, 1:L)
call WRITECONFIG(S, L)
endprogram p1e2