      REAL FUNCTION P(N, A, X)
C
C-----------------------------------------------------------------------
C Horner Schema
C
C Uebergabeparameter:
C
C N.....................Ordnung des Polynoms                         (I)
C A.....................Koeffizienten                                (I)
C X.....................unabhaengige Variable                        (I)
C P.....................Funktionswert                                (O)
C
C-----------------------------------------------------------------------
C
C 23.03.93  S. Schaub
C
C-----------------------------------------------------------------------
C
      INTEGER           I, N
      REAL              A(0:N), X
C
      P = A(N)
C
      DO I = 1, N
        P = P * X + A(N - I)
      END DO
C
      RETURN
      END
