.title	doutab	Table for ATOD and DTOA routines
	.ident	/000001/
;
;+
; Internal
;
; Index		Internal table for ATOD and DTOA routines
;
; Bugs
;
;-
;
; Edit history
; 000001 16-Apr-82 SDR	First attempt
; 000002 11-Apr-83 GCE  Change psect name
;

	.psect	c$data

; All Possible Positive Powers of 10, 10^0 To 10^38

$$TENS::.flt4	1E0 ,1E1 ,1E2 ,1E3 ,1E4 ,1E5 ,1E6 ,1E7 ,1E8 ,1E9
	.flt4	1E10,1E11,1E12,1E13,1E14,1E15,1E16,1E17,1E18,1E19
	.flt4	1E20,1E21,1E22,1E23,1E24,1E25,1E26,1E27,1E28,1E29
	.flt4	1E30,1E31,1E32,1E33,1E34,1E35,1E36,1E37,1E38


.end