73 lines
2.3 KiB
C
Executable File
73 lines
2.3 KiB
C
Executable File
/******************************************************************************
|
|
*
|
|
* 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 */
|