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