2 lines
50 B
FortranFixed
2 lines
50 B
FortranFixed
|
a = reshape ((/(i * i, i = 1, 100)/), (/10, 10/))
|