提示说 Error:Error: Syntax error, found '(' when expecting one of: <IDENTIFIER>
real function (x,y)
--------------^
Error executing df.exe.
huangjinfengefa.exe - 1 error(s), 0 warning(s)
以下是我的程序代码，第一次编，就剩一个错误了。。。

program main 
implicit none 
real,parameter:: k= 0.00001
real:: a=-5.0 , b=0.0
real:: q
real:: x,y
x=a+0.382*(b-a)
y=a+0.618*(b-a)

real function (x,y)
implicit none 
real fx
real fy
fx=func(x)
fy=func(y)
if (fx>=fy) then 
a=x
x=y 
y=a+0.618*(b-a)
else 
b=y
y=x
x=a+0.382*(b-a)
end if
real function func(x)
real x 
func=x**2+3*x+4
end function 
real function func(y)
implicit none 
real y 
func=y**2+3*y+4
end function 
do while (b-a<=k)
end do
write (*,*) "q=",(b+a)/2
stop 
end program