PROGRAM D14R6 C Driver for FPOLY PARAMETER(NVAL=15,DX=0.1,NPOLY=5) DIMENSION AFUNC(NPOLY) WRITE(*,'(/1X,T29,A)') 'Powers of X' WRITE(*,'(/1X,T9,A,T17,A,T27,A,T37,A,T47,A,T57,A)') 'X','X**0', * 'X**1','X**2','X**3','X**4' DO 11 I=1,NVAL X=I*DX CALL FPOLY(X,AFUNC,NPOLY) WRITE(*,'(1X,6F10.4)') X,(AFUNC(J),J=1,NPOLY) 11 CONTINUE END