问题的简化描述:
商店里正好有maxSize人在购物。他们每个人都有一个购物清单,其中包含项目的价格(作为整数)。使用 Fortran 数组,我如何表示所有购物清单。购物清单可以包含任意数量的项目(1、10、1000000000)。
(注意:实际问题要复杂得多。甚至与购物无关。)
懒惰的方法是:
integer :: array(maxSize, A_REALLY_BIG_NUMBER)
不过这样很浪费,我基本上是想让第二个维度是可变的,然后分别给每个人分配。
显而易见的尝试,注定要失败:
integer, allocatable :: array(:,:)
allocate(array(maxSize, :)) ! Compiler error
Fortran 似乎要求数组在每个维度上都有固定的大小。
这很奇怪,因为大多数语言将多维数组视为“数组数组”,因此您可以单独设置“数组数组”中每个数组的大小。
这是有效的方法:
type array1D
integer, allocatable :: elements(:) ! The compiler is fine with this!
endtype array1D
type(array1D) :: array2D(10)
integer :: i
do i=1, size(array2D)
allocate(array2D(i)%elements(sizeAt(i))
enddo
如果这是唯一的解决方案,我想我会使用它。但我有点希望有一种方法可以使用内在函数来做到这一点。必须为这样一个简单的事情定义自定义类型有点烦人。
在 C 中,由于数组基本上是一个语法奇特的指针,因此您可以使用指针数组来做到这一点:
int sizeAt(int x); //Function that gets the size in the 2nd dimension
int * array[maxSize];
for (int x = 0; x < maxSize; ++x)
array[x] = (int*)(calloc(sizeAt(x) , sizeof(int)));
Fortran 似乎也有指针。但是我发现的唯一教程都说“永远不要使用这些”或类似的东西。