fortran2003新特性：可分配函数

最新推荐文章于 2025-03-17 09:11:50 发布

chder_白南

最新推荐文章于 2025-03-17 09:11:50 发布

阅读量620

点赞数

CC 4.0 BY-SA版权

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

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

FortranNote 同时被 2 个专栏收录

81 篇文章

订阅专栏

Fortran教程

68 篇文章

订阅专栏

本文展示了一个使用Fortran编写的程序示例，该程序定义了一个分配函数testfunc，用于将输入数组的每个元素乘以10。示例中包含了模块定义、函数实现以及主程序调用，演示了如何使用随机数初始化数组并调用函数处理数组。

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

Module testMod
    implicit none
contains    
    
    function testfunc( a ) result( res )
        implicit none
        real, allocatable :: res(:)
        integer           :: i 
        real              :: a(:)
        
        if ( allocated( res ) ) then
            write( *,'(1x,a)' )  'the distributable function is allocated!'
            deallocate( res )
            !.. reallocate
            allocate( res(size(a)) )
        else
            write( *,'(1x,a)' )  'the distributable function is not allocated!'
            allocate( res(size(a)) )
        end if
        
        forall ( i = 1:size(res) )
            res(i) = a(i) * 10.0
        end forall
        
    end function testfunc
    
End module testMod
    
        
Program main
    use testMod
    implicit none
    real :: a(5)
    
    call random_seed
    call random_number( a )
    write( *,'(*(g0,3x))' ) testfunc(a)
    
End program main