Fortran 主程序接收子程序返回的动态数组

最新推荐文章于 2024-07-20 16:40:40 发布

空花缱绻三分

最新推荐文章于 2024-07-20 16:40:40 发布

阅读量384

点赞数

分类专栏： Fortran 文章标签：算法

本文链接：https://blog.csdn.net/sanfenpai6/article/details/131606227

版权

Fortran 专栏收录该内容

13 篇文章 4 订阅

订阅专栏

本文展示了在Fortran编程中如何在主程序和子程序之间传递动态数组。通过在主程序定义动态数组，并在子程序中使用allocate分配内存，子程序能直接填充并返回数组给主程序，从而实现数据的传递。示例代码中，子程序create_dynamic_array创建了一个5x5的数组并赋值，主程序成功接收到并可进行后续操作，最后释放了数组内存。

摘要由CSDN通过智能技术生成

本文的情况是，在调用子程序的时候，不清楚数组的大小。

其实，就是只要在主程序定义好接收的数组是动态数组，然后在子程序同样定义输出数组为动态数组，然后在子程序直接allocate，貌似allocate可以在主程序子程序间传递，所以直接接收就好了。如下示例代码：

    module dynamic_array_module
    implicit none

    contains

    subroutine create_dynamic_array(array, n)
    real, allocatable, intent(out) :: array(:,:)
    integer, intent(out) :: n

    n = 5
    allocate(array(n,n))
    array = 1.0

    end subroutine create_dynamic_array

    end module dynamic_array_module

    program main_program
    use dynamic_array_module
    implicit none

    integer :: n
    real, allocatable :: result_array(:,:)

    call create_dynamic_array(result_array, n)


    ! 在这里，可以使用result_array进行操作

    deallocate(result_array)

    end program main_program

运行后可以发现，result_array可以直接接收到子程序中的array。