当一个伪参数是一个函数时，Fortran错误6637，相应的实际参数也必须是一个函数

Question

我试图找到多项式的根，我有这个根查找函数：

subroutine DZERO(a,b,x,r,eta,MAXFUN,FCN)

当我致电DZERO(a,b,x,d,1.d-6,90,FUN)时FUN是一个功能

 FUNCTION FUN (x,I)    
        IMPLICIT REAL *8 (A-H,O-Z) 
        FUN=x
        RETURN 
    END

FORTRAN has a problem 

Severity    Code    Description Project File    Line    Suppression State
Error       error #6637: When a dummy argument is a function, the corresponding actual argument must also be a function.   [FUN]        

任何人都可以帮助我吗？感谢。

    program Console1
    IMPLICIT REAL *8 (A-H,O-Z)
    common a,b
    a=-1
    b=1

    CALL DZERO (a,b,x,d,1.d-6,90,FUN)

    end program Console1

      FUNCTION FUN (x,I)    
      IMPLICIT REAL *8 (A-H,O-Z) 
      FUN=x 
      RETURN 

     END

      SUBROUTINE DZERO (A,B,X,R,ETA,MAXFUN,FCN)
      IMPLICIT REAL *8 (A-H,O-Z)

      RETURN
    END