.TITLE	CONSTANTS FOR .ARITH
/
/  28 MAY 73 (PDH) EXTRACT FROM .ARITH
/
	.GLOBL	.CE25,.MSQ2O2,.DC8,.DC0,.RT216
	.GLOBL	.A,.B,.C,.LN2,.LOG2,.MPT16,.MPT63,.S,.T
	.GLOBL	.C1,.C2,.C3,.C4
/
/  SERIES CONSTANTS FOR DP LOG (X) TO BASE 2
/
.CE25	777774; 661370; 040277; 537773; 072556
	777775; 001662; 537404; 002051; 673571
	777775; 062622; 661576; 224441; 523555
	777775; 156016; 407646; 417774; 622326
	777775; 267152; 446672; 077032; 415035
	777775; 423716; 305512; 317773; 733462
	777775; 615074; 532151; 427300; 163422
	777776; 031152; 022312; 002132; 241271
	777776; 220454; 117276; 002521; 741524
	777776; 514134; 612475; 336662; 375442
	0; 116732; 424167; 633774; 744545
	0; 730702; 167035; 003772; 722376
	2; 342520; 731225; 602774; 135677
/
/ -SQRT(2)/2
/
.MSQ2O2	0; 324047; 631477; 473631; 102131
/
/  SERIES CONSTANTS FOR 2**DOUBLE (X)
/
.DC8	777760; 522340; 557172; 064765; 665024
	777763; 500010; 677741; 303777; 747014
	777766; 330132; 606761; 201161; 416610
	777771; 042104; 103676; 511661; 733017
	777773; 252524; 525253; 271702; 521127
	777775; 252524; 525252; 524540; 710761
	0; 0; 0; 0; 202553
	0; 777776; 777777; 777777; 777723
.DC0	1; 0; 0; 0; 0
/
/ SIXTEENTH ROOT OF 2
/
.RT216	1; 026526; 033174; 611036; 612306
/
/ LOG 2 TO BASE 10
/
.LOG2	777776; 150404; 324117; 571775; 714220
/
/ LOG 2 TO BASE E
/
.LN2	0;	305620;	277575;	071736;	325712
/
/ CONSTANTS FOR .SPLG2
/
.MPT16	777775; 217271; 121727
.MPT63	0; 205075; 560510
.T	0; 525253; 252503
	0; 1; 1
	777775; 252525; 525234
.S	0; 076546; 260753
	0; 324046; 631500
	0; 620216; 601651
.A	1; 221104; 010452
.B	2; 253021; 653727
.C	1; 524611; 037317
/
/  CONSTANTS FOR .SPXP2 ROUTINE
/
.C1	15; 615572; 415174
.C2	11; 355224; 756165
.C3	 5; 633246; 117474
.C4	 7; 273256; 021430
	.END