填充Fortran 2D阵列

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及更高版本中是可能的。