毛病的fortran毛病:可分配的数组已分配

毛病的fortran毛病:可分配的数组已分配
这个毛病通常是由于在给已分配的数组重新分配内存时出现的。在Fortran中，一旦一个数组被分配了内存，它的大小就是固定的，不能再重新分配。如果需要重新分配数组，可使用另外一个数组来存储新分配的内存，并将原数组的值复制到新数组中。
下面是一个示例代码，展现了怎样在Fortran中正确分配和重新分配数组：

program array_allocation
implicit none
integer, parameter :: n = 5
integer, allocatable :: array1(:)
integer, allocatable :: array2(:)
! 分配数组
allocate(array1(n))
! 使用数组
array1 = [1, 2, 3, 4, 5]
print *, "Array 1:", array1
! 重新分配数组
allocate(array2(2 * n))
array2(1:n) = array1
deallocate(array1)
! 使用新数组
print *, "Array 2:", array2
! 释放内存
deallocate(array2)
end program array_allocation

在这个示例中，首先分配了一个大小为n的数组array1。然后，将一些值赋给array1。接下来，使用allocate语句重新分配了一个大小为2 * n的数组array2，并将array1的值复制到array2中。最后，通过deallocate语句释放了array2的内存。
请注意，在重新分配数组之前，一定要使用deallocate语句释放原数组的内存，然后再使用allocate语句分配新数组的内存。这是由于在Fortran中，分配给数组的内存是连续的，重新分配数组会致使原数组的内存失效。