请问，动态生成的数组如何用共用空间共享数据？

沙发

臭石头雪球 [专家分：23030] 发布于 2011-01-09 13:37:00

建议抛弃 common ，改用 Module

板凳

zrydd [专家分：0] 发布于 2011-01-10 11:38:00

module能在各子程序里共享变量？

3 楼

臭石头雪球 [专家分：23030] 发布于 2011-01-10 12:48:00

当然可以

4 楼

zrydd [专家分：0] 发布于 2011-01-11 17:55:00

那么不同函数内使用同一module ，module内的变量就是共享变量吗？

5 楼

臭石头雪球 [专家分：23030] 发布于 2011-01-11 18:31:00

是的

我觉得这些问题你完全可以看书解决，或者自己写一个很简单的代码自己测试。

Module A
Real :: B = 3.0
End Module

Program Main
  Use A
  write(*,*) B
  B = B + 1
  call Sub()
  write(*,*) B
End Program Main

Subroutine Sub()
  Use A
  write(*,*) B
  B = B + 1
End Subroutine

您尚未登录，请登录后再回复。点此登录或注册

主题：请问，动态生成的数组如何用共用空间共享数据？

回复列表（共5个回复）

我来回复

程序员工具箱 new

代码片段