在复制到另一个可分配数组后，Fortran 90不会保持数组的下界/上界

在Fortran 90中，数组的下界（lower bound）和上界（upper bound）是数组的一个属性，它们定义了数组索引的有效范围。默认情况下，Fortran数组的下界是1，但可以通过在声明数组时指定下界来改变这一默认行为。

当你将一个数组复制到另一个可分配数组（allocatable array）时，新数组的大小（即上界和下界）通常会继承自源数组。然而，如果你在声明新数组时指定了不同的下界或上界，那么复制后的数组将会有不同的索引范围。

基础概念

• 数组下界：数组索引可以取的最小值。
• 数组上界：数组索引可以取的最大值。
• 可分配数组：在Fortran 90中，可分配数组是一种动态大小的数组，其大小可以在运行时决定。

相关优势

• 灵活性：可分配数组允许在运行时根据需要分配和释放内存，这提供了更大的灵活性。
• 性能优化：通过为数组指定合适的下界，可以优化数据访问模式，从而提高性能。

类型

Fortran 90支持固定大小数组和可分配数组。固定大小数组在声明时必须指定大小，而可分配数组可以在运行时通过ALLOCATE语句分配。

应用场景

• 动态数据结构：当需要在程序运行时动态改变数组大小时，使用可分配数组非常有用。
• 模块化编程：在不同的模块中使用不同下界的数组可以提高代码的模块化和重用性。

问题及解决方法

如果你在复制数组时遇到了下界或上界不保持的问题，可能是因为以下原因：

1. 显式指定新数组的下界或上界：在声明新数组时，如果你指定了不同的下界或上界，那么复制后的数组将会有不同的索引范围。

! 假设有一个源数组
INTEGER, DIMENSION(1:10) :: sourceArray

! 声明一个新的可分配数组，指定不同的下界
INTEGER, ALLOCATABLE, DIMENSION(:) :: destArray

! 分配新数组，并指定下界为0
ALLOCATE(destArray(0:9))

! 复制数组
destArray = sourceArray

1. 未正确分配新数组：如果你没有正确分配新数组，那么复制操作可能会失败或者导致未定义行为。

! 错误的示例：未分配新数组
INTEGER, ALLOCATABLE, DIMENSION(:) :: destArray
destArray = sourceArray ! 这将导致错误

正确的做法是先分配新数组，然后再进行复制：

! 正确的示例：先分配后复制
ALLOCATE(destArray(1:10))
destArray = sourceArray

结论

在Fortran 90中，复制数组到另一个可分配数组时，需要注意新数组的下界和上界。如果你希望保持源数组的下界和上界，确保在声明和分配新数组时使用相同的下界和上界。如果需要不同的索引范围，可以在声明新数组时指定不同的下界和上界，但要注意复制操作的正确性。