Fortran中如何定义大小可变的数组

在Fortran中，可以使用动态内存分配（Dynamic Memory Allocation）来定义大小可变的数组。以下是一种常用的方法：

1. 使用ALLOCATE语句：ALLOCATE语句用于在运行时为数组分配内存。您需要使用指定的属性来声明数组，并在运行时使用ALLOCATE语句为其分配内存。例如：

real, allocatable :: myArray(:,:) ! 声明大小可变的二维数组

integer :: numRows, numCols
numRows = 10
numCols = 5

allocate(myArray(numRows, numCols)) ! 分配 numRows 行、numCols 列的内存空间

! 可以使用 myArray 进行操作

deallocate(myArray) ! 释放内存空间

2. 使用RESHAPE函数：RESHAPE函数可以将现有的数组重新调整为不同的形状。您可以使用RESHAPE函数来创建一个大小可变的数组，并在需要时重新调整其大小。例如：

real, allocatable :: myArray(:,:) ! 声明大小可变的二维数组

integer :: numRows, numCols
numRows = 10
numCols = 5

myArray = reshape(/1.0, 2.0, 3.0, 4.0, 5.0, 6.0/, [numRows, numCols]) ! 创建 numRows 行、numCols 列的数组

! 可以使用 myArray 进行操作

myArray = reshape(myArray, [newNumRows, newNumCols]) ! 调整数组大小为 newNumRows 行、newNumCols 列

! 可以继续使用 myArray 进行操作

deallocate(myArray) ! 释放内存空间

请注意，动态内存分配在使用完后必须释放内存，以避免内存泄漏。使用DEALLOCATE语句释放数组所占用的内存空间。

这些是Fortran中定义大小可变数组的一些方法。根据您的具体需求和编译器支持，您可能需要进一步了解Fortran的动态内存分配特性并进行适当的调整。