/******************************************************************************
*
*	rm_publi.h - Used by the ICI convertion routines.
*
*	Module	%M%	Version	%I% 	Date	%H%
*
*	(c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
*	This is unpublished proprietary source code of Ardent Software, Inc.
*	The copyright notice above does not evidence any actual or intented
*	publication of such source code.
*
*******************************************************************************
*
*	Maintenence log - insert most recent change descriptions at top
*
*	Date.... GTAR# WHO Description.........................................
*	10/14/98 23801 SAP Change copyrights. 
*	13.12.93 12306 JC  Creation of Module. Based on the PI/open version.
*   
*  
*
*
*
*****************************************************************************/


/*  START-HISTORY:
 *
 *  22 Jul 92 (WHYMAN) [PIGS 4886, SPAR none]
 *            Initialise new minustento powers table.
 * 10 Jul 91 (JRAMSDEN) [PIGS 3101, SPAR none]
 *          Module created.
 *
 *  END-HISTORY
 *
 *  START-DESCRIPTION:
 *
 *  Included by both rm_intrunm.c for PIplus runfile, & rmv_int2str for
 *  ICI library file.  For any external static data referenced directly
 *  or otherwise (e.g.  via rm_macros.h) by any module loaded in rm.v.mk
 *  the corresponding public declaration must appear here.
 *
 *  END-DESCRIPTION
 *
 *  START-DESIGN:
 *
 *  END-DESIGN
 *
 *  START-FUTURES:
 *
 *  END-FUTURES
 *
 *  START-CODE:
 */

public int iten2the[MAX_INT_POWER+1] = {
   1, 10, 100, 1000, 10000, 100000, 1000000, 10000000, 100000000, 1000000000};

public double tentothe[MAX_DBL_POWER+1] = {
 1.0e0,  1.0e1,  1.0e2,  1.0e3,  1.0e4,  1.0e5,  1.0e6,  1.0e7,  1.0e8,  1.0e9,
 1.0e10, 1.0e11, 1.0e12, 1.0e13, 1.0e14, 1.0e15, 1.0e16, 1.0e17, 1.0e18, 1.0e19,
 1.0e20, 1.0e21, 1.0e22, 1.0e23, 1.0e24, 1.0e25, 1.0e26, 1.0e27, 1.0e28, 1.0e29,
 1.0e30, 1.0e31};

public double minustento[MAX_DBL_POWER+1] = {
1.0e0, 1.0e-1, 1.0e-2, 1.0e-3, 1.0e-4, 1.0e-5, 1.0e-6, 1.0e-7, 1.0e-8, 1.0e-9,
1.0e-10, 1.0e-11, 1.0e-12, 1.0e-13, 1.0e-14, 1.0e-15, 1.0e-16, 1.0e-17, 1.0e-18,
1.0e-19, 1.0e-20, 1.0e-21, 1.0e-22, 1.0e-23, 1.0e-24, 1.0e-25, 1.0e-26, 1.0e-27,
1.0e-28, 1.0e-29, 1.0e-30, 1.0e-31};


/* END-CODE */