fortran过程中的save属性

最新推荐文章于 2023-06-25 22:30:42 发布

chder_白南

最新推荐文章于 2023-06-25 22:30:42 发布

阅读量6.1k

点赞数 1

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

本文链接：https://blog.csdn.net/chd_lkl/article/details/83866367

版权

FortranNote 同时被 2 个专栏收录

81 篇文章 45 订阅

订阅专栏

Fortran教程

68 篇文章 57 订阅

订阅专栏

fortran过程中的save属性一般有两种方式
1. 在子程序或函数中添加save关键字
代码如下：
Program testsave
    implicit none
    integer :: i, n = 10
    
    do i = 1, n
        call sub( i )
    end do
    
End program testsave
    
    
Subroutine sub( a )
    implicit none 
    integer    :: a
    real, save :: s

    s = s + a
    print*, s
End subroutine sub

2. 在过程中声明的同时赋初值
代码如下：
Program testsave
    implicit none
    integer :: i, n = 10
    
    do i = 1, n
        call sub( i )
    end do
    
End program testsave
    
    
Subroutine sub( a )
    implicit none 
    integer    :: a
    real       :: s = 0.0

    s = s + a
    print*, s
End subroutine sub

执行结果如下：
   1.000000
   3.000000
   6.000000
   10.00000
   15.00000
   21.00000
   28.00000
   36.00000
   45.00000
   55.00000