您所在位置：主题：[讨论]关于内部子程序
tianhy2010
[专家分：60] 发布于 2010-07-23 10:08:00
program main
real a
call hx(...)
call hy(...)
contains hx(...)
a=6
end
contains
subroutine hy(...)
a=7
end
想法如上：在主程序里设定a为real型，然后可以在两个不同的内部子程序里给a分别赋值不？而且值的大小不同？
real a
call hx(...)
call hy(...)
contains hx(...)
a=6
end
contains
subroutine hy(...)
a=7
end
想法如上：在主程序里设定a为real型，然后可以在两个不同的内部子程序里给a分别赋值不？而且值的大小不同？