fortran定义可变数组

在Fortran中，可以使用ALLOCATABLE关键字来定义可变数组。以下是一个简单的示例：

program variable_array
  implicit none
  
  integer, allocatable :: arr(:)
  integer :: i, n
  
  write(*,*) "Enter the size of the array:"
  read(*,*) n
  
  allocate(arr(n))
  
  do i = 1, n
    arr(i) = i
  end do
  
  write(*,*) "Array elements:"
  do i = 1, n
    write(*,*) arr(i)
  end do
  
  deallocate(arr)
  
end program variable_array

在这个示例中，用户输入数组的大小，然后使用allocate函数分配内存。然后，数组可以像普通数组一样使用，并在完成后使用deallocate函数释放内存。

相关问题

fortran子程序传入可变数组要在module里实现

在Fortran中，可以使用“可变数组”来表示大小未知的数组。在将可变数组传递给子程序时，需要使用指针或可变数组作为参数类型，并在子程序中使用“allocatable”关键字来定义数组。在模块中实现这个过程，可以将可变数组定义为模块中的变量，然后在子程序中使用该变量。下面是一个示例代码：

module my_module
    implicit none
    real, allocatable :: my_array(:,:)
contains
    subroutine my_subroutine(array)
        real, intent(inout) :: array(:,:)
        ! do some operations on the array
    end subroutine my_subroutine
end module my_module

program main
    use my_module
    implicit none
    integer :: n, m
    real, allocatable :: my_array(:,:)
    n = 10
    m = 5
    allocate(my_array(n,m))
    ! initialize the array
    call my_subroutine(my_array)
    ! perform some operations on the array in the subroutine
    deallocate(my_array)
end program main

在这个示例中，我们在模块中定义了一个可变数组“my_array”，并在子程序“my_subroutine”中使用该数组。在程序的主体中，我们首先分配了数组，并将其传递给子程序“my_subroutine”。在子程序中，我们可以使用该数组进行一些操作。最后，我们释放了数组的内存。

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的动态内存分配特性并进行适当的调整。