fortran在function中传递指针

最新推荐文章于 2024-05-09 23:36:34 发布

chder_白南

最新推荐文章于 2024-05-09 23:36:34 发布

阅读量1.7k

点赞数

CC 4.0 BY-SA版权

分类专栏： FortranNote Fortran教程文章标签： fortran

本文链接：https://blog.youkuaiyun.com/chd_lkl/article/details/83822980

FortranNote 同时被 2 个专栏收录

81 篇文章

订阅专栏

Fortran教程

68 篇文章

订阅专栏

本文深入探讨Fortran中指针函数的实现细节，包括如何通过interface声明指针函数，函数参数与返回值的正确使用，以及result子句在指针函数定义中的作用。文章还提供了具体的代码示例，展示如何在实际编程中操作指针数组。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Program test_ptrfunction
    implicit none
    interface  !.. function的参数为指针，所以要写interface或者将function写入到module中
        function fifth( ptr_array )
            integer, dimension(:), pointer :: fifth
            integer, dimension(:), pointer :: ptr_array
        end function
    end interface
    integer, target                :: a(5) = [1,2,3,4,5]
    integer, dimension(:), pointer :: ptr_array
    
    ptr_array => a 
    write( *,* ) fifth( ptr_array )  
    
End program test_ptrfunction
    
function fifth( ptr_array ) result( ptr_fifth )  !.. 函数返回指针，必须在函数定义中使用result子句。而且result变量必须声明为指针
    implicit none
    integer, dimension(:), pointer :: ptr_array
    integer, dimension(:), pointer :: ptr_fifth
    
    integer :: low
    integer :: high
    
    low  = lbound( ptr_array, 1 )
    high = ubound( ptr_array, 1 )
    ptr_fifth => ptr_array( low:high )
    
end function fifth