      FUNCTION POLY (X,A,NORD)
      DIMENSION A(1)
	REAL*8 XX
      POLY=A(1)
	XX=X
      DO 10 I=1,NORD  
      POLY=POLY+A(I+1)*XX**I
10    CONTINUE
      RETURN
      END 
