Question

Fortran里，contains后面可以跟多个function吗，如果不能，怎样在一个程序中

Fortran里，contains后面可以跟多个function吗，如果不能，怎样在一个程序中自定义多个子函数？

Answer 1

可以包含多个 function

追问

这样吗

追答

contains
function f(x)
...
end function f
function g(x)
...
end function g

Answer 2

program main

call ww
a = f1()
a = f2()
pause 333

contains
subroutine ww()
print*,"w1"
end subroutine
integer function f1()
f1=1
print*,"f1"
end function
integer function f2()
f2=1
print*,"f2"
end function
end program