RETURN ENDIF 工=1 10 IF((I).LT. T) 工=T+1 IFCI LE. N GOTo 10 ENDIF K=工-4 IF(K LT. 1)K=1 M=I+3 IF( M.GT NM=N Do30工=K,M s=1.0 DO 20 J=K M IF(.NE. I)THEN S=s*〔T-X())/(X(I)-X() ENDIF 20 CONTINUE Z=Z+S*Y(I) 30 CONTINUE RETURN ENDRETURN ENDIF I=1 10 IF(X(1) .LT. T) I=I+1 IF(I .LE. N) GOTO 10 ENDIF K=I-4 IF(K .LT. 1) K=1 M=I+3 IF( M .GT. N) M=N DO 30 I=K,M S=1.0 DO 20 J=K,M IF(J .NE. I) THEN S=S*(T-X(J))/(X(I)-X(J)) ENDIF 20 CONTINUE Z=Z+S*Y(I) 30 CONTINUE RETURN END