INTEGER, PARAMETER :: N = 7
REAL, DIMENSION (N) :: X, FX
INTERFACE
   FUNCTION F(X,N)
      INTEGER, INTENT (IN) :: N
      REAL, DIMENSION(N),INTENT(IN) :: X
      REAL, DIMENSION(SIZE(X))::  F
   END FUNCTION
END INTERFACE

DATA X /-3., -2., -1., 0., 1., 2., 3./

FX = F(X,N)
PRINT*, FX

!CONTAINS
END
FUNCTION F(X,N)
INTEGER, INTENT (IN) :: N
REAL, DIMENSION(N),INTENT(IN) :: X
REAL, DIMENSION(SIZE(X))::  F
F(:) = 3*X(:)*X(:) + 2*X(:) - 5
END	FUNCTION
!END