fcode 发表于 2015-4-9 17:20
你理解得就不对。
common 只是变量具有的属性。而不是变量的一个集合。
common /x/ a , b , c
real a , b , c
a = 3.0
b = 4.0
c = 5.0
call sb()
call s()
read(*,*)
end
subroutine s()
common /x/ a , b , c
a = a+1 !// 此处修改了 a
write(*,*) a
end
subroutine sb()
real :: a
a = 4444.0
write(*,*) a
end
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |