错误：在（1）处返回类型不匹配的函数（INTEGER（4）/ REAL（4））

Question

我是编程方面的新手，希望得到您的帮助。我正在尝试修改用Fortran 77编写的旧程序。当我将此文件导入SIMPLY FORTAN时，我收到了几条错误消息，除了这个消息之外我清除了大部分错误消息。我不知道如何解决这个问题....请参阅下面的代码供您参考。

SUBROUTINE Determine(X, Y, ZMIN, ZANG, PMIN, NP, N, M, T, Z, G)
    INTEGER A, B, C
    PARAMETER (A=5,B=100,C=25)
    INETEGER NP, N, J, PMIN, IP
    REAL M(A), T(A,B), Z(A,C), G(A)
    REAL X, Y, ZMIN, ZANG 
    REAL H, HA, pi

    pi=3.1415926536
    ZMIN=1.0
    DO IP=1,NP
        DO J=1,N
            HA = TAKE(X, Y, M(IP), T(IP,J), Z(IP,1), G(IP)*PI/180., IP, 1)
            IF ( HA .LE. ZMIN ) THEN
                ZMIN = HA
                PMIN = IP
                ZANG = T(IP,J)
            ENDIF
        END DO
    END DO
RETURN
END

当我运行它时，我得到以下错误.....

Error: Return type mismatch of function 'TAKE' at (1) (INTEGER(4)/REAL(4))

有人知道如何修复此错误吗？