fortran - 减小 Fortran 90 中数组的大小

Question

假设我有一个数组:

real, dimension(100000, 5) :: a

该数组将由从 a(0, :) 到 a(n, :) 的实数填充，其中 n 是小于 100000 的数字。填充完所有值后，我们就可以确定 n 的值(假设它是 30000)。我想将数组 reshape 为:

real, dimension(30000, 5) :: a

只是为了删除数组中未使用的元素。我不想执行任何数组复制过程，因为数组很大，因此，它会破坏程序效率。这里有解决办法吗？

Answer 1

你什么也做不了。该语言中没有任何内容可以缩小数组。尤其是当您首先将其声明为固定大小的数组时。既然你禁止复制，那你就真的无能为力了。

您没有告诉我们您为什么要这样做。为了节省内存？它是一个固定大小的数组real，dimension(100000, 5)，它就在那里，你不能保存任何东西。您可以使用可分配数组，但为了缩小副本是必要的。

或者只是为了更轻松地使用数组？就像旧的 FORTRAN 77 天那样，声明一个变量 n 并始终使用数组作为

a(:n,:)

使其连续？您需要使其可分配并将其分配到正确的大小。

在某种程度上，你的问题是一个典型的XY problem你没有告诉我们真正的目的是什么。您只是要求一些技术细节，这可能不是解决最终目标的最佳方法。考虑使用可分配数组并从一开始就将其分配到正确的大小。