填充 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。请注意，您必须提前 know/determine 字符的长度，否则您将不得不使用可分配的字符数组。如果您希望每个元素具有不同的字符长度，那么您将必须创建一个可分配字符的可分配数组，这在 Fortran 2003 之后是可能的。