在执行以下积分时,我不明白 a,b 的意图不应该是什么 f 的意图是什么?子程序中的所有参数变量不应该有一个意图吗?这让我感到困惑,即使它有效我想知道如何?
另外,我看到 x 是意图(in),因为 y 在子例程中作为 f 的形式参数传递。我只是不确定子程序的意图是怎么回事,似乎积分应该是意图(OUT)对吗?
PROGRAM MAIN
IMPLICIT NONE
real*10 :: integral
a= 1; b =2;n=1000;
call simpson(f,a,b,integral,n)
REAL*10 FUNCTION f(x)
REAL*10, INTENT(IN) :: x
f = x**(2.*charge)*exp(-a*x**2 -(b/2)*x**4)
END FUNCTION f
SUBROUTINE simpson(f,a,b,integral,n)
REAL*10 :: integral, a, b
REAL*10 :: f
REAL*10 h, y ,s
integer n, i
! if n is odd we add +1 to make it even
if((n/2)*2.ne.n) n=n+1
! loop over n (number of intervals)
s = 0.0
h = (b-a)/dfloat(n)
do i=2, n-2, 2
y = a+dfloat(i)*h
s = s + 2.0*f(y) + 4.0*f(y+h)
end do
integral = (s + f(a) + f(b) + 4.0*f(a+h))*h/3.0
end subroutine simpson
end program main