引用子程序

li913

你需要用参数把需要的信息传递进来，结果传递出去。最好还是看书。下面给你一个列子：
program test
real a,b,c
a=5.0
b=3.0
call sub(a,b,c)
print*,c  !c=a*cos(b)
end
subroutine sub(a,b,c)
real a, b, c
c = a*cos(b)
end subroutine