[Fortran] 纯文本查看 复制代码 program x
real :: z = 10
type position
real :: x
real :: y
real :: z
end type position
type(position) :: xyz
xyz = position(1,2,3)
z = fun1(z)
write(*,*) z
contains
real function fun1(x)
real intent(in) :: x
fun1 = (x+xyz%z)/xyz%z
end function fun1
end program x
就是这么一段小程序,就是这个地方卡住了,其实已经遇到好几处这个问题的原因了,就是实参虚参不太明白 |