1

在执行以下积分时,我不明白 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
4

1 回答 1

2

如果未定义,Fortran 编译器会将所有变量识别为intent具有inout.

过程参数,例如 your f,是不同的,不是真正inout, 或inout。如果您确实指定f为其中任何一个,您将收到一条错误消息,其中包含以下内容

  Error: PROCEDURE attribute conflicts with INTENT attribute in 'f' at (1)
于 2013-07-18T11:14:12.907 回答