Gitiles
Code Review
Sign In
gerrit.avm99963.com
/
edu
/
college-misc
/
c102e9649d7e346960e21556c07c02e7ca4dfd99
/
.
/
quad10
/
fenomens
/
lab
/
p1
/
P1-exercici-2.f90
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