C-FCAL 1969
11.0  T !!   ROOTS OF POLYNLMIAL - PAT IV
11.10 T !! "POLYNMIA DIVIION FR REAOOTDUCON
11.20  ! "ODER OF POLYNOMIAL  ",N
11.30 S M=2;S B(1)=1
11.40 T!! "TP IN P
LYNOMIAL OEFFS ,!
11.45F I=1,N+1;A A(I)
11.50 A ! "YPE I COFFS,   U( F X^2PX+U  ",P,U
11.50 S B(2)=P;S B(3)=U
11.60 T !! "POLYNOMIAL OFFS",!11.6F I1N+1;T %,A(I), !
11.70 T !! "P  ",P,"   U  ",U

12.00 S L=+1
12.20 FI=1,L;S G(I)=A(I)
12.30 S LL=N-M+1
12.40 F I=1(LL;D 13
12.50  	=1,M; (I)=G(N(M+I
1.&0 S L=M-1
12.70 IF ((1)( 12.9,12.75,12.9
12.75F (L  12.9 12.9, 2.712.F I,L;S RI)=R(I+1)
12.80 S L=L-1;G 02.7
12.90 G 15.1

13.10 S Q(I)=GI)/B 0)
13 20 F J=1,M;D 14
13.30 R

14.10 S W=Q(I)*(J+1)
14.20  G(
+J)=G I+J)
14  IF FABS(G(I+J) -.000*FABS(W)) 14.4,14.4,14.0
14.40 S G(I+J)=0
14.50 R
15.1   !!"RESULTS OF DIVISION
15.20T !! "REDUCD POLYNOMAL",!
15.24 F I=0,LL0%,Q I(, !
15.40 Q
*