/*
 *				p o w t e n . c
 */

/*)LIBRARY
*/

#ifdef	DOCUMENTATION
title	powten	table of powers of 10
index	table of powers of 10
usage
	.s
	extern double powten[];
	.s
description
	.s
	This is an extern array of the powers of ten from 1e-38 to 1e+38.
	It is used by dtoa and atof. 
	.s
diagnostics
	.s
	None
	.s
internal
	.s
	powten[0] is 1e-38
	.br
	powten[38] is 1e0
	.br
	powten[76] is 1e38
	.s
author
	.s
	Hamish Ross.
	.s
date
	.s
	25-Mar-85
#endif

double powten[] = {1e-38, 1e-37, 1e-36, 1e-35, 1e-34, 1e-33,
	1e-32, 1e-31, 1e-30, 1e-29, 1e-28, 1e-27, 1e-26, 1e-25, 1e-24,
	1e-23, 1e-22, 1e-21, 1e-20, 1e-19, 1e-18, 1e-17, 1e-16, 1e-15,
	1e-14, 1e-13, 1e-12, 1e-11, 1e-10, 1e-9, 1e-8, 1e-7, 1e-6, 1e-5,
	1e-4, 1e-3, 1e-2, 1e-1, 1e0, 1e1, 1e2, 1e3, 1e4, 1e5, 1e6, 1e7,
	1e8, 1e9, 1e10, 1e11, 1e12, 1e13, 1e14, 1e15, 1e16, 1e17, 1e18,
	1e19, 1e20, 1e21, 1e22, 1e23, 1e24, 1e25, 1e26, 1e27, 1e28, 1e29,
	1e30, 1e31, 1e32, 1e33, 1e34, 1e35, 1e36, 1e37, 1e38};