fortran - 填充 Fortran 二维数组

Question

我想知道如何填充一个相当大的二维数组。我只想用 X 或一个值填写它并打印出来。

到目前为止:

CHARACTER Grid(20,20)

print *, Grid

Answer 1

这应该很简单。怎么样:

program simple
   CHARACTER(len=1) :: Grid(20,20)
   Grid = "x"
   Print *, Grid
end program simple

你可以测试一下here 。请注意，您必须提前知道/确定字符的长度，否则您将不得不使用可分配的字符数组。如果您希望每个元素具有不同的字符长度，则必须创建一个可分配字符的可分配数组，这在 Fortran 2003 及更高版本中是可能的。