Fortran Coder

查看: 2891|回复: 7
打印 上一主题 下一主题

[子程序] 求帮忙看下用Fortran77编写Subroutine中使用Save声明二维数组错误

[复制链接]

81

帖子

0

主题

0

精华

专家

F 币
471 元
贡献
232 点

规矩勋章新人勋章元老勋章

QQ
楼主
发表于 2022-4-14 16:22:27 | 显示全部楼层
Save属性的参数,会保存起来,函数返回后仍然存活。
而自动数组,它的大小每次函数调用,参数(无论输入参数还是输出参数)不同大小就不同,逻辑上两者就冲突,没法“即存起来,又每次大小不同”
彼岸,有永恒的守候...

81

帖子

0

主题

0

精华

专家

F 币
471 元
贡献
232 点

规矩勋章新人勋章元老勋章

QQ
沙发
发表于 2022-4-14 22:25:25 | 显示全部楼层
本帖最后由 青衣巷 于 2022-4-14 22:31 编辑

可分配数组也可以save
具有save属性的变量,你可以理解为定义在一个特殊的空间里。
它具有永久的生命周期(指本程序的实例开始执行到进程退出),但只具有当前子程序范围内的作用域
可以思考以下子程序,尝试去掉 save 属性再试试:
[Fortran] 纯文本查看 复制代码
program main
  implicit none
  call sub(3)
  call sub(4)

contains

  Subroutine sub(j)
    integer :: j
    integer , allocatable , save :: d(:)
    if(.not.allocated(d)) then
      allocate(d(j))
      d = j
    end if
    write(*,*) d
  End Subroutine sub

end program main


彼岸,有永恒的守候...
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-5-4 09:31

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表