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

在 Fortran 中，如果要在一个子程序中传入可变数组，你需要使用 Fortran 中的 `POINTER` 数据类型。同时，为了在模块中实现这个功能，你需要将这个数组声明为 `POINTER` 类型的变量，并将其在模块中声明。在子程序中，你需要使用 `ALLOCATABLE` 属性来为这个数组分配内存，并将其绑定到 `POINTER` 变量上。这样就可以在子程序中对这个可变数组进行操作了。下面是一个示例代码：

module example_module
  implicit none
  
  interface
    subroutine example_subroutine(arr, n)
      integer, dimension(:), pointer :: arr
      integer :: n
    end subroutine example_subroutine
  end interface
  
contains
  
  subroutine example_subroutine(arr, n)
    integer, dimension(:), pointer :: arr
    integer :: n
    allocate(arr(n))
    
    ! 对数组进行操作
    
    deallocate(arr)
  end subroutine example_subroutine
  
end module example_module

在这个示例代码中，我们在模块中声明了一个名为 `example_subroutine` 的子程序，并将其声明为 `POINTER` 类型的 `arr` 数组和一个整型变量 `n` 的输入参数。在子程序中，我们使用 `ALLOCATABLE` 属性为 `arr` 数组分配了 `n` 个整型空间，并在操作完成后使用 `DEALLOCATE` 释放了这些空间。