A=IPSR(V)
$(INTEGRAL POLYNOMIAL, SPECIAL READ. MAY 17 79 DSA)
SAFE RL.
(1) RL=LENGTH(V). A=DIIPSR(V). A=PFSDIP(RL,A)..