Fortran77中，DATA赋值的变量有SAVE属性

空花缱绻三分

已于 2023-06-25 22:46:19 修改

阅读量536

点赞数

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

于 2023-06-25 22:30:42 首次发布

本文链接：https://blog.csdn.net/Sanfenpai6/article/details/131387278

版权

Fortran 专栏收录该内容

13 篇文章 4 订阅

订阅专栏

文章讨论了在Fortran编程中，使用data语句初始化的子程序内变量a具有save属性，导致每次循环调用子程序func时，变量a会持续累加，而主程序中的a保持不变。这一行为是Fortran语言的特性，提醒程序员注意变量的作用域和持久化行为。

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

今天看了个代码，发现用data赋值的小问题，单独拎出来尝试一下如代码所示。

      program main
      implicit none
      integer a,i
      a = 0 
      a = a+1
      do i = 1,20
          call func()
      enddo
      stop
      end program main

      subroutine func()
      implicit none
      integer a
      data a/0/

      a = a + 1
      end subroutine

将上述示例代码运行，可以发现，在子程序中的a有save属性，每次循环调用func的时候，func里的a会随着循环累加1，而主程序的a不会变化，依旧是1。和如下代码一致

      program main
      implicit none
      integer i,a
      a = 0
      a = a+1
      do i = 1,20
          call func()
      enddo
      stop
      end program main

      subroutine func()
      implicit none
      integer,save:: a
      
      if (a .eq. 0) write(*,*) a
      a = a + 1
      end

这是要注意的，我也是第一次发现这个问题，是Fortran的机制还是我理解错了？可以一起讨论，共勉。