Question

有没有办法指定所使用的函数（例如下面程序中的 gamma）是内在函数而不是用户定义的函数？

module m
end module m

program xgamma
use m
implicit none
integer, parameter :: dp = kind(1.0d0)
real(kind=dp)      :: x
integer            :: i
do i=1,11
   x = i*0.5_dp
   write (*,"(f5.1,f20.6)") x,gamma(x)
end do
end program xgamma

Answer 1

是的，通过intrinsic：

module m
end module m

program xgamma

    use m
    implicit none
    intrinsic :: gamma
    integer, parameter :: dp = kind(1.0d0)
    real(kind=dp)      :: x
    integer            :: i
    do i=1,11
       x = i*0.5_dp
       write (*,"(f5.1,f20.6)") x,gamma(x)
    end do

contains

    real function gamma()
    end function

end program xgamma

指定 Fortran 中的函数是内在函数

1 个答案: