1.返回值是数组:使用interface接口(p189)
interface
function random10(lbound,ubound)
implicit none
real::lbound,ubound
real::random10(10)*声明返回值是数组*
end function
end interface
1.返回值是数组:使用interface接口(p189)
interface
function random10(lbound,ubound)
implicit none
real::lbound,ubound
real::random10(10)*声明返回值是数组*
end function
end interface