函数输入的求和问题用于求和运算

Question

我有这个程序，我写的试图测试我是否可以定义用户输入的函数然后让Fortran与它进行求和。这就是我做的。

program test

real :: a,b,n,k,sum

integer, intent(out) :: func
print *, 'what are the values of a b n k?'
read *, a,b,n,k
print *, 'what is the function?'
read *, func
sum = 0

DO I= 1, 6
    x = ((A)+I * ((b-a)/(n)))
        sum = sum + func
END DO


print *, sum 

end program test

编译器反过来说：

sh-4.3$ gfortran -std=f95 *.f95 -o main                                                                                                                                               
Newfile.f95:5:28:                                                                                                                                                                     

 integer, intent(out) :: func                                                                                                                                                         
                            1                                                                                                                                                         
Error: Symbol at (1) is not a DUMMY variable 

有什么想法吗？

Answer 1

   integer, intent(out) :: func

可用于声明过程参数，但是您将其放入主程序中。

intent(out)没有任何意义。

另一个问题是，不清楚程序中的功能应该是什么。