15 lines
311 B
Fortran
15 lines
311 B
Fortran
FUNCTION fredin(x,n,a,b,t,f,w,g,ak)
|
|
INTEGER n
|
|
REAL fredin,a,b,x,f(n),t(n),w(n),g,ak
|
|
EXTERNAL ak,g
|
|
CU USES ak,g
|
|
INTEGER i
|
|
REAL sum
|
|
sum=0.
|
|
do 11 i=1,n
|
|
sum=sum+ak(x,t(i))*w(i)*f(i)
|
|
11 continue
|
|
fredin=g(x)+sum
|
|
return
|
|
END
|