/*===========================================================================*/
/*   (Ieee/dtoa.scm)                                                         */
/*   Bigloo (4.5b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Fri Dec 22 05:17:06 PM CET 2023     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/bigloo/bin/bigloo -ldopt -L/home/serrano/prgm/project/bigloo/bigloo/libbacktrace/home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b  -srfi enable-gmp -srfi bigloo-safe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -rm -copt -w -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -O3 -mklib -cc gcc -fsharing -q -unsafev -eval (set! *indent* 4) -stdc -c Ieee/dtoa.scm -indent -o objs/obj_s/Ieee/dtoa.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* traces mode */
#define BIGLOO_TRACE 0

/* standard Bigloo include */
#include <bigloo.h>

#ifdef __cplusplus
extern "C" {
#endif
#ifndef BGL_MODULE_TYPE_DEFINITIONS
#define BGL_MODULE_TYPE_DEFINITIONS
#ifndef BGL___R4_NUMBERS_6_5_FLONUM_DTOA_TYPE_DEFINITIONS
#define BGL___R4_NUMBERS_6_5_FLONUM_DTOA_TYPE_DEFINITIONS
#endif // BGL___R4_NUMBERS_6_5_FLONUM_DTOA_TYPE_DEFINITIONS
#endif // BGL_MODULE_TYPE_DEFINITIONS

extern long BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(long, long);
static BGL_LONGLONG_T BGl_fastzd2dividerzd2zz__r4_numbers_6_5_flonum_dtoaz00(long, BGL_LONGLONG_T, obj_t, BGL_LONGLONG_T, bool_t);
static obj_t BGl_requirezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00 = BUNSPEC;
static long BGl_fixnumzd2ze3doublezd2stringze3zz__r4_numbers_6_5_flonum_dtoaz00(obj_t, obj_t, obj_t, bool_t);
extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_fastzd2dividerzd2reszd2exactzf3z21zz__r4_numbers_6_5_flonum_dtoaz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
static long BGl_prettifyzd2stringz12zc0zz__r4_numbers_6_5_flonum_dtoaz00(obj_t, obj_t, obj_t, obj_t);
static double BGl_za21zf2log2_10za2zf2zz__r4_numbers_6_5_flonum_dtoaz00;
static obj_t BGl_toplevelzd2initzd2zz__r4_numbers_6_5_flonum_dtoaz00(void);
static BGL_LONGLONG_T BGl_za2hiddenzd2bitza2zd2zz__r4_numbers_6_5_flonum_dtoaz00;
static long BGl_fillzd2doublez12zc0zz__r4_numbers_6_5_flonum_dtoaz00(obj_t, obj_t, double);
static BGL_LONGLONG_T BGl_computezd2denormalzd2zz__r4_numbers_6_5_flonum_dtoaz00(BGL_LONGLONG_T);
static long BGl_za2precisionzd2shiftza2zd2zz__r4_numbers_6_5_flonum_dtoaz00;
extern unsigned char BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(long);
static long BGl_generatezd2digitszd2zz__r4_numbers_6_5_flonum_dtoaz00(obj_t, obj_t, BGL_LONGLONG_T, BGL_LONGLONG_T, BGL_LONGLONG_T, BGL_LONGLONG_T, BGL_LONGLONG_T, BGL_LONGLONG_T, bool_t);
static BGL_LONGLONG_T BGl_decomposezd2doublezd2zz__r4_numbers_6_5_flonum_dtoaz00(double);
static obj_t BGl_importedzd2moduleszd2initz00zz__r4_numbers_6_5_flonum_dtoaz00(void);
static obj_t BGl_gczd2rootszd2initz00zz__r4_numbers_6_5_flonum_dtoaz00(void);
static long BGl_fastzd2dividerzd2reszd2kzd2zz__r4_numbers_6_5_flonum_dtoaz00;
static long BGl_difficultzd2fillzd2doublez12z12zz__r4_numbers_6_5_flonum_dtoaz00(obj_t, obj_t, double);
static long BGl_za2mantissazd2siza7eza2z75zz__r4_numbers_6_5_flonum_dtoaz00;
extern double BGl_logz00zz__r4_numbers_6_5z00(obj_t);
static obj_t BGl_cachedzd2dividerzd2zz__r4_numbers_6_5_flonum_dtoaz00(long);
static double BGl_za2firstzd2normalza2zd2zz__r4_numbers_6_5_flonum_dtoaz00;
static long BGl_setzd2digitz12ze70z27zz__r4_numbers_6_5_flonum_dtoaz00(obj_t, obj_t, BGL_LONGLONG_T);
extern obj_t BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(obj_t, obj_t, obj_t, obj_t, int, int);
static long BGl_za2exponentzd2biasza2zd2zz__r4_numbers_6_5_flonum_dtoaz00;
static long BGl_za2minzd2exponentza2zd2zz__r4_numbers_6_5_flonum_dtoaz00;
static BGL_LONGLONG_T BGl_za2exponentzd2maskza2zd2zz__r4_numbers_6_5_flonum_dtoaz00;
static obj_t BGl_z62realzd2ze3stringz53zz__r4_numbers_6_5_flonum_dtoaz00(obj_t, obj_t);
extern obj_t make_string(long, unsigned char);
static long BGl_fillzd2fixnumz12zc0zz__r4_numbers_6_5_flonum_dtoaz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t bgl_real_to_string(double);
extern obj_t BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(obj_t, long, obj_t, long, long);
static long BGl_kzd2estimationzd2zz__r4_numbers_6_5_flonum_dtoaz00(obj_t);
static bool_t BGl_stringzd2shiftz12zc0zz__r4_numbers_6_5_flonum_dtoaz00(obj_t, obj_t, long, long);
static double BGl_za2maxvalfxzf2mantissaza2zf2zz__r4_numbers_6_5_flonum_dtoaz00;
static BGL_LONGLONG_T BGl_za2mantissazd2maskza2zd2zz__r4_numbers_6_5_flonum_dtoaz00;
static obj_t *__cnst;


DEFINE_EXPORT_BGL_PROCEDURE( BGl_realzd2ze3stringzd2envze3zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bgl_za762realza7d2za7e3str1869za7, BGl_z62realzd2ze3stringz53zz__r4_numbers_6_5_flonum_dtoaz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bgl_string1851za700za7za7_1870za7, "/tmp/bigloo/runtime/Ieee/dtoa.scm", 33 );
DEFINE_STRING( BGl_string1852z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bgl_string1852za700za7za7_1871za7, "vector-ref", 10 );
DEFINE_STRING( BGl_string1853z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bgl_string1853za700za7za7_1872za7, "string-set!", 11 );
DEFINE_STRING( BGl_string1854z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bgl_string1854za700za7za7_1873za7, "k-estimation", 12 );
DEFINE_STRING( BGl_string1855z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bgl_string1855za700za7za7_1874za7, "bint", 4 );
DEFINE_STRING( BGl_string1856z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bgl_string1856za700za7za7_1875za7, "string-ref", 10 );
DEFINE_STRING( BGl_string1857z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bgl_string1857za700za7za7_1876za7, "less?", 5 );
DEFINE_STRING( BGl_string1858z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bgl_string1858za700za7za7_1877za7, "bllong", 6 );
DEFINE_STRING( BGl_string1859z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bgl_string1859za700za7za7_1878za7, "loop", 4 );
DEFINE_STRING( BGl_string1860z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bgl_string1860za700za7za7_1879za7, "fast-divider", 12 );
DEFINE_STRING( BGl_string1861z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bgl_string1861za700za7za7_1880za7, "-0.0", 4 );
DEFINE_STRING( BGl_string1862z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bgl_string1862za700za7za7_1881za7, "0.0", 3 );
DEFINE_STRING( BGl_string1863z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bgl_string1863za700za7za7_1882za7, "-inf.0", 6 );
DEFINE_STRING( BGl_string1864z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bgl_string1864za700za7za7_1883za7, "+inf.0", 6 );
DEFINE_STRING( BGl_string1865z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bgl_string1865za700za7za7_1884za7, "+nan.0", 6 );
DEFINE_STRING( BGl_string1866z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bgl_string1866za700za7za7_1885za7, "&real->string", 13 );
DEFINE_STRING( BGl_string1867z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bgl_string1867za700za7za7_1886za7, "real", 4 );
DEFINE_STRING( BGl_string1868z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bgl_string1868za700za7za7_1887za7, "__r4_numbers_6_5_flonum_dtoa", 28 );

/* GC roots registration */
static obj_t bgl_gc_roots_register() {
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
void *roots_min = (void*)ULONG_MAX, *roots_max = 0;
ADD_ROOT( (void *)(&BGl_requirezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00) );
ADD_ROOT( (void *)(&BGl_fastzd2dividerzd2reszd2exactzf3z21zz__r4_numbers_6_5_flonum_dtoaz00) );
ADD_ROOT( (void *)(&*__cnst) );
#undef ADD_ROOT
if( roots_max > 0 ) GC_add_roots( roots_min, ((void **)roots_max) + 1 );
#endif
return BUNSPEC;
}



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00(long BgL_checksumz00_2264, char * BgL_fromz00_2265)
{
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00))
{ 
BGl_requirezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00 = 
BBOOL(((bool_t)0)); 
BGl_gczd2rootszd2initz00zz__r4_numbers_6_5_flonum_dtoaz00(); 
BGl_importedzd2moduleszd2initz00zz__r4_numbers_6_5_flonum_dtoaz00(); 
return 
BGl_toplevelzd2initzd2zz__r4_numbers_6_5_flonum_dtoaz00();}  else 
{ 
return BUNSPEC;} } 

}



/* gc-roots-init */
obj_t BGl_gczd2rootszd2initz00zz__r4_numbers_6_5_flonum_dtoaz00(void)
{
{ /* Ieee/dtoa.scm 15 */
return 
bgl_gc_roots_register();} 

}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__r4_numbers_6_5_flonum_dtoaz00(void)
{
{ /* Ieee/dtoa.scm 15 */
BGl_za2exponentzd2biasza2zd2zz__r4_numbers_6_5_flonum_dtoaz00 = 1075L; 
BGl_za2minzd2exponentza2zd2zz__r4_numbers_6_5_flonum_dtoaz00 = 
NEG(1075L); 
BGl_za2mantissazd2siza7eza2z75zz__r4_numbers_6_5_flonum_dtoaz00 = 53L; 
BGl_za2firstzd2normalza2zd2zz__r4_numbers_6_5_flonum_dtoaz00 = ((double)2.2250738585072e-308); 
BGl_za2exponentzd2maskza2zd2zz__r4_numbers_6_5_flonum_dtoaz00 = (0 + ((BGL_LONGLONG_T)65536 * ((0 + ((BGL_LONGLONG_T)65536 * ((0 + ((BGL_LONGLONG_T)65536 * (((BGL_LONGLONG_T)32752)))))))))); 
BGl_za2mantissazd2maskza2zd2zz__r4_numbers_6_5_flonum_dtoaz00 = (65535 + ((BGL_LONGLONG_T)65536 * ((65535 + ((BGL_LONGLONG_T)65536 * ((65535 + ((BGL_LONGLONG_T)65536 * (((BGL_LONGLONG_T)15)))))))))); 
BGl_za2hiddenzd2bitza2zd2zz__r4_numbers_6_5_flonum_dtoaz00 = (0 + ((BGL_LONGLONG_T)65536 * ((0 + ((BGL_LONGLONG_T)65536 * ((0 + ((BGL_LONGLONG_T)65536 * (((BGL_LONGLONG_T)16)))))))))); 
{ /* Ieee/dtoa.scm 199 */
 double BgL_maxvalfx_flz00_950;
BgL_maxvalfx_flz00_950 = 
(double)(BGL_LONG_MAX); 
if(
(BgL_maxvalfx_flz00_950<((double)9007199254740991.0)))
{ /* Ieee/dtoa.scm 204 */
BGl_za2maxvalfxzf2mantissaza2zf2zz__r4_numbers_6_5_flonum_dtoaz00 = BgL_maxvalfx_flz00_950; }  else 
{ /* Ieee/dtoa.scm 204 */
BGl_za2maxvalfxzf2mantissaza2zf2zz__r4_numbers_6_5_flonum_dtoaz00 = ((double)9007199254740991.0); } } 
BGl_za21zf2log2_10za2zf2zz__r4_numbers_6_5_flonum_dtoaz00 = 
(
BGl_logz00zz__r4_numbers_6_5z00(
BINT(2L))/
BGl_logz00zz__r4_numbers_6_5z00(
BINT(10L))); 
BGl_za2precisionzd2shiftza2zd2zz__r4_numbers_6_5_flonum_dtoaz00 = 10L; 
BGl_fastzd2dividerzd2reszd2kzd2zz__r4_numbers_6_5_flonum_dtoaz00 = 0L; 
return ( 
BGl_fastzd2dividerzd2reszd2exactzf3z21zz__r4_numbers_6_5_flonum_dtoaz00 = BTRUE, BUNSPEC) ;} 

}



/* cached-divider */
obj_t BGl_cachedzd2dividerzd2zz__r4_numbers_6_5_flonum_dtoaz00(long BgL_kz00_3)
{
{ /* Ieee/dtoa.scm 138 */
{ /* Ieee/dtoa.scm 139 */
 long BgL_indexz00_964;
BgL_indexz00_964 = 
(330L+BgL_kz00_3); 
{ /* Ieee/dtoa.scm 139 */
 obj_t BgL_vz00_965;
{ /* Ieee/dtoa.scm 140 */
 obj_t BgL_arg1125z00_975;
struct bgl_llong1017 { __CNST_ALIGN header_t header; BGL_LONGLONG_T llong; };; 
static struct bgl_llong1017 a1016[] = { { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7830057919084424892 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4893786199427765557 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6117232749284706947 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7646540936605883684 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4779088085378677302 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5973860106723346628 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7467325133404183285 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4667078208377614553 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5833847760472018191 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7292309700590022739 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 9115387125737528424 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5697116953585955265 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7121396191982444081 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8901745239978055101 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5563590774986284438 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6954488468732855548 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8693110585916069435 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5433194116197543397 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6791492645246929246 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8489365806558661557 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5305853629099163473 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6632317036373954342 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8290396295467442927 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5181497684667151829 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6476872105833939787 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8096090132292424734 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5060056332682765458 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6325070415853456823 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7906338019816821029 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4941461262385513143 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6176826577981891429 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7721033222477364286 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4825645764048352679 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6032057205060440848 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7540071506325551061 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4712544691453469413 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5890680864316836766 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7363351080396045958 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 9204188850495057447 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5752618031559410904 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7190772539449263630 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8988465674311579538 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5617791046444737211 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7022238808055921514 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8777798510069901893 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5486124068793688683 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6857655085992110854 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8572068857490138567 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5357543035931336604 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6696928794914170755 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8371160993642713444 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5231975621026695903 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6539969526283369878 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8174961907854212348 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5109351192408882717 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6386688990511103397 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7983361238138879246 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4989600773836799529 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6237000967295999411 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7796251209119999264 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4872657005699999540 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6090821257124999425 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7613526571406249281 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4758454107128905800 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5948067633911132251 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7435084542388915313 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4646927838993072071 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5808659798741340089 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7260824748426675111 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 9076030935533343889 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5672519334708339930 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7090649168385424913 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8863311460481781141 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5539569662801113213 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6924462078501391516 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8655577598126739396 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5409735998829212122 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6762169998536515153 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8452712498170643941 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5282945311356652463 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6603681639195815579 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8254602048994769474 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5159126280621730921 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6448907850777163651 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8061134813471454564 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5038209258419659102 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6297761573024573878 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7872201966280717348 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4920126228925448342 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6150157786156810428 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7687697232696013035 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4804810770435008147 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6006013463043760183 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7507516828804700229 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4692198018002937643 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5865247522503672054 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7331559403129590068 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 9164449253911987585 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5727780783694992240 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7159725979618740301 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8949657474523425376 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5593535921577140860 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6991919901971426075 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8739899877464282594 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5462437423415176621 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6828046779268970776 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8535058474086213470 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5334411546303883419 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6668014432879854274 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8335018041099817842 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5209386275687386151 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6511732844609232689 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8139666055761540861 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5087291284850963038 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6359114106063703798 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7948892632579629747 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4968057895362268592 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6210072369202835740 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7762590461503544675 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4851619038439715422 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6064523798049644277 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7580654747562055347 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4737909217226284592 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5922386521532855740 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7402983151916069675 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4626864469947543547 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5783580587434429433 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7229475734293036792 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 9036844667866295990 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5648027917416434993 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7060034896770543742 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8825043620963179677 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5515652263101987298 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6894565328877484123 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8618206661096855154 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5386379163185534471 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6732973953981918089 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8416217442477397611 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5260135901548373507 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6575169876935466884 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8218962346169333605 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5136851466355833503 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6421064332944791878 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8026330416180989848 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5016456510113118655 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6270570637641398319 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7838213297051747899 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4898883310657342436 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6123604138321678046 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7654505172902097557 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4784065733063810973 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5980082166329763716 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7475102707912204646 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4671939192445127903 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5839923990556409879 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7299904988195512349 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 9124881235244390437 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5703050772027744023 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7128813465034680029 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8911016831293350036 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5569385519558343772 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6961731899447929715 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8702164874309912144 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5438853046443695090 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6798566308054618863 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8498207885068273579 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5311379928167670986 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6639224910209588733 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8299031137761985917 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5186894461101241198 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6483618076376551497 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8104522595470689372 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5065326622169180857 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6331658277711476071 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7914572847139345089 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4946608029462090681 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6183260036827613351 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7729075046034516689 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4830671903771572930 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6038339879714466163 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7547924849643082704 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4717453031026926690 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5896816288783658362 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7371020360979572953 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 9213775451224466191 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5758609657015291369 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7198262071269114212 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8997827589086392765 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5623642243178995478 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7029552803973744348 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8786941004967180435 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5491838128104487771 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6864797660130609714 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8580997075163262143 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5363123171977038839 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6703903964971298549 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8379879956214123187 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5237424972633826992 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6546781215792283740 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8183476519740354675 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5114672824837721671 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6393341031047152089 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7991676288808940112 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4994797680505587570 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6243497100631984462 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7804371375789980578 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4877732109868737861 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6097165137335922326 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7621456421669902908 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4763410263543689317 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5954262829429611647 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7442828536787014559 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4651767835491884099 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5814709794364855124 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7268387242956068905 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 9085484053695086131 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5678427533559428832 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7098034416949286040 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8872543021186607550 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5545339388241629719 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6931674235302037148 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8664592794127546436 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5415370496329716522 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6769213120412145653 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8461516400515182066 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5288447750321988791 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6610559687902485989 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8263199609878107486 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5164499756173817179 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6455624695217271474 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8069530869021589342 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5043456793138493339 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6304320991423116673 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7880401239278895842 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4925250774549309901 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6156563468186637376 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7695704335233296721 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4809815209520810450 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6012269011901013063 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7515336264876266329 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4697085165547666455 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5871356456934583069 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7339195571168228837 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 9173994463960286046 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5733746539975178779 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7167183174968973473 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8958978968711216842 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5599361855444510526 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6999202319305638157 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8749002899132047697 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5468126811957529810 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6835158514946912263 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8543948143683640329 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5339967589802275205 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6674959487252844007 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8343699359066055009 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5214812099416284380 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6518515124270355476 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8148143905337944345 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5092589940836215215 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6365737426045269019 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7957171782556586274 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4973232364097866421 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6216540455122333026 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7770675568902916283 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4856672230564322677 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6070840288205403346 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7588550360256754183 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4742843975160471364 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5928554968950589205 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7410693711188236507 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4631683569492647816 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5789604461865809771 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7237005577332262213 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 9046256971665327767 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5653910607290829854 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7067388259113537318 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8834235323891921647 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5521397077432451029 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6901746346790563787 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8627182933488204734 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5391989333430127958 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6739986666787659948 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8424983333484574935 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5265614583427859334 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6582018229284824168 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8227522786606030210 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5142201741628768881 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6427752177035961102 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8034690221294951377 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5021681388309344611 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6277101735386680763 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7846377169233350954 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4903985730770844346 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6129982163463555433 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7662477704329444291 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4789048565205902682 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5986310706507378352 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7482888383134222941 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4676805239458889338 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5846006549323611672 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7307508186654514591 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 9134385233318143238 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5708990770823839524 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7136238463529799405 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8920298079412249256 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5575186299632655785 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6968982874540819731 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8711228593176024664 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5444517870735015415 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6805647338418769269 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8507059173023461586 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5316911983139663491 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6646139978924579364 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8307674973655724205 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5192296858534827628 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6490371073168534535 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8112963841460668169 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5070602400912917605 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6338253001141147007 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7922816251426433759 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4951760157141521099 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6189700196426901374 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7737125245533626718 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4835703278458516698 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6044629098073145873 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7555786372591432341 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4722366482869645213 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5902958103587056517 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7378697629483820646 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4611686018427387904 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5764607523034234880 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7205759403792793600 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 9007199254740992000 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5629499534213120000 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7036874417766400000 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8796093022208000000 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5497558138880000000 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6871947673600000000 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8589934592000000000 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5368709120000000000 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6710886400000000000 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8388608000000000000 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5242880000000000000 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6553600000000000000 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8192000000000000000 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5120000000000000000 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6400000000000000000 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8000000000000000000 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5000000000000000000 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6250000000000000000 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7812500000000000000 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4882812500000000000 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6103515625000000000 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7629394531250000000 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4768371582031250000 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5960464477539062500 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7450580596923828125 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4656612873077392578 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5820766091346740722 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7275957614183425903 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 9094947017729282379 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5684341886080801486 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7105427357601001858 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8881784197001252323 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5551115123125782702 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6938893903907228377 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8673617379884035472 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5421010862427522170 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6776263578034402712 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8470329472543003390 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5293955920339377119 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6617444900424221398 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8271806125530276748 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5169878828456422967 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6462348535570528709 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8077935669463160887 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5048709793414475554 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6310887241768094443 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7888609052210118054 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4930380657631323783 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6162975822039154729 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7703719777548943412 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4814824860968089632 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6018531076210112040 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7523163845262640050 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4701977403289150031 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5877471754111437539 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7346839692639296924 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 9183549615799121156 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5739718509874450722 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7174648137343063403 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8968310171678829253 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5605193857299268283 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7006492321624085354 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8758115402030106693 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5473822126268816683 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6842277657836020854 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8552847072295026067 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5345529420184391292 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6681911775230489115 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8352389719038111394 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5220243574398819621 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6525304467998524526 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8156630584998155658 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5097894115623847286 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6372367644529809108 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7965459555662261385 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4978412222288913365 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6223015277861141707 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7778769097326427133 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4861730685829016958 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6077163357286271198 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7596454196607838997 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4747783872879899373 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5934729841099874217 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7418412301374842771 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4636507688359276732 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5795634610449095915 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7244543263061369894 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 9055679078826712367 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5659799424266695229 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7074749280333369037 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8843436600416711296 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5527147875260444560 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6908934844075555700 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8636168555094444625 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5397605346934027890 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6747006683667534863 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8433758354584418579 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5271098971615261612 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6588873714519077015 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8236092143148846269 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5147557589468028918 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6434446986835036147 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8043058733543795184 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5026911708464871990 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6283639635581089987 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7854549544476362484 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4909093465297726553 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6136366831622158191 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7670458539527697739 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4794036587204811087 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5992545734006013858 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7490682167507517323 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4681676354692198327 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5852095443365247908 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7315119304206559886 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 9143899130258199857 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5714936956411374911 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7143671195514218638 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8929588994392773298 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5580993121495483311 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6976241401869354139 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8720301752336692674 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5450188595210432921 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6812735744013041151 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8515919680016301439 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5322449800010188399 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6653062250012735499 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8316327812515919374 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5197704882822449609 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6497131103528062011 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8121413879410077514 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5075883674631298446 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6344854593289123058 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7931068241611403822 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4956917651007127389 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6196147063758909236 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7745183829698636545 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4840739893561647841 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6050924866952059801 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7563656083690074751 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4727285052306296719 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5909106315382870899 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7386382894228588624 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4616489308892867890 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5770611636116084862 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7213264545145106078 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 9016580681431382598 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5635362925894614123 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7044203657368267654 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8805254571710334568 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5503284107318959105 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6879105134148698881 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8598881417685873602 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5374300886053671001 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6717876107567088751 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8397345134458860939 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5248340709036788087 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6560425886295985109 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8200532357869981386 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5125332723668738366 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6406665904585922958 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8008332380732403697 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5005207737957752311 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6256509672447190388 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7820637090558987986 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4887898181599367491 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6109872726999209364 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7637340908749011705 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4773338067968132315 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5966672584960165394 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7458340731200206743 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4661462957000129214 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5826828696250161518 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7283535870312701897 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 9104419837890877372 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5690262398681798357 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7112827998352247947 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8891034997940309933 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5556896873712693708 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6946121092140867135 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8682651365176083919 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5426657103235052449 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6783321379043815562 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8479151723804769452 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5299469827377980908 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6624337284222476135 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8280421605278095168 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5175263503298809480 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6469079379123511850 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8086349223904389813 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5053968264940243633 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6317460331175304541 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7896825413969130677 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4935515883730706673 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6169394854663383341 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7711743568329229176 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4819839730205768235 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6024799662757210294 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7530999578446512867 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4706874736529070542 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5883593420661338178 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7354491775826672722 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 9193114719783340903 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5745696699864588064 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7182120874830735080 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8977651093538418850 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5611031933461511781 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7013789916826889727 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8767237396033612159 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5479523372521007599 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6849404215651259499 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8561755269564074374 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5351097043477546483 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6688871304346933104 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8361089130433666380 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5225680706521041488 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6532100883151301860 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8165126103939127325 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5103203814961954578 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6379004768702443222 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7973755960878054028 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4983597475548783767 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6229496844435979709 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7786871055544974637 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4866794409715609148 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6083493012144511435 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7604366265180639294 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4752728915737899558 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5940911144672374448 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7426138930840468060 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4641336831775292537 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5801671039719115672 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7252088799648894590 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 9065110999561118238 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5665694374725698898 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7082117968407123623 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8852647460508904529 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5532904662818065330 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6916130828522581663 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8645163535653227079 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5403227209783266924 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6754034012229083655 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8442542515286354569 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5276589072053971606 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6595736340067464507 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8244670425084330634 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5152919015677706646 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6441148769597133308 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8051435961996416635 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5032147476247760397 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6290184345309700496 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7862730431637125620 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4914206519773203512 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6142758149716504390 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7678447687145630488 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4799029804466019055 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5998787255582523819 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7498484069478154774 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4686552543423846733 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5858190679279808417 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7322738349099760521 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 9153422936374700651 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5720889335234187907 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7151111669042734884 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8938889586303418605 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5586805991439636628 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6983507489299545785 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8729384361624432231 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5455865226015270144 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6819831532519087681 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8524789415648859601 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5327993384780537250 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6659991730975671563 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8324989663719589454 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5203118539824743409 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6503898174780929261 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8129872718476161576 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5081170449047600985 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6351463061309501231 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7939328826636876539 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4962080516648047837 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6202600645810059796 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7753250807262574745 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4845781754539109216 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6057227193173886520 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7571533991467358150 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4732208744667098843 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5915260930833873554 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7394076163542341943 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4621297602213963714 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5776622002767454643 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7220777503459318304 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 9025971879324147880 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5641232424577592425 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7051540530721990531 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8814425663402488164 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5509016039626555102 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6886270049533193878 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8607837561916492348 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5379898476197807717 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6724873095247259646 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8406091369059074558 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5253807105661921599 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6567258882077401998 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8209073602596752498 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5130671001622970311 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6413338752028712889 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8016673440035891111 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5010420900022431944 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6263026125028039931 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7828782656285049914 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4892989160178156196 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6116236450222695245 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7645295562778369056 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4778309726736480660 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5972887158420600825 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7466108948025751031 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 4666318092516094394 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5832897615645117993 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7291122019556397492 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 9113902524445496865 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5696189077778435540 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 7120236347223044425 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8900295434028805532 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5562684646268003457 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 6953355807835004322 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 8691694759793755402 }, { __CNST_FILLER MAKE_HEADER( LLONG_TYPE, 0 ), 5432309224871097126 } };; 
struct bgl_vector1018 { __CNST_ALIGN 
#if( !defined( TAG_VECTOR ) )
header_t header;
#endif
 unsigned long len; obj_t obj0; obj_t obj1; obj_t obj2; obj_t obj3; obj_t obj4; obj_t obj5; obj_t obj6; obj_t obj7; obj_t obj8; obj_t obj9; obj_t obj10; obj_t obj11; obj_t obj12; obj_t obj13; obj_t obj14; obj_t obj15; obj_t obj16; obj_t obj17; obj_t obj18; obj_t obj19; obj_t obj20; obj_t obj21; obj_t obj22; obj_t obj23; obj_t obj24; obj_t obj25; obj_t obj26; obj_t obj27; obj_t obj28; obj_t obj29; obj_t obj30; obj_t obj31; obj_t obj32; obj_t obj33; obj_t obj34; obj_t obj35; obj_t obj36; obj_t obj37; obj_t obj38; obj_t obj39; obj_t obj40; obj_t obj41; obj_t obj42; obj_t obj43; obj_t obj44; obj_t obj45; obj_t obj46; obj_t obj47; obj_t obj48; obj_t obj49; obj_t obj50; obj_t obj51; obj_t obj52; obj_t obj53; obj_t obj54; obj_t obj55; obj_t obj56; obj_t obj57; obj_t obj58; obj_t obj59; obj_t obj60; obj_t obj61; obj_t obj62; obj_t obj63; obj_t obj64; obj_t obj65; obj_t obj66; obj_t obj67; obj_t obj68; obj_t obj69; obj_t obj70; obj_t obj71; obj_t obj72; obj_t obj73; obj_t obj74; obj_t obj75; obj_t obj76; obj_t obj77; obj_t obj78; obj_t obj79; obj_t obj80; obj_t obj81; obj_t obj82; obj_t obj83; obj_t obj84; obj_t obj85; obj_t obj86; obj_t obj87; obj_t obj88; obj_t obj89; obj_t obj90; obj_t obj91; obj_t obj92; obj_t obj93; obj_t obj94; obj_t obj95; obj_t obj96; obj_t obj97; obj_t obj98; obj_t obj99; obj_t obj100; obj_t obj101; obj_t obj102; obj_t obj103; obj_t obj104; obj_t obj105; obj_t obj106; obj_t obj107; obj_t obj108; obj_t obj109; obj_t obj110; obj_t obj111; obj_t obj112; obj_t obj113; obj_t obj114; obj_t obj115; obj_t obj116; obj_t obj117; obj_t obj118; obj_t obj119; obj_t obj120; obj_t obj121; obj_t obj122; obj_t obj123; obj_t obj124; obj_t obj125; obj_t obj126; obj_t obj127; obj_t obj128; obj_t obj129; obj_t obj130; obj_t obj131; obj_t obj132; obj_t obj133; obj_t obj134; obj_t obj135; obj_t obj136; obj_t obj137; obj_t obj138; obj_t obj139; obj_t obj140; obj_t obj141; obj_t obj142; obj_t obj143; obj_t obj144; obj_t obj145; obj_t obj146; obj_t obj147; obj_t obj148; obj_t obj149; obj_t obj150; obj_t obj151; obj_t obj152; obj_t obj153; obj_t obj154; obj_t obj155; obj_t obj156; obj_t obj157; obj_t obj158; obj_t obj159; obj_t obj160; obj_t obj161; obj_t obj162; obj_t obj163; obj_t obj164; obj_t obj165; obj_t obj166; obj_t obj167; obj_t obj168; obj_t obj169; obj_t obj170; obj_t obj171; obj_t obj172; obj_t obj173; obj_t obj174; obj_t obj175; obj_t obj176; obj_t obj177; obj_t obj178; obj_t obj179; obj_t obj180; obj_t obj181; obj_t obj182; obj_t obj183; obj_t obj184; obj_t obj185; obj_t obj186; obj_t obj187; obj_t obj188; obj_t obj189; obj_t obj190; obj_t obj191; obj_t obj192; obj_t obj193; obj_t obj194; obj_t obj195; obj_t obj196; obj_t obj197; obj_t obj198; obj_t obj199; obj_t obj200; obj_t obj201; obj_t obj202; obj_t obj203; obj_t obj204; obj_t obj205; obj_t obj206; obj_t obj207; obj_t obj208; obj_t obj209; obj_t obj210; obj_t obj211; obj_t obj212; obj_t obj213; obj_t obj214; obj_t obj215; obj_t obj216; obj_t obj217; obj_t obj218; obj_t obj219; obj_t obj220; obj_t obj221; obj_t obj222; obj_t obj223; obj_t obj224; obj_t obj225; obj_t obj226; obj_t obj227; obj_t obj228; obj_t obj229; obj_t obj230; obj_t obj231; obj_t obj232; obj_t obj233; obj_t obj234; obj_t obj235; obj_t obj236; obj_t obj237; obj_t obj238; obj_t obj239; obj_t obj240; obj_t obj241; obj_t obj242; obj_t obj243; obj_t obj244; obj_t obj245; obj_t obj246; obj_t obj247; obj_t obj248; obj_t obj249; obj_t obj250; obj_t obj251; obj_t obj252; obj_t obj253; obj_t obj254; obj_t obj255; obj_t obj256; obj_t obj257; obj_t obj258; obj_t obj259; obj_t obj260; obj_t obj261; obj_t obj262; obj_t obj263; obj_t obj264; obj_t obj265; obj_t obj266; obj_t obj267; obj_t obj268; obj_t obj269; obj_t obj270; obj_t obj271; obj_t obj272; obj_t obj273; obj_t obj274; obj_t obj275; obj_t obj276; obj_t obj277; obj_t obj278; obj_t obj279; obj_t obj280; obj_t obj281; obj_t obj282; obj_t obj283; obj_t obj284; obj_t obj285; obj_t obj286; obj_t obj287; obj_t obj288; obj_t obj289; obj_t obj290; obj_t obj291; obj_t obj292; obj_t obj293; obj_t obj294; obj_t obj295; obj_t obj296; obj_t obj297; obj_t obj298; obj_t obj299; obj_t obj300; obj_t obj301; obj_t obj302; obj_t obj303; obj_t obj304; obj_t obj305; obj_t obj306; obj_t obj307; obj_t obj308; obj_t obj309; obj_t obj310; obj_t obj311; obj_t obj312; obj_t obj313; obj_t obj314; obj_t obj315; obj_t obj316; obj_t obj317; obj_t obj318; obj_t obj319; obj_t obj320; obj_t obj321; obj_t obj322; obj_t obj323; obj_t obj324; obj_t obj325; obj_t obj326; obj_t obj327; obj_t obj328; obj_t obj329; obj_t obj330; obj_t obj331; obj_t obj332; obj_t obj333; obj_t obj334; obj_t obj335; obj_t obj336; obj_t obj337; obj_t obj338; obj_t obj339; obj_t obj340; obj_t obj341; obj_t obj342; obj_t obj343; obj_t obj344; obj_t obj345; obj_t obj346; obj_t obj347; obj_t obj348; obj_t obj349; obj_t obj350; obj_t obj351; obj_t obj352; obj_t obj353; obj_t obj354; obj_t obj355; obj_t obj356; obj_t obj357; obj_t obj358; obj_t obj359; obj_t obj360; obj_t obj361; obj_t obj362; obj_t obj363; obj_t obj364; obj_t obj365; obj_t obj366; obj_t obj367; obj_t obj368; obj_t obj369; obj_t obj370; obj_t obj371; obj_t obj372; obj_t obj373; obj_t obj374; obj_t obj375; obj_t obj376; obj_t obj377; obj_t obj378; obj_t obj379; obj_t obj380; obj_t obj381; obj_t obj382; obj_t obj383; obj_t obj384; obj_t obj385; obj_t obj386; obj_t obj387; obj_t obj388; obj_t obj389; obj_t obj390; obj_t obj391; obj_t obj392; obj_t obj393; obj_t obj394; obj_t obj395; obj_t obj396; obj_t obj397; obj_t obj398; obj_t obj399; obj_t obj400; obj_t obj401; obj_t obj402; obj_t obj403; obj_t obj404; obj_t obj405; obj_t obj406; obj_t obj407; obj_t obj408; obj_t obj409; obj_t obj410; obj_t obj411; obj_t obj412; obj_t obj413; obj_t obj414; obj_t obj415; obj_t obj416; obj_t obj417; obj_t obj418; obj_t obj419; obj_t obj420; obj_t obj421; obj_t obj422; obj_t obj423; obj_t obj424; obj_t obj425; obj_t obj426; obj_t obj427; obj_t obj428; obj_t obj429; obj_t obj430; obj_t obj431; obj_t obj432; obj_t obj433; obj_t obj434; obj_t obj435; obj_t obj436; obj_t obj437; obj_t obj438; obj_t obj439; obj_t obj440; obj_t obj441; obj_t obj442; obj_t obj443; obj_t obj444; obj_t obj445; obj_t obj446; obj_t obj447; obj_t obj448; obj_t obj449; obj_t obj450; obj_t obj451; obj_t obj452; obj_t obj453; obj_t obj454; obj_t obj455; obj_t obj456; obj_t obj457; obj_t obj458; obj_t obj459; obj_t obj460; obj_t obj461; obj_t obj462; obj_t obj463; obj_t obj464; obj_t obj465; obj_t obj466; obj_t obj467; obj_t obj468; obj_t obj469; obj_t obj470; obj_t obj471; obj_t obj472; obj_t obj473; obj_t obj474; obj_t obj475; obj_t obj476; obj_t obj477; obj_t obj478; obj_t obj479; obj_t obj480; obj_t obj481; obj_t obj482; obj_t obj483; obj_t obj484; obj_t obj485; obj_t obj486; obj_t obj487; obj_t obj488; obj_t obj489; obj_t obj490; obj_t obj491; obj_t obj492; obj_t obj493; obj_t obj494; obj_t obj495; obj_t obj496; obj_t obj497; obj_t obj498; obj_t obj499; obj_t obj500; obj_t obj501; obj_t obj502; obj_t obj503; obj_t obj504; obj_t obj505; obj_t obj506; obj_t obj507; obj_t obj508; obj_t obj509; obj_t obj510; obj_t obj511; obj_t obj512; obj_t obj513; obj_t obj514; obj_t obj515; obj_t obj516; obj_t obj517; obj_t obj518; obj_t obj519; obj_t obj520; obj_t obj521; obj_t obj522; obj_t obj523; obj_t obj524; obj_t obj525; obj_t obj526; obj_t obj527; obj_t obj528; obj_t obj529; obj_t obj530; obj_t obj531; obj_t obj532; obj_t obj533; obj_t obj534; obj_t obj535; obj_t obj536; obj_t obj537; obj_t obj538; obj_t obj539; obj_t obj540; obj_t obj541; obj_t obj542; obj_t obj543; obj_t obj544; obj_t obj545; obj_t obj546; obj_t obj547; obj_t obj548; obj_t obj549; obj_t obj550; obj_t obj551; obj_t obj552; obj_t obj553; obj_t obj554; obj_t obj555; obj_t obj556; obj_t obj557; obj_t obj558; obj_t obj559; obj_t obj560; obj_t obj561; obj_t obj562; obj_t obj563; obj_t obj564; obj_t obj565; obj_t obj566; obj_t obj567; obj_t obj568; obj_t obj569; obj_t obj570; obj_t obj571; obj_t obj572; obj_t obj573; obj_t obj574; obj_t obj575; obj_t obj576; obj_t obj577; obj_t obj578; obj_t obj579; obj_t obj580; obj_t obj581; obj_t obj582; obj_t obj583; obj_t obj584; obj_t obj585; obj_t obj586; obj_t obj587; obj_t obj588; obj_t obj589; obj_t obj590; obj_t obj591; obj_t obj592; obj_t obj593; obj_t obj594; obj_t obj595; obj_t obj596; obj_t obj597; obj_t obj598; obj_t obj599; obj_t obj600; obj_t obj601; obj_t obj602; obj_t obj603; obj_t obj604; obj_t obj605; obj_t obj606; obj_t obj607; obj_t obj608; obj_t obj609; obj_t obj610; obj_t obj611; obj_t obj612; obj_t obj613; obj_t obj614; obj_t obj615; obj_t obj616; obj_t obj617; obj_t obj618; obj_t obj619; obj_t obj620; obj_t obj621; obj_t obj622; obj_t obj623; obj_t obj624; obj_t obj625; obj_t obj626; obj_t obj627; obj_t obj628; obj_t obj629; obj_t obj630; obj_t obj631; obj_t obj632; obj_t obj633; obj_t obj634; obj_t obj635; obj_t obj636; obj_t obj637; obj_t obj638; obj_t obj639; obj_t obj640; obj_t obj641; obj_t obj642; obj_t obj643; obj_t obj644; obj_t obj645; obj_t obj646; obj_t obj647; obj_t obj648; obj_t obj649; obj_t obj650; obj_t obj651; obj_t obj652; obj_t obj653; obj_t obj654; obj_t obj655; obj_t obj656; obj_t obj657; obj_t obj658; obj_t obj659; obj_t obj660; }; static struct bgl_vector1018 v1015 = { __CNST_FILLER 
#if( !defined( TAG_VECTOR ) ) 
MAKE_HEADER( VECTOR_TYPE, 0 ),
#endif
 661, BREF( &(a1016[ 0 ].header) ), BREF( &(a1016[ 1 ].header) ), BREF( &(a1016[ 2 ].header) ), BREF( &(a1016[ 3 ].header) ), BREF( &(a1016[ 4 ].header) ), BREF( &(a1016[ 5 ].header) ), BREF( &(a1016[ 6 ].header) ), BREF( &(a1016[ 7 ].header) ), BREF( &(a1016[ 8 ].header) ), BREF( &(a1016[ 9 ].header) ), BREF( &(a1016[ 10 ].header) ), BREF( &(a1016[ 11 ].header) ), BREF( &(a1016[ 12 ].header) ), BREF( &(a1016[ 13 ].header) ), BREF( &(a1016[ 14 ].header) ), BREF( &(a1016[ 15 ].header) ), BREF( &(a1016[ 16 ].header) ), BREF( &(a1016[ 17 ].header) ), BREF( &(a1016[ 18 ].header) ), BREF( &(a1016[ 19 ].header) ), BREF( &(a1016[ 20 ].header) ), BREF( &(a1016[ 21 ].header) ), BREF( &(a1016[ 22 ].header) ), BREF( &(a1016[ 23 ].header) ), BREF( &(a1016[ 24 ].header) ), BREF( &(a1016[ 25 ].header) ), BREF( &(a1016[ 26 ].header) ), BREF( &(a1016[ 27 ].header) ), BREF( &(a1016[ 28 ].header) ), BREF( &(a1016[ 29 ].header) ), BREF( &(a1016[ 30 ].header) ), BREF( &(a1016[ 31 ].header) ), BREF( &(a1016[ 32 ].header) ), BREF( &(a1016[ 33 ].header) ), BREF( &(a1016[ 34 ].header) ), BREF( &(a1016[ 35 ].header) ), BREF( &(a1016[ 36 ].header) ), BREF( &(a1016[ 37 ].header) ), BREF( &(a1016[ 38 ].header) ), BREF( &(a1016[ 39 ].header) ), BREF( &(a1016[ 40 ].header) ), BREF( &(a1016[ 41 ].header) ), BREF( &(a1016[ 42 ].header) ), BREF( &(a1016[ 43 ].header) ), BREF( &(a1016[ 44 ].header) ), BREF( &(a1016[ 45 ].header) ), BREF( &(a1016[ 46 ].header) ), BREF( &(a1016[ 47 ].header) ), BREF( &(a1016[ 48 ].header) ), BREF( &(a1016[ 49 ].header) ), BREF( &(a1016[ 50 ].header) ), BREF( &(a1016[ 51 ].header) ), BREF( &(a1016[ 52 ].header) ), BREF( &(a1016[ 53 ].header) ), BREF( &(a1016[ 54 ].header) ), BREF( &(a1016[ 55 ].header) ), BREF( &(a1016[ 56 ].header) ), BREF( &(a1016[ 57 ].header) ), BREF( &(a1016[ 58 ].header) ), BREF( &(a1016[ 59 ].header) ), BREF( &(a1016[ 60 ].header) ), BREF( &(a1016[ 61 ].header) ), BREF( &(a1016[ 62 ].header) ), BREF( &(a1016[ 63 ].header) ), BREF( &(a1016[ 64 ].header) ), BREF( &(a1016[ 65 ].header) ), BREF( &(a1016[ 66 ].header) ), BREF( &(a1016[ 67 ].header) ), BREF( &(a1016[ 68 ].header) ), BREF( &(a1016[ 69 ].header) ), BREF( &(a1016[ 70 ].header) ), BREF( &(a1016[ 71 ].header) ), BREF( &(a1016[ 72 ].header) ), BREF( &(a1016[ 73 ].header) ), BREF( &(a1016[ 74 ].header) ), BREF( &(a1016[ 75 ].header) ), BREF( &(a1016[ 76 ].header) ), BREF( &(a1016[ 77 ].header) ), BREF( &(a1016[ 78 ].header) ), BREF( &(a1016[ 79 ].header) ), BREF( &(a1016[ 80 ].header) ), BREF( &(a1016[ 81 ].header) ), BREF( &(a1016[ 82 ].header) ), BREF( &(a1016[ 83 ].header) ), BREF( &(a1016[ 84 ].header) ), BREF( &(a1016[ 85 ].header) ), BREF( &(a1016[ 86 ].header) ), BREF( &(a1016[ 87 ].header) ), BREF( &(a1016[ 88 ].header) ), BREF( &(a1016[ 89 ].header) ), BREF( &(a1016[ 90 ].header) ), BREF( &(a1016[ 91 ].header) ), BREF( &(a1016[ 92 ].header) ), BREF( &(a1016[ 93 ].header) ), BREF( &(a1016[ 94 ].header) ), BREF( &(a1016[ 95 ].header) ), BREF( &(a1016[ 96 ].header) ), BREF( &(a1016[ 97 ].header) ), BREF( &(a1016[ 98 ].header) ), BREF( &(a1016[ 99 ].header) ), BREF( &(a1016[ 100 ].header) ), BREF( &(a1016[ 101 ].header) ), BREF( &(a1016[ 102 ].header) ), BREF( &(a1016[ 103 ].header) ), BREF( &(a1016[ 104 ].header) ), BREF( &(a1016[ 105 ].header) ), BREF( &(a1016[ 106 ].header) ), BREF( &(a1016[ 107 ].header) ), BREF( &(a1016[ 108 ].header) ), BREF( &(a1016[ 109 ].header) ), BREF( &(a1016[ 110 ].header) ), BREF( &(a1016[ 111 ].header) ), BREF( &(a1016[ 112 ].header) ), BREF( &(a1016[ 113 ].header) ), BREF( &(a1016[ 114 ].header) ), BREF( &(a1016[ 115 ].header) ), BREF( &(a1016[ 116 ].header) ), BREF( &(a1016[ 117 ].header) ), BREF( &(a1016[ 118 ].header) ), BREF( &(a1016[ 119 ].header) ), BREF( &(a1016[ 120 ].header) ), BREF( &(a1016[ 121 ].header) ), BREF( &(a1016[ 122 ].header) ), BREF( &(a1016[ 123 ].header) ), BREF( &(a1016[ 124 ].header) ), BREF( &(a1016[ 125 ].header) ), BREF( &(a1016[ 126 ].header) ), BREF( &(a1016[ 127 ].header) ), BREF( &(a1016[ 128 ].header) ), BREF( &(a1016[ 129 ].header) ), BREF( &(a1016[ 130 ].header) ), BREF( &(a1016[ 131 ].header) ), BREF( &(a1016[ 132 ].header) ), BREF( &(a1016[ 133 ].header) ), BREF( &(a1016[ 134 ].header) ), BREF( &(a1016[ 135 ].header) ), BREF( &(a1016[ 136 ].header) ), BREF( &(a1016[ 137 ].header) ), BREF( &(a1016[ 138 ].header) ), BREF( &(a1016[ 139 ].header) ), BREF( &(a1016[ 140 ].header) ), BREF( &(a1016[ 141 ].header) ), BREF( &(a1016[ 142 ].header) ), BREF( &(a1016[ 143 ].header) ), BREF( &(a1016[ 144 ].header) ), BREF( &(a1016[ 145 ].header) ), BREF( &(a1016[ 146 ].header) ), BREF( &(a1016[ 147 ].header) ), BREF( &(a1016[ 148 ].header) ), BREF( &(a1016[ 149 ].header) ), BREF( &(a1016[ 150 ].header) ), BREF( &(a1016[ 151 ].header) ), BREF( &(a1016[ 152 ].header) ), BREF( &(a1016[ 153 ].header) ), BREF( &(a1016[ 154 ].header) ), BREF( &(a1016[ 155 ].header) ), BREF( &(a1016[ 156 ].header) ), BREF( &(a1016[ 157 ].header) ), BREF( &(a1016[ 158 ].header) ), BREF( &(a1016[ 159 ].header) ), BREF( &(a1016[ 160 ].header) ), BREF( &(a1016[ 161 ].header) ), BREF( &(a1016[ 162 ].header) ), BREF( &(a1016[ 163 ].header) ), BREF( &(a1016[ 164 ].header) ), BREF( &(a1016[ 165 ].header) ), BREF( &(a1016[ 166 ].header) ), BREF( &(a1016[ 167 ].header) ), BREF( &(a1016[ 168 ].header) ), BREF( &(a1016[ 169 ].header) ), BREF( &(a1016[ 170 ].header) ), BREF( &(a1016[ 171 ].header) ), BREF( &(a1016[ 172 ].header) ), BREF( &(a1016[ 173 ].header) ), BREF( &(a1016[ 174 ].header) ), BREF( &(a1016[ 175 ].header) ), BREF( &(a1016[ 176 ].header) ), BREF( &(a1016[ 177 ].header) ), BREF( &(a1016[ 178 ].header) ), BREF( &(a1016[ 179 ].header) ), BREF( &(a1016[ 180 ].header) ), BREF( &(a1016[ 181 ].header) ), BREF( &(a1016[ 182 ].header) ), BREF( &(a1016[ 183 ].header) ), BREF( &(a1016[ 184 ].header) ), BREF( &(a1016[ 185 ].header) ), BREF( &(a1016[ 186 ].header) ), BREF( &(a1016[ 187 ].header) ), BREF( &(a1016[ 188 ].header) ), BREF( &(a1016[ 189 ].header) ), BREF( &(a1016[ 190 ].header) ), BREF( &(a1016[ 191 ].header) ), BREF( &(a1016[ 192 ].header) ), BREF( &(a1016[ 193 ].header) ), BREF( &(a1016[ 194 ].header) ), BREF( &(a1016[ 195 ].header) ), BREF( &(a1016[ 196 ].header) ), BREF( &(a1016[ 197 ].header) ), BREF( &(a1016[ 198 ].header) ), BREF( &(a1016[ 199 ].header) ), BREF( &(a1016[ 200 ].header) ), BREF( &(a1016[ 201 ].header) ), BREF( &(a1016[ 202 ].header) ), BREF( &(a1016[ 203 ].header) ), BREF( &(a1016[ 204 ].header) ), BREF( &(a1016[ 205 ].header) ), BREF( &(a1016[ 206 ].header) ), BREF( &(a1016[ 207 ].header) ), BREF( &(a1016[ 208 ].header) ), BREF( &(a1016[ 209 ].header) ), BREF( &(a1016[ 210 ].header) ), BREF( &(a1016[ 211 ].header) ), BREF( &(a1016[ 212 ].header) ), BREF( &(a1016[ 213 ].header) ), BREF( &(a1016[ 214 ].header) ), BREF( &(a1016[ 215 ].header) ), BREF( &(a1016[ 216 ].header) ), BREF( &(a1016[ 217 ].header) ), BREF( &(a1016[ 218 ].header) ), BREF( &(a1016[ 219 ].header) ), BREF( &(a1016[ 220 ].header) ), BREF( &(a1016[ 221 ].header) ), BREF( &(a1016[ 222 ].header) ), BREF( &(a1016[ 223 ].header) ), BREF( &(a1016[ 224 ].header) ), BREF( &(a1016[ 225 ].header) ), BREF( &(a1016[ 226 ].header) ), BREF( &(a1016[ 227 ].header) ), BREF( &(a1016[ 228 ].header) ), BREF( &(a1016[ 229 ].header) ), BREF( &(a1016[ 230 ].header) ), BREF( &(a1016[ 231 ].header) ), BREF( &(a1016[ 232 ].header) ), BREF( &(a1016[ 233 ].header) ), BREF( &(a1016[ 234 ].header) ), BREF( &(a1016[ 235 ].header) ), BREF( &(a1016[ 236 ].header) ), BREF( &(a1016[ 237 ].header) ), BREF( &(a1016[ 238 ].header) ), BREF( &(a1016[ 239 ].header) ), BREF( &(a1016[ 240 ].header) ), BREF( &(a1016[ 241 ].header) ), BREF( &(a1016[ 242 ].header) ), BREF( &(a1016[ 243 ].header) ), BREF( &(a1016[ 244 ].header) ), BREF( &(a1016[ 245 ].header) ), BREF( &(a1016[ 246 ].header) ), BREF( &(a1016[ 247 ].header) ), BREF( &(a1016[ 248 ].header) ), BREF( &(a1016[ 249 ].header) ), BREF( &(a1016[ 250 ].header) ), BREF( &(a1016[ 251 ].header) ), BREF( &(a1016[ 252 ].header) ), BREF( &(a1016[ 253 ].header) ), BREF( &(a1016[ 254 ].header) ), BREF( &(a1016[ 255 ].header) ), BREF( &(a1016[ 256 ].header) ), BREF( &(a1016[ 257 ].header) ), BREF( &(a1016[ 258 ].header) ), BREF( &(a1016[ 259 ].header) ), BREF( &(a1016[ 260 ].header) ), BREF( &(a1016[ 261 ].header) ), BREF( &(a1016[ 262 ].header) ), BREF( &(a1016[ 263 ].header) ), BREF( &(a1016[ 264 ].header) ), BREF( &(a1016[ 265 ].header) ), BREF( &(a1016[ 266 ].header) ), BREF( &(a1016[ 267 ].header) ), BREF( &(a1016[ 268 ].header) ), BREF( &(a1016[ 269 ].header) ), BREF( &(a1016[ 270 ].header) ), BREF( &(a1016[ 271 ].header) ), BREF( &(a1016[ 272 ].header) ), BREF( &(a1016[ 273 ].header) ), BREF( &(a1016[ 274 ].header) ), BREF( &(a1016[ 275 ].header) ), BREF( &(a1016[ 276 ].header) ), BREF( &(a1016[ 277 ].header) ), BREF( &(a1016[ 278 ].header) ), BREF( &(a1016[ 279 ].header) ), BREF( &(a1016[ 280 ].header) ), BREF( &(a1016[ 281 ].header) ), BREF( &(a1016[ 282 ].header) ), BREF( &(a1016[ 283 ].header) ), BREF( &(a1016[ 284 ].header) ), BREF( &(a1016[ 285 ].header) ), BREF( &(a1016[ 286 ].header) ), BREF( &(a1016[ 287 ].header) ), BREF( &(a1016[ 288 ].header) ), BREF( &(a1016[ 289 ].header) ), BREF( &(a1016[ 290 ].header) ), BREF( &(a1016[ 291 ].header) ), BREF( &(a1016[ 292 ].header) ), BREF( &(a1016[ 293 ].header) ), BREF( &(a1016[ 294 ].header) ), BREF( &(a1016[ 295 ].header) ), BREF( &(a1016[ 296 ].header) ), BREF( &(a1016[ 297 ].header) ), BREF( &(a1016[ 298 ].header) ), BREF( &(a1016[ 299 ].header) ), BREF( &(a1016[ 300 ].header) ), BREF( &(a1016[ 301 ].header) ), BREF( &(a1016[ 302 ].header) ), BREF( &(a1016[ 303 ].header) ), BREF( &(a1016[ 304 ].header) ), BREF( &(a1016[ 305 ].header) ), BREF( &(a1016[ 306 ].header) ), BREF( &(a1016[ 307 ].header) ), BREF( &(a1016[ 308 ].header) ), BREF( &(a1016[ 309 ].header) ), BREF( &(a1016[ 310 ].header) ), BREF( &(a1016[ 311 ].header) ), BREF( &(a1016[ 312 ].header) ), BREF( &(a1016[ 313 ].header) ), BREF( &(a1016[ 314 ].header) ), BREF( &(a1016[ 315 ].header) ), BREF( &(a1016[ 316 ].header) ), BREF( &(a1016[ 317 ].header) ), BREF( &(a1016[ 318 ].header) ), BREF( &(a1016[ 319 ].header) ), BREF( &(a1016[ 320 ].header) ), BREF( &(a1016[ 321 ].header) ), BREF( &(a1016[ 322 ].header) ), BREF( &(a1016[ 323 ].header) ), BREF( &(a1016[ 324 ].header) ), BREF( &(a1016[ 325 ].header) ), BREF( &(a1016[ 326 ].header) ), BREF( &(a1016[ 327 ].header) ), BREF( &(a1016[ 328 ].header) ), BREF( &(a1016[ 329 ].header) ), BREF( &(a1016[ 330 ].header) ), BREF( &(a1016[ 331 ].header) ), BREF( &(a1016[ 332 ].header) ), BREF( &(a1016[ 333 ].header) ), BREF( &(a1016[ 334 ].header) ), BREF( &(a1016[ 335 ].header) ), BREF( &(a1016[ 336 ].header) ), BREF( &(a1016[ 337 ].header) ), BREF( &(a1016[ 338 ].header) ), BREF( &(a1016[ 339 ].header) ), BREF( &(a1016[ 340 ].header) ), BREF( &(a1016[ 341 ].header) ), BREF( &(a1016[ 342 ].header) ), BREF( &(a1016[ 343 ].header) ), BREF( &(a1016[ 344 ].header) ), BREF( &(a1016[ 345 ].header) ), BREF( &(a1016[ 346 ].header) ), BREF( &(a1016[ 347 ].header) ), BREF( &(a1016[ 348 ].header) ), BREF( &(a1016[ 349 ].header) ), BREF( &(a1016[ 350 ].header) ), BREF( &(a1016[ 351 ].header) ), BREF( &(a1016[ 352 ].header) ), BREF( &(a1016[ 353 ].header) ), BREF( &(a1016[ 354 ].header) ), BREF( &(a1016[ 355 ].header) ), BREF( &(a1016[ 356 ].header) ), BREF( &(a1016[ 357 ].header) ), BREF( &(a1016[ 358 ].header) ), BREF( &(a1016[ 359 ].header) ), BREF( &(a1016[ 360 ].header) ), BREF( &(a1016[ 361 ].header) ), BREF( &(a1016[ 362 ].header) ), BREF( &(a1016[ 363 ].header) ), BREF( &(a1016[ 364 ].header) ), BREF( &(a1016[ 365 ].header) ), BREF( &(a1016[ 366 ].header) ), BREF( &(a1016[ 367 ].header) ), BREF( &(a1016[ 368 ].header) ), BREF( &(a1016[ 369 ].header) ), BREF( &(a1016[ 370 ].header) ), BREF( &(a1016[ 371 ].header) ), BREF( &(a1016[ 372 ].header) ), BREF( &(a1016[ 373 ].header) ), BREF( &(a1016[ 374 ].header) ), BREF( &(a1016[ 375 ].header) ), BREF( &(a1016[ 376 ].header) ), BREF( &(a1016[ 377 ].header) ), BREF( &(a1016[ 378 ].header) ), BREF( &(a1016[ 379 ].header) ), BREF( &(a1016[ 380 ].header) ), BREF( &(a1016[ 381 ].header) ), BREF( &(a1016[ 382 ].header) ), BREF( &(a1016[ 383 ].header) ), BREF( &(a1016[ 384 ].header) ), BREF( &(a1016[ 385 ].header) ), BREF( &(a1016[ 386 ].header) ), BREF( &(a1016[ 387 ].header) ), BREF( &(a1016[ 388 ].header) ), BREF( &(a1016[ 389 ].header) ), BREF( &(a1016[ 390 ].header) ), BREF( &(a1016[ 391 ].header) ), BREF( &(a1016[ 392 ].header) ), BREF( &(a1016[ 393 ].header) ), BREF( &(a1016[ 394 ].header) ), BREF( &(a1016[ 395 ].header) ), BREF( &(a1016[ 396 ].header) ), BREF( &(a1016[ 397 ].header) ), BREF( &(a1016[ 398 ].header) ), BREF( &(a1016[ 399 ].header) ), BREF( &(a1016[ 400 ].header) ), BREF( &(a1016[ 401 ].header) ), BREF( &(a1016[ 402 ].header) ), BREF( &(a1016[ 403 ].header) ), BREF( &(a1016[ 404 ].header) ), BREF( &(a1016[ 405 ].header) ), BREF( &(a1016[ 406 ].header) ), BREF( &(a1016[ 407 ].header) ), BREF( &(a1016[ 408 ].header) ), BREF( &(a1016[ 409 ].header) ), BREF( &(a1016[ 410 ].header) ), BREF( &(a1016[ 411 ].header) ), BREF( &(a1016[ 412 ].header) ), BREF( &(a1016[ 413 ].header) ), BREF( &(a1016[ 414 ].header) ), BREF( &(a1016[ 415 ].header) ), BREF( &(a1016[ 416 ].header) ), BREF( &(a1016[ 417 ].header) ), BREF( &(a1016[ 418 ].header) ), BREF( &(a1016[ 419 ].header) ), BREF( &(a1016[ 420 ].header) ), BREF( &(a1016[ 421 ].header) ), BREF( &(a1016[ 422 ].header) ), BREF( &(a1016[ 423 ].header) ), BREF( &(a1016[ 424 ].header) ), BREF( &(a1016[ 425 ].header) ), BREF( &(a1016[ 426 ].header) ), BREF( &(a1016[ 427 ].header) ), BREF( &(a1016[ 428 ].header) ), BREF( &(a1016[ 429 ].header) ), BREF( &(a1016[ 430 ].header) ), BREF( &(a1016[ 431 ].header) ), BREF( &(a1016[ 432 ].header) ), BREF( &(a1016[ 433 ].header) ), BREF( &(a1016[ 434 ].header) ), BREF( &(a1016[ 435 ].header) ), BREF( &(a1016[ 436 ].header) ), BREF( &(a1016[ 437 ].header) ), BREF( &(a1016[ 438 ].header) ), BREF( &(a1016[ 439 ].header) ), BREF( &(a1016[ 440 ].header) ), BREF( &(a1016[ 441 ].header) ), BREF( &(a1016[ 442 ].header) ), BREF( &(a1016[ 443 ].header) ), BREF( &(a1016[ 444 ].header) ), BREF( &(a1016[ 445 ].header) ), BREF( &(a1016[ 446 ].header) ), BREF( &(a1016[ 447 ].header) ), BREF( &(a1016[ 448 ].header) ), BREF( &(a1016[ 449 ].header) ), BREF( &(a1016[ 450 ].header) ), BREF( &(a1016[ 451 ].header) ), BREF( &(a1016[ 452 ].header) ), BREF( &(a1016[ 453 ].header) ), BREF( &(a1016[ 454 ].header) ), BREF( &(a1016[ 455 ].header) ), BREF( &(a1016[ 456 ].header) ), BREF( &(a1016[ 457 ].header) ), BREF( &(a1016[ 458 ].header) ), BREF( &(a1016[ 459 ].header) ), BREF( &(a1016[ 460 ].header) ), BREF( &(a1016[ 461 ].header) ), BREF( &(a1016[ 462 ].header) ), BREF( &(a1016[ 463 ].header) ), BREF( &(a1016[ 464 ].header) ), BREF( &(a1016[ 465 ].header) ), BREF( &(a1016[ 466 ].header) ), BREF( &(a1016[ 467 ].header) ), BREF( &(a1016[ 468 ].header) ), BREF( &(a1016[ 469 ].header) ), BREF( &(a1016[ 470 ].header) ), BREF( &(a1016[ 471 ].header) ), BREF( &(a1016[ 472 ].header) ), BREF( &(a1016[ 473 ].header) ), BREF( &(a1016[ 474 ].header) ), BREF( &(a1016[ 475 ].header) ), BREF( &(a1016[ 476 ].header) ), BREF( &(a1016[ 477 ].header) ), BREF( &(a1016[ 478 ].header) ), BREF( &(a1016[ 479 ].header) ), BREF( &(a1016[ 480 ].header) ), BREF( &(a1016[ 481 ].header) ), BREF( &(a1016[ 482 ].header) ), BREF( &(a1016[ 483 ].header) ), BREF( &(a1016[ 484 ].header) ), BREF( &(a1016[ 485 ].header) ), BREF( &(a1016[ 486 ].header) ), BREF( &(a1016[ 487 ].header) ), BREF( &(a1016[ 488 ].header) ), BREF( &(a1016[ 489 ].header) ), BREF( &(a1016[ 490 ].header) ), BREF( &(a1016[ 491 ].header) ), BREF( &(a1016[ 492 ].header) ), BREF( &(a1016[ 493 ].header) ), BREF( &(a1016[ 494 ].header) ), BREF( &(a1016[ 495 ].header) ), BREF( &(a1016[ 496 ].header) ), BREF( &(a1016[ 497 ].header) ), BREF( &(a1016[ 498 ].header) ), BREF( &(a1016[ 499 ].header) ), BREF( &(a1016[ 500 ].header) ), BREF( &(a1016[ 501 ].header) ), BREF( &(a1016[ 502 ].header) ), BREF( &(a1016[ 503 ].header) ), BREF( &(a1016[ 504 ].header) ), BREF( &(a1016[ 505 ].header) ), BREF( &(a1016[ 506 ].header) ), BREF( &(a1016[ 507 ].header) ), BREF( &(a1016[ 508 ].header) ), BREF( &(a1016[ 509 ].header) ), BREF( &(a1016[ 510 ].header) ), BREF( &(a1016[ 511 ].header) ), BREF( &(a1016[ 512 ].header) ), BREF( &(a1016[ 513 ].header) ), BREF( &(a1016[ 514 ].header) ), BREF( &(a1016[ 515 ].header) ), BREF( &(a1016[ 516 ].header) ), BREF( &(a1016[ 517 ].header) ), BREF( &(a1016[ 518 ].header) ), BREF( &(a1016[ 519 ].header) ), BREF( &(a1016[ 520 ].header) ), BREF( &(a1016[ 521 ].header) ), BREF( &(a1016[ 522 ].header) ), BREF( &(a1016[ 523 ].header) ), BREF( &(a1016[ 524 ].header) ), BREF( &(a1016[ 525 ].header) ), BREF( &(a1016[ 526 ].header) ), BREF( &(a1016[ 527 ].header) ), BREF( &(a1016[ 528 ].header) ), BREF( &(a1016[ 529 ].header) ), BREF( &(a1016[ 530 ].header) ), BREF( &(a1016[ 531 ].header) ), BREF( &(a1016[ 532 ].header) ), BREF( &(a1016[ 533 ].header) ), BREF( &(a1016[ 534 ].header) ), BREF( &(a1016[ 535 ].header) ), BREF( &(a1016[ 536 ].header) ), BREF( &(a1016[ 537 ].header) ), BREF( &(a1016[ 538 ].header) ), BREF( &(a1016[ 539 ].header) ), BREF( &(a1016[ 540 ].header) ), BREF( &(a1016[ 541 ].header) ), BREF( &(a1016[ 542 ].header) ), BREF( &(a1016[ 543 ].header) ), BREF( &(a1016[ 544 ].header) ), BREF( &(a1016[ 545 ].header) ), BREF( &(a1016[ 546 ].header) ), BREF( &(a1016[ 547 ].header) ), BREF( &(a1016[ 548 ].header) ), BREF( &(a1016[ 549 ].header) ), BREF( &(a1016[ 550 ].header) ), BREF( &(a1016[ 551 ].header) ), BREF( &(a1016[ 552 ].header) ), BREF( &(a1016[ 553 ].header) ), BREF( &(a1016[ 554 ].header) ), BREF( &(a1016[ 555 ].header) ), BREF( &(a1016[ 556 ].header) ), BREF( &(a1016[ 557 ].header) ), BREF( &(a1016[ 558 ].header) ), BREF( &(a1016[ 559 ].header) ), BREF( &(a1016[ 560 ].header) ), BREF( &(a1016[ 561 ].header) ), BREF( &(a1016[ 562 ].header) ), BREF( &(a1016[ 563 ].header) ), BREF( &(a1016[ 564 ].header) ), BREF( &(a1016[ 565 ].header) ), BREF( &(a1016[ 566 ].header) ), BREF( &(a1016[ 567 ].header) ), BREF( &(a1016[ 568 ].header) ), BREF( &(a1016[ 569 ].header) ), BREF( &(a1016[ 570 ].header) ), BREF( &(a1016[ 571 ].header) ), BREF( &(a1016[ 572 ].header) ), BREF( &(a1016[ 573 ].header) ), BREF( &(a1016[ 574 ].header) ), BREF( &(a1016[ 575 ].header) ), BREF( &(a1016[ 576 ].header) ), BREF( &(a1016[ 577 ].header) ), BREF( &(a1016[ 578 ].header) ), BREF( &(a1016[ 579 ].header) ), BREF( &(a1016[ 580 ].header) ), BREF( &(a1016[ 581 ].header) ), BREF( &(a1016[ 582 ].header) ), BREF( &(a1016[ 583 ].header) ), BREF( &(a1016[ 584 ].header) ), BREF( &(a1016[ 585 ].header) ), BREF( &(a1016[ 586 ].header) ), BREF( &(a1016[ 587 ].header) ), BREF( &(a1016[ 588 ].header) ), BREF( &(a1016[ 589 ].header) ), BREF( &(a1016[ 590 ].header) ), BREF( &(a1016[ 591 ].header) ), BREF( &(a1016[ 592 ].header) ), BREF( &(a1016[ 593 ].header) ), BREF( &(a1016[ 594 ].header) ), BREF( &(a1016[ 595 ].header) ), BREF( &(a1016[ 596 ].header) ), BREF( &(a1016[ 597 ].header) ), BREF( &(a1016[ 598 ].header) ), BREF( &(a1016[ 599 ].header) ), BREF( &(a1016[ 600 ].header) ), BREF( &(a1016[ 601 ].header) ), BREF( &(a1016[ 602 ].header) ), BREF( &(a1016[ 603 ].header) ), BREF( &(a1016[ 604 ].header) ), BREF( &(a1016[ 605 ].header) ), BREF( &(a1016[ 606 ].header) ), BREF( &(a1016[ 607 ].header) ), BREF( &(a1016[ 608 ].header) ), BREF( &(a1016[ 609 ].header) ), BREF( &(a1016[ 610 ].header) ), BREF( &(a1016[ 611 ].header) ), BREF( &(a1016[ 612 ].header) ), BREF( &(a1016[ 613 ].header) ), BREF( &(a1016[ 614 ].header) ), BREF( &(a1016[ 615 ].header) ), BREF( &(a1016[ 616 ].header) ), BREF( &(a1016[ 617 ].header) ), BREF( &(a1016[ 618 ].header) ), BREF( &(a1016[ 619 ].header) ), BREF( &(a1016[ 620 ].header) ), BREF( &(a1016[ 621 ].header) ), BREF( &(a1016[ 622 ].header) ), BREF( &(a1016[ 623 ].header) ), BREF( &(a1016[ 624 ].header) ), BREF( &(a1016[ 625 ].header) ), BREF( &(a1016[ 626 ].header) ), BREF( &(a1016[ 627 ].header) ), BREF( &(a1016[ 628 ].header) ), BREF( &(a1016[ 629 ].header) ), BREF( &(a1016[ 630 ].header) ), BREF( &(a1016[ 631 ].header) ), BREF( &(a1016[ 632 ].header) ), BREF( &(a1016[ 633 ].header) ), BREF( &(a1016[ 634 ].header) ), BREF( &(a1016[ 635 ].header) ), BREF( &(a1016[ 636 ].header) ), BREF( &(a1016[ 637 ].header) ), BREF( &(a1016[ 638 ].header) ), BREF( &(a1016[ 639 ].header) ), BREF( &(a1016[ 640 ].header) ), BREF( &(a1016[ 641 ].header) ), BREF( &(a1016[ 642 ].header) ), BREF( &(a1016[ 643 ].header) ), BREF( &(a1016[ 644 ].header) ), BREF( &(a1016[ 645 ].header) ), BREF( &(a1016[ 646 ].header) ), BREF( &(a1016[ 647 ].header) ), BREF( &(a1016[ 648 ].header) ), BREF( &(a1016[ 649 ].header) ), BREF( &(a1016[ 650 ].header) ), BREF( &(a1016[ 651 ].header) ), BREF( &(a1016[ 652 ].header) ), BREF( &(a1016[ 653 ].header) ), BREF( &(a1016[ 654 ].header) ), BREF( &(a1016[ 655 ].header) ), BREF( &(a1016[ 656 ].header) ), BREF( &(a1016[ 657 ].header) ), BREF( &(a1016[ 658 ].header) ), BREF( &(a1016[ 659 ].header) ), BREF( &(a1016[ 660 ].header) ) }; 
BgL_arg1125z00_975 = 

#if( !defined( TAG_VECTOR ) )
BVECTOR( &(v1015.header) )
#else
BVECTOR( &(v1015.len) )
#endif
; 
{ /* Ieee/dtoa.scm 140 */
 bool_t BgL_test1890z00_2287;
{ /* Ieee/dtoa.scm 140 */
 long BgL_tmpz00_2288;
BgL_tmpz00_2288 = 
VECTOR_LENGTH(BgL_arg1125z00_975); 
BgL_test1890z00_2287 = 
BOUND_CHECK(BgL_indexz00_964, BgL_tmpz00_2288); } 
if(BgL_test1890z00_2287)
{ /* Ieee/dtoa.scm 140 */
BgL_vz00_965 = 
VECTOR_REF(BgL_arg1125z00_975,BgL_indexz00_964); }  else 
{ 
 obj_t BgL_auxz00_2292;
BgL_auxz00_2292 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(23545L), BGl_string1852z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_arg1125z00_975, 
(int)(
VECTOR_LENGTH(BgL_arg1125z00_975)), 
(int)(BgL_indexz00_964)); 
FAILURE(BgL_auxz00_2292,BFALSE,BFALSE);} } } 
{ /* Ieee/dtoa.scm 140 */
 obj_t BgL_ez00_966;
{ /* Ieee/dtoa.scm 141 */
 obj_t BgL_arg1124z00_974;
struct bgl_vector1020 { __CNST_ALIGN
#if( !defined( TAG_VECTOR ) )
 header_t header;
#endif
 unsigned long len; obj_t obj0; obj_t obj1; obj_t obj2; obj_t obj3; obj_t obj4; obj_t obj5; obj_t obj6; obj_t obj7; obj_t obj8; obj_t obj9; obj_t obj10; obj_t obj11; obj_t obj12; obj_t obj13; obj_t obj14; obj_t obj15; obj_t obj16; obj_t obj17; obj_t obj18; obj_t obj19; obj_t obj20; obj_t obj21; obj_t obj22; obj_t obj23; obj_t obj24; obj_t obj25; obj_t obj26; obj_t obj27; obj_t obj28; obj_t obj29; obj_t obj30; obj_t obj31; obj_t obj32; obj_t obj33; obj_t obj34; obj_t obj35; obj_t obj36; obj_t obj37; obj_t obj38; obj_t obj39; obj_t obj40; obj_t obj41; obj_t obj42; obj_t obj43; obj_t obj44; obj_t obj45; obj_t obj46; obj_t obj47; obj_t obj48; obj_t obj49; obj_t obj50; obj_t obj51; obj_t obj52; obj_t obj53; obj_t obj54; obj_t obj55; obj_t obj56; obj_t obj57; obj_t obj58; obj_t obj59; obj_t obj60; obj_t obj61; obj_t obj62; obj_t obj63; obj_t obj64; obj_t obj65; obj_t obj66; obj_t obj67; obj_t obj68; obj_t obj69; obj_t obj70; obj_t obj71; obj_t obj72; obj_t obj73; obj_t obj74; obj_t obj75; obj_t obj76; obj_t obj77; obj_t obj78; obj_t obj79; obj_t obj80; obj_t obj81; obj_t obj82; obj_t obj83; obj_t obj84; obj_t obj85; obj_t obj86; obj_t obj87; obj_t obj88; obj_t obj89; obj_t obj90; obj_t obj91; obj_t obj92; obj_t obj93; obj_t obj94; obj_t obj95; obj_t obj96; obj_t obj97; obj_t obj98; obj_t obj99; obj_t obj100; obj_t obj101; obj_t obj102; obj_t obj103; obj_t obj104; obj_t obj105; obj_t obj106; obj_t obj107; obj_t obj108; obj_t obj109; obj_t obj110; obj_t obj111; obj_t obj112; obj_t obj113; obj_t obj114; obj_t obj115; obj_t obj116; obj_t obj117; obj_t obj118; obj_t obj119; obj_t obj120; obj_t obj121; obj_t obj122; obj_t obj123; obj_t obj124; obj_t obj125; obj_t obj126; obj_t obj127; obj_t obj128; obj_t obj129; obj_t obj130; obj_t obj131; obj_t obj132; obj_t obj133; obj_t obj134; obj_t obj135; obj_t obj136; obj_t obj137; obj_t obj138; obj_t obj139; obj_t obj140; obj_t obj141; obj_t obj142; obj_t obj143; obj_t obj144; obj_t obj145; obj_t obj146; obj_t obj147; obj_t obj148; obj_t obj149; obj_t obj150; obj_t obj151; obj_t obj152; obj_t obj153; obj_t obj154; obj_t obj155; obj_t obj156; obj_t obj157; obj_t obj158; obj_t obj159; obj_t obj160; obj_t obj161; obj_t obj162; obj_t obj163; obj_t obj164; obj_t obj165; obj_t obj166; obj_t obj167; obj_t obj168; obj_t obj169; obj_t obj170; obj_t obj171; obj_t obj172; obj_t obj173; obj_t obj174; obj_t obj175; obj_t obj176; obj_t obj177; obj_t obj178; obj_t obj179; obj_t obj180; obj_t obj181; obj_t obj182; obj_t obj183; obj_t obj184; obj_t obj185; obj_t obj186; obj_t obj187; obj_t obj188; obj_t obj189; obj_t obj190; obj_t obj191; obj_t obj192; obj_t obj193; obj_t obj194; obj_t obj195; obj_t obj196; obj_t obj197; obj_t obj198; obj_t obj199; obj_t obj200; obj_t obj201; obj_t obj202; obj_t obj203; obj_t obj204; obj_t obj205; obj_t obj206; obj_t obj207; obj_t obj208; obj_t obj209; obj_t obj210; obj_t obj211; obj_t obj212; obj_t obj213; obj_t obj214; obj_t obj215; obj_t obj216; obj_t obj217; obj_t obj218; obj_t obj219; obj_t obj220; obj_t obj221; obj_t obj222; obj_t obj223; obj_t obj224; obj_t obj225; obj_t obj226; obj_t obj227; obj_t obj228; obj_t obj229; obj_t obj230; obj_t obj231; obj_t obj232; obj_t obj233; obj_t obj234; obj_t obj235; obj_t obj236; obj_t obj237; obj_t obj238; obj_t obj239; obj_t obj240; obj_t obj241; obj_t obj242; obj_t obj243; obj_t obj244; obj_t obj245; obj_t obj246; obj_t obj247; obj_t obj248; obj_t obj249; obj_t obj250; obj_t obj251; obj_t obj252; obj_t obj253; obj_t obj254; obj_t obj255; obj_t obj256; obj_t obj257; obj_t obj258; obj_t obj259; obj_t obj260; obj_t obj261; obj_t obj262; obj_t obj263; obj_t obj264; obj_t obj265; obj_t obj266; obj_t obj267; obj_t obj268; obj_t obj269; obj_t obj270; obj_t obj271; obj_t obj272; obj_t obj273; obj_t obj274; obj_t obj275; obj_t obj276; obj_t obj277; obj_t obj278; obj_t obj279; obj_t obj280; obj_t obj281; obj_t obj282; obj_t obj283; obj_t obj284; obj_t obj285; obj_t obj286; obj_t obj287; obj_t obj288; obj_t obj289; obj_t obj290; obj_t obj291; obj_t obj292; obj_t obj293; obj_t obj294; obj_t obj295; obj_t obj296; obj_t obj297; obj_t obj298; obj_t obj299; obj_t obj300; obj_t obj301; obj_t obj302; obj_t obj303; obj_t obj304; obj_t obj305; obj_t obj306; obj_t obj307; obj_t obj308; obj_t obj309; obj_t obj310; obj_t obj311; obj_t obj312; obj_t obj313; obj_t obj314; obj_t obj315; obj_t obj316; obj_t obj317; obj_t obj318; obj_t obj319; obj_t obj320; obj_t obj321; obj_t obj322; obj_t obj323; obj_t obj324; obj_t obj325; obj_t obj326; obj_t obj327; obj_t obj328; obj_t obj329; obj_t obj330; obj_t obj331; obj_t obj332; obj_t obj333; obj_t obj334; obj_t obj335; obj_t obj336; obj_t obj337; obj_t obj338; obj_t obj339; obj_t obj340; obj_t obj341; obj_t obj342; obj_t obj343; obj_t obj344; obj_t obj345; obj_t obj346; obj_t obj347; obj_t obj348; obj_t obj349; obj_t obj350; obj_t obj351; obj_t obj352; obj_t obj353; obj_t obj354; obj_t obj355; obj_t obj356; obj_t obj357; obj_t obj358; obj_t obj359; obj_t obj360; obj_t obj361; obj_t obj362; obj_t obj363; obj_t obj364; obj_t obj365; obj_t obj366; obj_t obj367; obj_t obj368; obj_t obj369; obj_t obj370; obj_t obj371; obj_t obj372; obj_t obj373; obj_t obj374; obj_t obj375; obj_t obj376; obj_t obj377; obj_t obj378; obj_t obj379; obj_t obj380; obj_t obj381; obj_t obj382; obj_t obj383; obj_t obj384; obj_t obj385; obj_t obj386; obj_t obj387; obj_t obj388; obj_t obj389; obj_t obj390; obj_t obj391; obj_t obj392; obj_t obj393; obj_t obj394; obj_t obj395; obj_t obj396; obj_t obj397; obj_t obj398; obj_t obj399; obj_t obj400; obj_t obj401; obj_t obj402; obj_t obj403; obj_t obj404; obj_t obj405; obj_t obj406; obj_t obj407; obj_t obj408; obj_t obj409; obj_t obj410; obj_t obj411; obj_t obj412; obj_t obj413; obj_t obj414; obj_t obj415; obj_t obj416; obj_t obj417; obj_t obj418; obj_t obj419; obj_t obj420; obj_t obj421; obj_t obj422; obj_t obj423; obj_t obj424; obj_t obj425; obj_t obj426; obj_t obj427; obj_t obj428; obj_t obj429; obj_t obj430; obj_t obj431; obj_t obj432; obj_t obj433; obj_t obj434; obj_t obj435; obj_t obj436; obj_t obj437; obj_t obj438; obj_t obj439; obj_t obj440; obj_t obj441; obj_t obj442; obj_t obj443; obj_t obj444; obj_t obj445; obj_t obj446; obj_t obj447; obj_t obj448; obj_t obj449; obj_t obj450; obj_t obj451; obj_t obj452; obj_t obj453; obj_t obj454; obj_t obj455; obj_t obj456; obj_t obj457; obj_t obj458; obj_t obj459; obj_t obj460; obj_t obj461; obj_t obj462; obj_t obj463; obj_t obj464; obj_t obj465; obj_t obj466; obj_t obj467; obj_t obj468; obj_t obj469; obj_t obj470; obj_t obj471; obj_t obj472; obj_t obj473; obj_t obj474; obj_t obj475; obj_t obj476; obj_t obj477; obj_t obj478; obj_t obj479; obj_t obj480; obj_t obj481; obj_t obj482; obj_t obj483; obj_t obj484; obj_t obj485; obj_t obj486; obj_t obj487; obj_t obj488; obj_t obj489; obj_t obj490; obj_t obj491; obj_t obj492; obj_t obj493; obj_t obj494; obj_t obj495; obj_t obj496; obj_t obj497; obj_t obj498; obj_t obj499; obj_t obj500; obj_t obj501; obj_t obj502; obj_t obj503; obj_t obj504; obj_t obj505; obj_t obj506; obj_t obj507; obj_t obj508; obj_t obj509; obj_t obj510; obj_t obj511; obj_t obj512; obj_t obj513; obj_t obj514; obj_t obj515; obj_t obj516; obj_t obj517; obj_t obj518; obj_t obj519; obj_t obj520; obj_t obj521; obj_t obj522; obj_t obj523; obj_t obj524; obj_t obj525; obj_t obj526; obj_t obj527; obj_t obj528; obj_t obj529; obj_t obj530; obj_t obj531; obj_t obj532; obj_t obj533; obj_t obj534; obj_t obj535; obj_t obj536; obj_t obj537; obj_t obj538; obj_t obj539; obj_t obj540; obj_t obj541; obj_t obj542; obj_t obj543; obj_t obj544; obj_t obj545; obj_t obj546; obj_t obj547; obj_t obj548; obj_t obj549; obj_t obj550; obj_t obj551; obj_t obj552; obj_t obj553; obj_t obj554; obj_t obj555; obj_t obj556; obj_t obj557; obj_t obj558; obj_t obj559; obj_t obj560; obj_t obj561; obj_t obj562; obj_t obj563; obj_t obj564; obj_t obj565; obj_t obj566; obj_t obj567; obj_t obj568; obj_t obj569; obj_t obj570; obj_t obj571; obj_t obj572; obj_t obj573; obj_t obj574; obj_t obj575; obj_t obj576; obj_t obj577; obj_t obj578; obj_t obj579; obj_t obj580; obj_t obj581; obj_t obj582; obj_t obj583; obj_t obj584; obj_t obj585; obj_t obj586; obj_t obj587; obj_t obj588; obj_t obj589; obj_t obj590; obj_t obj591; obj_t obj592; obj_t obj593; obj_t obj594; obj_t obj595; obj_t obj596; obj_t obj597; obj_t obj598; obj_t obj599; obj_t obj600; obj_t obj601; obj_t obj602; obj_t obj603; obj_t obj604; obj_t obj605; obj_t obj606; obj_t obj607; obj_t obj608; obj_t obj609; obj_t obj610; obj_t obj611; obj_t obj612; obj_t obj613; obj_t obj614; obj_t obj615; obj_t obj616; obj_t obj617; obj_t obj618; obj_t obj619; obj_t obj620; obj_t obj621; obj_t obj622; obj_t obj623; obj_t obj624; obj_t obj625; obj_t obj626; obj_t obj627; obj_t obj628; obj_t obj629; obj_t obj630; obj_t obj631; obj_t obj632; obj_t obj633; obj_t obj634; obj_t obj635; obj_t obj636; obj_t obj637; obj_t obj638; obj_t obj639; obj_t obj640; obj_t obj641; obj_t obj642; obj_t obj643; obj_t obj644; obj_t obj645; obj_t obj646; obj_t obj647; obj_t obj648; obj_t obj649; obj_t obj650; obj_t obj651; obj_t obj652; obj_t obj653; obj_t obj654; obj_t obj655; obj_t obj656; obj_t obj657; obj_t obj658; obj_t obj659; obj_t obj660; }; static struct bgl_vector1020 v1019 = { __CNST_FILLER 
#if( !defined( TAG_VECTOR ) ) 
MAKE_HEADER( VECTOR_TYPE, 0 ),
#endif
 661, BINT( -1149 ), BINT( -1145 ), BINT( -1142 ), BINT( -1139 ), BINT( -1135 ), BINT( -1132 ), BINT( -1129 ), BINT( -1125 ), BINT( -1122 ), BINT( -1119 ), BINT( -1116 ), BINT( -1112 ), BINT( -1109 ), BINT( -1106 ), BINT( -1102 ), BINT( -1099 ), BINT( -1096 ), BINT( -1092 ), BINT( -1089 ), BINT( -1086 ), BINT( -1082 ), BINT( -1079 ), BINT( -1076 ), BINT( -1072 ), BINT( -1069 ), BINT( -1066 ), BINT( -1062 ), BINT( -1059 ), BINT( -1056 ), BINT( -1052 ), BINT( -1049 ), BINT( -1046 ), BINT( -1042 ), BINT( -1039 ), BINT( -1036 ), BINT( -1032 ), BINT( -1029 ), BINT( -1026 ), BINT( -1023 ), BINT( -1019 ), BINT( -1016 ), BINT( -1013 ), BINT( -1009 ), BINT( -1006 ), BINT( -1003 ), BINT( -999 ), BINT( -996 ), BINT( -993 ), BINT( -989 ), BINT( -986 ), BINT( -983 ), BINT( -979 ), BINT( -976 ), BINT( -973 ), BINT( -969 ), BINT( -966 ), BINT( -963 ), BINT( -959 ), BINT( -956 ), BINT( -953 ), BINT( -949 ), BINT( -946 ), BINT( -943 ), BINT( -939 ), BINT( -936 ), BINT( -933 ), BINT( -929 ), BINT( -926 ), BINT( -923 ), BINT( -920 ), BINT( -916 ), BINT( -913 ), BINT( -910 ), BINT( -906 ), BINT( -903 ), BINT( -900 ), BINT( -896 ), BINT( -893 ), BINT( -890 ), BINT( -886 ), BINT( -883 ), BINT( -880 ), BINT( -876 ), BINT( -873 ), BINT( -870 ), BINT( -866 ), BINT( -863 ), BINT( -860 ), BINT( -856 ), BINT( -853 ), BINT( -850 ), BINT( -846 ), BINT( -843 ), BINT( -840 ), BINT( -836 ), BINT( -833 ), BINT( -830 ), BINT( -827 ), BINT( -823 ), BINT( -820 ), BINT( -817 ), BINT( -813 ), BINT( -810 ), BINT( -807 ), BINT( -803 ), BINT( -800 ), BINT( -797 ), BINT( -793 ), BINT( -790 ), BINT( -787 ), BINT( -783 ), BINT( -780 ), BINT( -777 ), BINT( -773 ), BINT( -770 ), BINT( -767 ), BINT( -763 ), BINT( -760 ), BINT( -757 ), BINT( -753 ), BINT( -750 ), BINT( -747 ), BINT( -743 ), BINT( -740 ), BINT( -737 ), BINT( -733 ), BINT( -730 ), BINT( -727 ), BINT( -724 ), BINT( -720 ), BINT( -717 ), BINT( -714 ), BINT( -710 ), BINT( -707 ), BINT( -704 ), BINT( -700 ), BINT( -697 ), BINT( -694 ), BINT( -690 ), BINT( -687 ), BINT( -684 ), BINT( -680 ), BINT( -677 ), BINT( -674 ), BINT( -670 ), BINT( -667 ), BINT( -664 ), BINT( -660 ), BINT( -657 ), BINT( -654 ), BINT( -650 ), BINT( -647 ), BINT( -644 ), BINT( -640 ), BINT( -637 ), BINT( -634 ), BINT( -631 ), BINT( -627 ), BINT( -624 ), BINT( -621 ), BINT( -617 ), BINT( -614 ), BINT( -611 ), BINT( -607 ), BINT( -604 ), BINT( -601 ), BINT( -597 ), BINT( -594 ), BINT( -591 ), BINT( -587 ), BINT( -584 ), BINT( -581 ), BINT( -577 ), BINT( -574 ), BINT( -571 ), BINT( -567 ), BINT( -564 ), BINT( -561 ), BINT( -557 ), BINT( -554 ), BINT( -551 ), BINT( -547 ), BINT( -544 ), BINT( -541 ), BINT( -538 ), BINT( -534 ), BINT( -531 ), BINT( -528 ), BINT( -524 ), BINT( -521 ), BINT( -518 ), BINT( -514 ), BINT( -511 ), BINT( -508 ), BINT( -504 ), BINT( -501 ), BINT( -498 ), BINT( -494 ), BINT( -491 ), BINT( -488 ), BINT( -484 ), BINT( -481 ), BINT( -478 ), BINT( -474 ), BINT( -471 ), BINT( -468 ), BINT( -464 ), BINT( -461 ), BINT( -458 ), BINT( -454 ), BINT( -451 ), BINT( -448 ), BINT( -444 ), BINT( -441 ), BINT( -438 ), BINT( -435 ), BINT( -431 ), BINT( -428 ), BINT( -425 ), BINT( -421 ), BINT( -418 ), BINT( -415 ), BINT( -411 ), BINT( -408 ), BINT( -405 ), BINT( -401 ), BINT( -398 ), BINT( -395 ), BINT( -391 ), BINT( -388 ), BINT( -385 ), BINT( -381 ), BINT( -378 ), BINT( -375 ), BINT( -371 ), BINT( -368 ), BINT( -365 ), BINT( -361 ), BINT( -358 ), BINT( -355 ), BINT( -351 ), BINT( -348 ), BINT( -345 ), BINT( -342 ), BINT( -338 ), BINT( -335 ), BINT( -332 ), BINT( -328 ), BINT( -325 ), BINT( -322 ), BINT( -318 ), BINT( -315 ), BINT( -312 ), BINT( -308 ), BINT( -305 ), BINT( -302 ), BINT( -298 ), BINT( -295 ), BINT( -292 ), BINT( -288 ), BINT( -285 ), BINT( -282 ), BINT( -278 ), BINT( -275 ), BINT( -272 ), BINT( -268 ), BINT( -265 ), BINT( -262 ), BINT( -258 ), BINT( -255 ), BINT( -252 ), BINT( -248 ), BINT( -245 ), BINT( -242 ), BINT( -239 ), BINT( -235 ), BINT( -232 ), BINT( -229 ), BINT( -225 ), BINT( -222 ), BINT( -219 ), BINT( -215 ), BINT( -212 ), BINT( -209 ), BINT( -205 ), BINT( -202 ), BINT( -199 ), BINT( -195 ), BINT( -192 ), BINT( -189 ), BINT( -185 ), BINT( -182 ), BINT( -179 ), BINT( -175 ), BINT( -172 ), BINT( -169 ), BINT( -165 ), BINT( -162 ), BINT( -159 ), BINT( -155 ), BINT( -152 ), BINT( -149 ), BINT( -146 ), BINT( -142 ), BINT( -139 ), BINT( -136 ), BINT( -132 ), BINT( -129 ), BINT( -126 ), BINT( -122 ), BINT( -119 ), BINT( -116 ), BINT( -112 ), BINT( -109 ), BINT( -106 ), BINT( -102 ), BINT( -99 ), BINT( -96 ), BINT( -92 ), BINT( -89 ), BINT( -86 ), BINT( -82 ), BINT( -79 ), BINT( -76 ), BINT( -72 ), BINT( -69 ), BINT( -66 ), BINT( -62 ), BINT( -59 ), BINT( -56 ), BINT( -52 ), BINT( -49 ), BINT( -46 ), BINT( -43 ), BINT( -39 ), BINT( -36 ), BINT( -33 ), BINT( -29 ), BINT( -26 ), BINT( -23 ), BINT( -19 ), BINT( -16 ), BINT( -13 ), BINT( -9 ), BINT( -6 ), BINT( -3 ), BINT( 1 ), BINT( 4 ), BINT( 7 ), BINT( 11 ), BINT( 14 ), BINT( 17 ), BINT( 21 ), BINT( 24 ), BINT( 27 ), BINT( 31 ), BINT( 34 ), BINT( 37 ), BINT( 41 ), BINT( 44 ), BINT( 47 ), BINT( 50 ), BINT( 54 ), BINT( 57 ), BINT( 60 ), BINT( 64 ), BINT( 67 ), BINT( 70 ), BINT( 74 ), BINT( 77 ), BINT( 80 ), BINT( 84 ), BINT( 87 ), BINT( 90 ), BINT( 94 ), BINT( 97 ), BINT( 100 ), BINT( 104 ), BINT( 107 ), BINT( 110 ), BINT( 114 ), BINT( 117 ), BINT( 120 ), BINT( 124 ), BINT( 127 ), BINT( 130 ), BINT( 134 ), BINT( 137 ), BINT( 140 ), BINT( 143 ), BINT( 147 ), BINT( 150 ), BINT( 153 ), BINT( 157 ), BINT( 160 ), BINT( 163 ), BINT( 167 ), BINT( 170 ), BINT( 173 ), BINT( 177 ), BINT( 180 ), BINT( 183 ), BINT( 187 ), BINT( 190 ), BINT( 193 ), BINT( 197 ), BINT( 200 ), BINT( 203 ), BINT( 207 ), BINT( 210 ), BINT( 213 ), BINT( 217 ), BINT( 220 ), BINT( 223 ), BINT( 227 ), BINT( 230 ), BINT( 233 ), BINT( 237 ), BINT( 240 ), BINT( 243 ), BINT( 246 ), BINT( 250 ), BINT( 253 ), BINT( 256 ), BINT( 260 ), BINT( 263 ), BINT( 266 ), BINT( 270 ), BINT( 273 ), BINT( 276 ), BINT( 280 ), BINT( 283 ), BINT( 286 ), BINT( 290 ), BINT( 293 ), BINT( 296 ), BINT( 300 ), BINT( 303 ), BINT( 306 ), BINT( 310 ), BINT( 313 ), BINT( 316 ), BINT( 320 ), BINT( 323 ), BINT( 326 ), BINT( 330 ), BINT( 333 ), BINT( 336 ), BINT( 339 ), BINT( 343 ), BINT( 346 ), BINT( 349 ), BINT( 353 ), BINT( 356 ), BINT( 359 ), BINT( 363 ), BINT( 366 ), BINT( 369 ), BINT( 373 ), BINT( 376 ), BINT( 379 ), BINT( 383 ), BINT( 386 ), BINT( 389 ), BINT( 393 ), BINT( 396 ), BINT( 399 ), BINT( 403 ), BINT( 406 ), BINT( 409 ), BINT( 413 ), BINT( 416 ), BINT( 419 ), BINT( 423 ), BINT( 426 ), BINT( 429 ), BINT( 433 ), BINT( 436 ), BINT( 439 ), BINT( 442 ), BINT( 446 ), BINT( 449 ), BINT( 452 ), BINT( 456 ), BINT( 459 ), BINT( 462 ), BINT( 466 ), BINT( 469 ), BINT( 472 ), BINT( 476 ), BINT( 479 ), BINT( 482 ), BINT( 486 ), BINT( 489 ), BINT( 492 ), BINT( 496 ), BINT( 499 ), BINT( 502 ), BINT( 506 ), BINT( 509 ), BINT( 512 ), BINT( 516 ), BINT( 519 ), BINT( 522 ), BINT( 526 ), BINT( 529 ), BINT( 532 ), BINT( 535 ), BINT( 539 ), BINT( 542 ), BINT( 545 ), BINT( 549 ), BINT( 552 ), BINT( 555 ), BINT( 559 ), BINT( 562 ), BINT( 565 ), BINT( 569 ), BINT( 572 ), BINT( 575 ), BINT( 579 ), BINT( 582 ), BINT( 585 ), BINT( 589 ), BINT( 592 ), BINT( 595 ), BINT( 599 ), BINT( 602 ), BINT( 605 ), BINT( 609 ), BINT( 612 ), BINT( 615 ), BINT( 619 ), BINT( 622 ), BINT( 625 ), BINT( 628 ), BINT( 632 ), BINT( 635 ), BINT( 638 ), BINT( 642 ), BINT( 645 ), BINT( 648 ), BINT( 652 ), BINT( 655 ), BINT( 658 ), BINT( 662 ), BINT( 665 ), BINT( 668 ), BINT( 672 ), BINT( 675 ), BINT( 678 ), BINT( 682 ), BINT( 685 ), BINT( 688 ), BINT( 692 ), BINT( 695 ), BINT( 698 ), BINT( 702 ), BINT( 705 ), BINT( 708 ), BINT( 712 ), BINT( 715 ), BINT( 718 ), BINT( 722 ), BINT( 725 ), BINT( 728 ), BINT( 731 ), BINT( 735 ), BINT( 738 ), BINT( 741 ), BINT( 745 ), BINT( 748 ), BINT( 751 ), BINT( 755 ), BINT( 758 ), BINT( 761 ), BINT( 765 ), BINT( 768 ), BINT( 771 ), BINT( 775 ), BINT( 778 ), BINT( 781 ), BINT( 785 ), BINT( 788 ), BINT( 791 ), BINT( 795 ), BINT( 798 ), BINT( 801 ), BINT( 805 ), BINT( 808 ), BINT( 811 ), BINT( 815 ), BINT( 818 ), BINT( 821 ), BINT( 824 ), BINT( 828 ), BINT( 831 ), BINT( 834 ), BINT( 838 ), BINT( 841 ), BINT( 844 ), BINT( 848 ), BINT( 851 ), BINT( 854 ), BINT( 858 ), BINT( 861 ), BINT( 864 ), BINT( 868 ), BINT( 871 ), BINT( 874 ), BINT( 878 ), BINT( 881 ), BINT( 884 ), BINT( 888 ), BINT( 891 ), BINT( 894 ), BINT( 898 ), BINT( 901 ), BINT( 904 ), BINT( 908 ), BINT( 911 ), BINT( 914 ), BINT( 918 ), BINT( 921 ), BINT( 924 ), BINT( 927 ), BINT( 931 ), BINT( 934 ), BINT( 937 ), BINT( 941 ), BINT( 944 ), BINT( 947 ), BINT( 951 ), BINT( 954 ), BINT( 957 ), BINT( 961 ), BINT( 964 ), BINT( 967 ), BINT( 971 ), BINT( 974 ), BINT( 977 ), BINT( 981 ), BINT( 984 ), BINT( 987 ), BINT( 991 ), BINT( 994 ), BINT( 997 ), BINT( 1001 ), BINT( 1004 ), BINT( 1007 ), BINT( 1011 ), BINT( 1014 ), BINT( 1017 ), BINT( 1020 ), BINT( 1024 ), BINT( 1027 ), BINT( 1030 ), BINT( 1034 ), BINT( 1037 ), BINT( 1040 ), BINT( 1044 ) }; 
BgL_arg1124z00_974 = 

#if( !defined( TAG_VECTOR ) )
BVECTOR( &(v1019.header) )
#else
BVECTOR( &(v1019.len) )
#endif
; 
{ /* Ieee/dtoa.scm 141 */
 bool_t BgL_test1891z00_2301;
{ /* Ieee/dtoa.scm 141 */
 long BgL_tmpz00_2302;
BgL_tmpz00_2302 = 
VECTOR_LENGTH(BgL_arg1124z00_974); 
BgL_test1891z00_2301 = 
BOUND_CHECK(BgL_indexz00_964, BgL_tmpz00_2302); } 
if(BgL_test1891z00_2301)
{ /* Ieee/dtoa.scm 141 */
BgL_ez00_966 = 
VECTOR_REF(BgL_arg1124z00_974,BgL_indexz00_964); }  else 
{ 
 obj_t BgL_auxz00_2306;
BgL_auxz00_2306 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(23584L), BGl_string1852z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_arg1124z00_974, 
(int)(
VECTOR_LENGTH(BgL_arg1124z00_974)), 
(int)(BgL_indexz00_964)); 
FAILURE(BgL_auxz00_2306,BFALSE,BFALSE);} } } 
{ /* Ieee/dtoa.scm 141 */
 bool_t BgL_exactzf3zf3_967;
if(
(BgL_indexz00_964>=330L))
{ /* Ieee/dtoa.scm 142 */
BgL_exactzf3zf3_967 = 
(BgL_indexz00_964<=357L); }  else 
{ /* Ieee/dtoa.scm 142 */
BgL_exactzf3zf3_967 = ((bool_t)0); } 
{ /* Ieee/dtoa.scm 142 */

{ /* Ieee/dtoa.scm 143 */
 int BgL_tmpz00_2316;
BgL_tmpz00_2316 = 
(int)(3L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_2316); } 
{ /* Ieee/dtoa.scm 143 */
 int BgL_tmpz00_2319;
BgL_tmpz00_2319 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2319, BgL_ez00_966); } 
{ /* Ieee/dtoa.scm 143 */
 obj_t BgL_auxz00_2324; int BgL_tmpz00_2322;
BgL_auxz00_2324 = 
BBOOL(BgL_exactzf3zf3_967); 
BgL_tmpz00_2322 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2322, BgL_auxz00_2324); } 
return BgL_vz00_965;} } } } } } 

}



/* compute-denormal */
BGL_LONGLONG_T BGl_computezd2denormalzd2zz__r4_numbers_6_5_flonum_dtoaz00(BGL_LONGLONG_T BgL_mantissaz00_4)
{
{ /* Ieee/dtoa.scm 148 */
{ /* Ieee/dtoa.scm 160 */
 long BgL_g1022z00_977;
BgL_g1022z00_977 = 
(BGl_za2minzd2exponentza2zd2zz__r4_numbers_6_5_flonum_dtoaz00+1L); 
{ 
 long BgL_ez00_979; BGL_LONGLONG_T BgL_mz00_980;
BgL_ez00_979 = BgL_g1022z00_977; 
BgL_mz00_980 = BgL_mantissaz00_4; 
BgL_zc3z04anonymousza31127ze3z87_981:
if(
(
(BgL_mz00_980 & (0 + ((BGL_LONGLONG_T)65536 * ((0 + ((BGL_LONGLONG_T)65536 * ((0 + ((BGL_LONGLONG_T)65536 * (((BGL_LONGLONG_T)16)))))))))))==((BGL_LONGLONG_T)0)))
{ 
 BGL_LONGLONG_T BgL_mz00_2333; long BgL_ez00_2331;
BgL_ez00_2331 = 
(BgL_ez00_979-1L); 
BgL_mz00_2333 = 
(BgL_mz00_980 << 
(int)(1L)); 
BgL_mz00_980 = BgL_mz00_2333; 
BgL_ez00_979 = BgL_ez00_2331; 
goto BgL_zc3z04anonymousza31127ze3z87_981;}  else 
{ /* Ieee/dtoa.scm 162 */
{ /* Ieee/dtoa.scm 163 */
 int BgL_tmpz00_2336;
BgL_tmpz00_2336 = 
(int)(2L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_2336); } 
{ /* Ieee/dtoa.scm 163 */
 obj_t BgL_auxz00_2341; int BgL_tmpz00_2339;
BgL_auxz00_2341 = 
BINT(BgL_ez00_979); 
BgL_tmpz00_2339 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2339, BgL_auxz00_2341); } 
return BgL_mz00_980;} } } } 

}



/* decompose-double */
BGL_LONGLONG_T BGl_decomposezd2doublezd2zz__r4_numbers_6_5_flonum_dtoaz00(double BgL_dz00_5)
{
{ /* Ieee/dtoa.scm 169 */
{ /* Ieee/dtoa.scm 174 */
 BGL_LONGLONG_T BgL_elz00_990;
BgL_elz00_990 = 
DOUBLE_TO_LLONG_BITS(BgL_dz00_5); 
{ /* Ieee/dtoa.scm 174 */
 long BgL_biasedzd2ezd2_991;
{ /* Ieee/dtoa.scm 175 */
 BGL_LONGLONG_T BgL_tmpz00_2345;
BgL_tmpz00_2345 = 
(
(BgL_elz00_990 & (0 + ((BGL_LONGLONG_T)65536 * ((0 + ((BGL_LONGLONG_T)65536 * ((0 + ((BGL_LONGLONG_T)65536 * (((BGL_LONGLONG_T)32752))))))))))) >> 
(int)(52L)); 
BgL_biasedzd2ezd2_991 = 
LLONG_TO_LONG(BgL_tmpz00_2345); } 
{ /* Ieee/dtoa.scm 175 */
 BGL_LONGLONG_T BgL_mantissaz00_992;
BgL_mantissaz00_992 = 
(BgL_elz00_990 & (65535 + ((BGL_LONGLONG_T)65536 * ((65535 + ((BGL_LONGLONG_T)65536 * ((65535 + ((BGL_LONGLONG_T)65536 * (((BGL_LONGLONG_T)15))))))))))); 
{ /* Ieee/dtoa.scm 178 */

if(
(BgL_biasedzd2ezd2_991==0L))
{ /* Ieee/dtoa.scm 180 */
if(
(BgL_mantissaz00_992==((BGL_LONGLONG_T)0)))
{ /* Ieee/dtoa.scm 183 */
{ /* Ieee/dtoa.scm 184 */
 int BgL_tmpz00_2355;
BgL_tmpz00_2355 = 
(int)(2L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_2355); } 
{ /* Ieee/dtoa.scm 184 */
 obj_t BgL_auxz00_2360; int BgL_tmpz00_2358;
BgL_auxz00_2360 = 
BINT(51L); 
BgL_tmpz00_2358 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2358, BgL_auxz00_2360); } 
return ((BGL_LONGLONG_T)0);}  else 
{ /* Ieee/dtoa.scm 183 */
return 
BGl_computezd2denormalzd2zz__r4_numbers_6_5_flonum_dtoaz00(BgL_mantissaz00_992);} }  else 
{ /* Ieee/dtoa.scm 181 */
 BGL_LONGLONG_T BgL_val0_1059z00_997; long BgL_val1_1060z00_998;
BgL_val0_1059z00_997 = 
((0 + ((BGL_LONGLONG_T)65536 * ((0 + ((BGL_LONGLONG_T)65536 * ((0 + ((BGL_LONGLONG_T)65536 * (((BGL_LONGLONG_T)16))))))))))+BgL_mantissaz00_992); 
BgL_val1_1060z00_998 = 
(BgL_biasedzd2ezd2_991-1075L); 
{ /* Ieee/dtoa.scm 181 */
 int BgL_tmpz00_2366;
BgL_tmpz00_2366 = 
(int)(2L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_2366); } 
{ /* Ieee/dtoa.scm 181 */
 obj_t BgL_auxz00_2371; int BgL_tmpz00_2369;
BgL_auxz00_2371 = 
BINT(BgL_val1_1060z00_998); 
BgL_tmpz00_2369 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2369, BgL_auxz00_2371); } 
return BgL_val0_1059z00_997;} } } } } } 

}



/* fill-fixnum! */
long BGl_fillzd2fixnumz12zc0zz__r4_numbers_6_5_flonum_dtoaz00(obj_t BgL_bufferz00_6, obj_t BgL_posz00_7, obj_t BgL_nz00_8)
{
{ /* Ieee/dtoa.scm 211 */
BGl_fillzd2fixnumz12zc0zz__r4_numbers_6_5_flonum_dtoaz00:
if(
(
(long)CINT(BgL_nz00_8)==0L))
{ /* Ieee/dtoa.scm 213 */
{ /* Ieee/dtoa.scm 214 */
 long BgL_i1739z00_2152;
BgL_i1739z00_2152 = 
(long)CINT(BgL_posz00_7); 
{ /* Ieee/dtoa.scm 214 */
 long BgL_l1740z00_2153;
BgL_l1740z00_2153 = 
STRING_LENGTH(BgL_bufferz00_6); 
if(
BOUND_CHECK(BgL_i1739z00_2152, BgL_l1740z00_2153))
{ /* Ieee/dtoa.scm 214 */
STRING_SET(BgL_bufferz00_6, BgL_i1739z00_2152, ((unsigned char)'0')); }  else 
{ 
 obj_t BgL_auxz00_2382;
BgL_auxz00_2382 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(26955L), BGl_string1853z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bufferz00_6, 
(int)(BgL_l1740z00_2153), 
(int)(BgL_i1739z00_2152)); 
FAILURE(BgL_auxz00_2382,BFALSE,BFALSE);} } } 
return 
(
(long)CINT(BgL_posz00_7)+1L);}  else 
{ /* Ieee/dtoa.scm 213 */
if(
(
(long)CINT(BgL_nz00_8)<0L))
{ /* Ieee/dtoa.scm 216 */
{ /* Ieee/dtoa.scm 217 */
 long BgL_i1743z00_2156;
BgL_i1743z00_2156 = 
(long)CINT(BgL_posz00_7); 
{ /* Ieee/dtoa.scm 217 */
 long BgL_l1744z00_2157;
BgL_l1744z00_2157 = 
STRING_LENGTH(BgL_bufferz00_6); 
if(
BOUND_CHECK(BgL_i1743z00_2156, BgL_l1744z00_2157))
{ /* Ieee/dtoa.scm 217 */
STRING_SET(BgL_bufferz00_6, BgL_i1743z00_2156, ((unsigned char)'-')); }  else 
{ 
 obj_t BgL_auxz00_2398;
BgL_auxz00_2398 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(27028L), BGl_string1853z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bufferz00_6, 
(int)(BgL_l1744z00_2157), 
(int)(BgL_i1743z00_2156)); 
FAILURE(BgL_auxz00_2398,BFALSE,BFALSE);} } } 
{ /* Ieee/dtoa.scm 221 */
 long BgL_arg1144z00_1003; long BgL_arg1145z00_1004;
BgL_arg1144z00_1003 = 
(
(long)CINT(BgL_posz00_7)+1L); 
BgL_arg1145z00_1004 = 
NEG(
(long)CINT(BgL_nz00_8)); 
{ 
 obj_t BgL_nz00_2410; obj_t BgL_posz00_2408;
BgL_posz00_2408 = 
BINT(BgL_arg1144z00_1003); 
BgL_nz00_2410 = 
BINT(BgL_arg1145z00_1004); 
BgL_nz00_8 = BgL_nz00_2410; 
BgL_posz00_7 = BgL_posz00_2408; 
goto BGl_fillzd2fixnumz12zc0zz__r4_numbers_6_5_flonum_dtoaz00;} } }  else 
{ /* Ieee/dtoa.scm 223 */
 long BgL_nbzd2digitszd2_1005;
{ 
 long BgL_digitsz00_1633; obj_t BgL_nz00_1634;
BgL_digitsz00_1633 = 0L; 
BgL_nz00_1634 = BgL_nz00_8; 
BgL_loopz00_1632:
if(
(
(long)CINT(BgL_nz00_1634)==0L))
{ /* Ieee/dtoa.scm 225 */
BgL_nbzd2digitszd2_1005 = BgL_digitsz00_1633; }  else 
{ 
 obj_t BgL_nz00_2417; long BgL_digitsz00_2415;
BgL_digitsz00_2415 = 
(BgL_digitsz00_1633+1L); 
BgL_nz00_2417 = 
BINT(
(
(long)CINT(BgL_nz00_1634)/10L)); 
BgL_nz00_1634 = BgL_nz00_2417; 
BgL_digitsz00_1633 = BgL_digitsz00_2415; 
goto BgL_loopz00_1632;} } 
{ /* Ieee/dtoa.scm 229 */
 long BgL_g1023z00_1006;
BgL_g1023z00_1006 = 
(
(long)CINT(BgL_posz00_7)+
(BgL_nbzd2digitszd2_1005-1L)); 
{ 
 obj_t BgL_nz00_1008; long BgL_iz00_1009;
BgL_nz00_1008 = BgL_nz00_8; 
BgL_iz00_1009 = BgL_g1023z00_1006; 
BgL_zc3z04anonymousza31146ze3z87_1010:
if(
(
(long)CINT(BgL_nz00_1008)==0L))
{ /* Ieee/dtoa.scm 231 */
return 
(
(long)CINT(BgL_posz00_7)+BgL_nbzd2digitszd2_1005);}  else 
{ /* Ieee/dtoa.scm 231 */
{ /* Ieee/dtoa.scm 235 */
 unsigned char BgL_arg1148z00_1012;
BgL_arg1148z00_1012 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(
(
BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(
(long)CINT(BgL_nz00_1008), 10L)+48L)); 
{ /* Ieee/dtoa.scm 234 */
 long BgL_l1748z00_2161;
BgL_l1748z00_2161 = 
STRING_LENGTH(BgL_bufferz00_6); 
if(
BOUND_CHECK(BgL_iz00_1009, BgL_l1748z00_2161))
{ /* Ieee/dtoa.scm 234 */
STRING_SET(BgL_bufferz00_6, BgL_iz00_1009, BgL_arg1148z00_1012); }  else 
{ 
 obj_t BgL_auxz00_2437;
BgL_auxz00_2437 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(27543L), BGl_string1853z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bufferz00_6, 
(int)(BgL_l1748z00_2161), 
(int)(BgL_iz00_1009)); 
FAILURE(BgL_auxz00_2437,BFALSE,BFALSE);} } } 
{ /* Ieee/dtoa.scm 237 */
 long BgL_arg1154z00_1015; long BgL_arg1155z00_1016;
BgL_arg1154z00_1015 = 
(
(long)CINT(BgL_nz00_1008)/10L); 
BgL_arg1155z00_1016 = 
(BgL_iz00_1009-1L); 
{ 
 long BgL_iz00_2448; obj_t BgL_nz00_2446;
BgL_nz00_2446 = 
BINT(BgL_arg1154z00_1015); 
BgL_iz00_2448 = BgL_arg1155z00_1016; 
BgL_iz00_1009 = BgL_iz00_2448; 
BgL_nz00_1008 = BgL_nz00_2446; 
goto BgL_zc3z04anonymousza31146ze3z87_1010;} } } } } } } } 

}



/* fixnum->double-string */
long BGl_fixnumzd2ze3doublezd2stringze3zz__r4_numbers_6_5_flonum_dtoaz00(obj_t BgL_bufferz00_9, obj_t BgL_posz00_10, obj_t BgL_nz00_11, bool_t BgL_signzf3zf3_12)
{
{ /* Ieee/dtoa.scm 243 */
if(BgL_signzf3zf3_12)
{ /* Ieee/dtoa.scm 245 */
 long BgL_i1751z00_2164;
BgL_i1751z00_2164 = 
(long)CINT(BgL_posz00_10); 
{ /* Ieee/dtoa.scm 245 */
 long BgL_l1752z00_2165;
BgL_l1752z00_2165 = 
STRING_LENGTH(BgL_bufferz00_9); 
if(
BOUND_CHECK(BgL_i1751z00_2164, BgL_l1752z00_2165))
{ /* Ieee/dtoa.scm 245 */
STRING_SET(BgL_bufferz00_9, BgL_i1751z00_2164, ((unsigned char)'-')); }  else 
{ 
 obj_t BgL_auxz00_2455;
BgL_auxz00_2455 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(28008L), BGl_string1853z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bufferz00_9, 
(int)(BgL_l1752z00_2165), 
(int)(BgL_i1751z00_2164)); 
FAILURE(BgL_auxz00_2455,BFALSE,BFALSE);} } }  else 
{ /* Ieee/dtoa.scm 244 */BFALSE; } 
{ /* Ieee/dtoa.scm 246 */
 obj_t BgL_newzd2poszd2_1027;
if(BgL_signzf3zf3_12)
{ /* Ieee/dtoa.scm 246 */
BgL_newzd2poszd2_1027 = 
BINT(
(
(long)CINT(BgL_posz00_10)+1L)); }  else 
{ /* Ieee/dtoa.scm 246 */
BgL_newzd2poszd2_1027 = BgL_posz00_10; } 
{ /* Ieee/dtoa.scm 246 */
 long BgL_afterzd2nzd2posz00_1028;
BgL_afterzd2nzd2posz00_1028 = 
BGl_fillzd2fixnumz12zc0zz__r4_numbers_6_5_flonum_dtoaz00(BgL_bufferz00_9, BgL_newzd2poszd2_1027, BgL_nz00_11); 
{ /* Ieee/dtoa.scm 247 */

{ /* Ieee/dtoa.scm 248 */
 long BgL_l1756z00_2169;
BgL_l1756z00_2169 = 
STRING_LENGTH(BgL_bufferz00_9); 
if(
BOUND_CHECK(BgL_afterzd2nzd2posz00_1028, BgL_l1756z00_2169))
{ /* Ieee/dtoa.scm 248 */
STRING_SET(BgL_bufferz00_9, BgL_afterzd2nzd2posz00_1028, ((unsigned char)'.')); }  else 
{ 
 obj_t BgL_auxz00_2470;
BgL_auxz00_2470 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(28141L), BGl_string1853z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bufferz00_9, 
(int)(BgL_l1756z00_2169), 
(int)(BgL_afterzd2nzd2posz00_1028)); 
FAILURE(BgL_auxz00_2470,BFALSE,BFALSE);} } 
{ /* Ieee/dtoa.scm 249 */
 long BgL_arg1161z00_1029;
BgL_arg1161z00_1029 = 
(BgL_afterzd2nzd2posz00_1028+1L); 
{ /* Ieee/dtoa.scm 249 */
 long BgL_l1760z00_2173;
BgL_l1760z00_2173 = 
STRING_LENGTH(BgL_bufferz00_9); 
if(
BOUND_CHECK(BgL_arg1161z00_1029, BgL_l1760z00_2173))
{ /* Ieee/dtoa.scm 249 */
STRING_SET(BgL_bufferz00_9, BgL_arg1161z00_1029, ((unsigned char)'0')); }  else 
{ 
 obj_t BgL_auxz00_2481;
BgL_auxz00_2481 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(28184L), BGl_string1853z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bufferz00_9, 
(int)(BgL_l1760z00_2173), 
(int)(BgL_arg1161z00_1029)); 
FAILURE(BgL_auxz00_2481,BFALSE,BFALSE);} } } 
return 
(BgL_afterzd2nzd2posz00_1028+2L);} } } } 

}



/* k-estimation */
long BGl_kzd2estimationzd2zz__r4_numbers_6_5_flonum_dtoaz00(obj_t BgL_ez00_13)
{
{ /* Ieee/dtoa.scm 260 */
{ /* Ieee/dtoa.scm 282 */
 double BgL_ezb2len_fzd21z60_1030;
{ /* Ieee/dtoa.scm 282 */
 long BgL_tmpz00_2488;
{ /* Ieee/dtoa.scm 282 */
 long BgL_za71za7_1670;
{ /* Ieee/dtoa.scm 282 */
 obj_t BgL_tmpz00_2489;
if(
INTEGERP(BgL_ez00_13))
{ /* Ieee/dtoa.scm 282 */
BgL_tmpz00_2489 = BgL_ez00_13
; }  else 
{ 
 obj_t BgL_auxz00_2492;
BgL_auxz00_2492 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(29732L), BGl_string1854z00zz__r4_numbers_6_5_flonum_dtoaz00, BGl_string1855z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_ez00_13); 
FAILURE(BgL_auxz00_2492,BFALSE,BFALSE);} 
BgL_za71za7_1670 = 
(long)CINT(BgL_tmpz00_2489); } 
BgL_tmpz00_2488 = 
(BgL_za71za7_1670+51L); } 
BgL_ezb2len_fzd21z60_1030 = 
(double)(BgL_tmpz00_2488); } 
{ /* Ieee/dtoa.scm 282 */

{ /* Ieee/dtoa.scm 283 */
 double BgL_arg1167z00_1031;
{ /* Ieee/dtoa.scm 283 */
 double BgL_tmpz00_2499;
BgL_tmpz00_2499 = 
(
(BgL_ezb2len_fzd21z60_1030*BGl_za21zf2log2_10za2zf2zz__r4_numbers_6_5_flonum_dtoaz00)-((double)1e-10)); 
BgL_arg1167z00_1031 = 
ceil(BgL_tmpz00_2499); } 
return 
(long)(BgL_arg1167z00_1031);} } } } 

}



/* string-shift! */
bool_t BGl_stringzd2shiftz12zc0zz__r4_numbers_6_5_flonum_dtoaz00(obj_t BgL_strz00_14, obj_t BgL_fromz00_15, long BgL_toz00_16, long BgL_lenz00_17)
{
{ /* Ieee/dtoa.scm 288 */
if(
(
(long)CINT(BgL_fromz00_15)<BgL_toz00_16))
{ /* Ieee/dtoa.scm 290 */
 long BgL_g1024z00_1036; long BgL_g1025z00_1037;
BgL_g1024z00_1036 = 
(
(long)CINT(BgL_fromz00_15)+
(BgL_lenz00_17-1L)); 
BgL_g1025z00_1037 = 
(BgL_toz00_16+
(BgL_lenz00_17-1L)); 
{ 
 long BgL_iz00_1039; long BgL_jz00_1040;
BgL_iz00_1039 = BgL_g1024z00_1036; 
BgL_jz00_1040 = BgL_g1025z00_1037; 
BgL_zc3z04anonymousza31193ze3z87_1041:
if(
(BgL_iz00_1039>=
(long)CINT(BgL_fromz00_15)))
{ /* Ieee/dtoa.scm 292 */
{ /* Ieee/dtoa.scm 293 */
 unsigned char BgL_arg1196z00_1043;
{ /* Ieee/dtoa.scm 293 */
 long BgL_l1764z00_2177;
BgL_l1764z00_2177 = 
STRING_LENGTH(BgL_strz00_14); 
if(
BOUND_CHECK(BgL_iz00_1039, BgL_l1764z00_2177))
{ /* Ieee/dtoa.scm 293 */
BgL_arg1196z00_1043 = 
STRING_REF(BgL_strz00_14, BgL_iz00_1039); }  else 
{ 
 obj_t BgL_auxz00_2519;
BgL_auxz00_2519 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(30225L), BGl_string1856z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_strz00_14, 
(int)(BgL_l1764z00_2177), 
(int)(BgL_iz00_1039)); 
FAILURE(BgL_auxz00_2519,BFALSE,BFALSE);} } 
{ /* Ieee/dtoa.scm 293 */
 long BgL_l1768z00_2181;
BgL_l1768z00_2181 = 
STRING_LENGTH(BgL_strz00_14); 
if(
BOUND_CHECK(BgL_jz00_1040, BgL_l1768z00_2181))
{ /* Ieee/dtoa.scm 293 */
STRING_SET(BgL_strz00_14, BgL_jz00_1040, BgL_arg1196z00_1043); }  else 
{ 
 obj_t BgL_auxz00_2529;
BgL_auxz00_2529 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(30206L), BGl_string1853z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_strz00_14, 
(int)(BgL_l1768z00_2181), 
(int)(BgL_jz00_1040)); 
FAILURE(BgL_auxz00_2529,BFALSE,BFALSE);} } } 
{ 
 long BgL_jz00_2537; long BgL_iz00_2535;
BgL_iz00_2535 = 
(BgL_iz00_1039-1L); 
BgL_jz00_2537 = 
(BgL_jz00_1040-1L); 
BgL_jz00_1040 = BgL_jz00_2537; 
BgL_iz00_1039 = BgL_iz00_2535; 
goto BgL_zc3z04anonymousza31193ze3z87_1041;} }  else 
{ /* Ieee/dtoa.scm 292 */
return ((bool_t)0);} } }  else 
{ 
 obj_t BgL_iz00_1050; long BgL_jz00_1051;
BgL_iz00_1050 = BgL_fromz00_15; 
BgL_jz00_1051 = BgL_toz00_16; 
BgL_zc3z04anonymousza31202ze3z87_1052:
if(
(
(long)CINT(BgL_iz00_1050)<
(
(long)CINT(BgL_fromz00_15)+BgL_lenz00_17)))
{ /* Ieee/dtoa.scm 297 */
{ /* Ieee/dtoa.scm 298 */
 unsigned char BgL_arg1206z00_1055;
{ /* Ieee/dtoa.scm 298 */
 long BgL_kz00_1700;
BgL_kz00_1700 = 
(long)CINT(BgL_iz00_1050); 
{ /* Ieee/dtoa.scm 298 */
 long BgL_l1772z00_2185;
BgL_l1772z00_2185 = 
STRING_LENGTH(BgL_strz00_14); 
if(
BOUND_CHECK(BgL_kz00_1700, BgL_l1772z00_2185))
{ /* Ieee/dtoa.scm 298 */
BgL_arg1206z00_1055 = 
STRING_REF(BgL_strz00_14, BgL_kz00_1700); }  else 
{ 
 obj_t BgL_auxz00_2549;
BgL_auxz00_2549 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(30376L), BGl_string1856z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_strz00_14, 
(int)(BgL_l1772z00_2185), 
(int)(BgL_kz00_1700)); 
FAILURE(BgL_auxz00_2549,BFALSE,BFALSE);} } } 
{ /* Ieee/dtoa.scm 298 */
 long BgL_l1776z00_2189;
BgL_l1776z00_2189 = 
STRING_LENGTH(BgL_strz00_14); 
if(
BOUND_CHECK(BgL_jz00_1051, BgL_l1776z00_2189))
{ /* Ieee/dtoa.scm 298 */
STRING_SET(BgL_strz00_14, BgL_jz00_1051, BgL_arg1206z00_1055); }  else 
{ 
 obj_t BgL_auxz00_2559;
BgL_auxz00_2559 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(30357L), BGl_string1853z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_strz00_14, 
(int)(BgL_l1776z00_2189), 
(int)(BgL_jz00_1051)); 
FAILURE(BgL_auxz00_2559,BFALSE,BFALSE);} } } 
{ /* Ieee/dtoa.scm 299 */
 long BgL_arg1207z00_1056; long BgL_arg1208z00_1057;
BgL_arg1207z00_1056 = 
(
(long)CINT(BgL_iz00_1050)+1L); 
BgL_arg1208z00_1057 = 
(BgL_jz00_1051+1L); 
{ 
 long BgL_jz00_2570; obj_t BgL_iz00_2568;
BgL_iz00_2568 = 
BINT(BgL_arg1207z00_1056); 
BgL_jz00_2570 = BgL_arg1208z00_1057; 
BgL_jz00_1051 = BgL_jz00_2570; 
BgL_iz00_1050 = BgL_iz00_2568; 
goto BgL_zc3z04anonymousza31202ze3z87_1052;} } }  else 
{ /* Ieee/dtoa.scm 297 */
return ((bool_t)0);} } } 

}



/* prettify-string! */
long BGl_prettifyzd2stringz12zc0zz__r4_numbers_6_5_flonum_dtoaz00(obj_t BgL_bufferz00_18, obj_t BgL_posz00_19, obj_t BgL_endzd2poszd2_20, obj_t BgL_kz00_21)
{
{ /* Ieee/dtoa.scm 304 */
{ /* Ieee/dtoa.scm 306 */
 long BgL_nbzd2digitszd2_1060;
BgL_nbzd2digitszd2_1060 = 
(
(long)CINT(BgL_endzd2poszd2_20)-
(long)CINT(BgL_posz00_19)); 
{ /* Ieee/dtoa.scm 308 */
 bool_t BgL_test1916z00_2574;
if(
(BgL_nbzd2digitszd2_1060<=
(long)CINT(BgL_kz00_21)))
{ /* Ieee/dtoa.scm 308 */
BgL_test1916z00_2574 = 
(
(long)CINT(BgL_kz00_21)<=19L)
; }  else 
{ /* Ieee/dtoa.scm 308 */
BgL_test1916z00_2574 = ((bool_t)0)
; } 
if(BgL_test1916z00_2574)
{ 
 long BgL_iz00_1064;
BgL_iz00_1064 = BgL_nbzd2digitszd2_1060; 
BgL_zc3z04anonymousza31212ze3z87_1065:
if(
(BgL_iz00_1064>=
(long)CINT(BgL_kz00_21)))
{ /* Ieee/dtoa.scm 314 */
{ /* Ieee/dtoa.scm 315 */
 long BgL_arg1217z00_1068;
BgL_arg1217z00_1068 = 
(
(long)CINT(BgL_posz00_19)+BgL_iz00_1064); 
{ /* Ieee/dtoa.scm 315 */
 long BgL_l1780z00_2193;
BgL_l1780z00_2193 = 
STRING_LENGTH(BgL_bufferz00_18); 
if(
BOUND_CHECK(BgL_arg1217z00_1068, BgL_l1780z00_2193))
{ /* Ieee/dtoa.scm 315 */
STRING_SET(BgL_bufferz00_18, BgL_arg1217z00_1068, ((unsigned char)'.')); }  else 
{ 
 obj_t BgL_auxz00_2589;
BgL_auxz00_2589 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(31028L), BGl_string1853z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bufferz00_18, 
(int)(BgL_l1780z00_2193), 
(int)(BgL_arg1217z00_1068)); 
FAILURE(BgL_auxz00_2589,BFALSE,BFALSE);} } } 
{ /* Ieee/dtoa.scm 316 */
 long BgL_arg1218z00_1069;
BgL_arg1218z00_1069 = 
(
(long)CINT(BgL_posz00_19)+
(BgL_iz00_1064+1L)); 
{ /* Ieee/dtoa.scm 316 */
 long BgL_l1784z00_2197;
BgL_l1784z00_2197 = 
STRING_LENGTH(BgL_bufferz00_18); 
if(
BOUND_CHECK(BgL_arg1218z00_1069, BgL_l1784z00_2197))
{ /* Ieee/dtoa.scm 316 */
STRING_SET(BgL_bufferz00_18, BgL_arg1218z00_1069, ((unsigned char)'0')); }  else 
{ 
 obj_t BgL_auxz00_2602;
BgL_auxz00_2602 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(31068L), BGl_string1853z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bufferz00_18, 
(int)(BgL_l1784z00_2197), 
(int)(BgL_arg1218z00_1069)); 
FAILURE(BgL_auxz00_2602,BFALSE,BFALSE);} } } 
return 
(
(long)CINT(BgL_posz00_19)+
(BgL_iz00_1064+2L));}  else 
{ /* Ieee/dtoa.scm 314 */
{ /* Ieee/dtoa.scm 319 */
 long BgL_arg1221z00_1072;
BgL_arg1221z00_1072 = 
(
(long)CINT(BgL_posz00_19)+BgL_iz00_1064); 
{ /* Ieee/dtoa.scm 319 */
 long BgL_l1788z00_2201;
BgL_l1788z00_2201 = 
STRING_LENGTH(BgL_bufferz00_18); 
if(
BOUND_CHECK(BgL_arg1221z00_1072, BgL_l1788z00_2201))
{ /* Ieee/dtoa.scm 319 */
STRING_SET(BgL_bufferz00_18, BgL_arg1221z00_1072, ((unsigned char)'0')); }  else 
{ 
 obj_t BgL_auxz00_2617;
BgL_auxz00_2617 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(31148L), BGl_string1853z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bufferz00_18, 
(int)(BgL_l1788z00_2201), 
(int)(BgL_arg1221z00_1072)); 
FAILURE(BgL_auxz00_2617,BFALSE,BFALSE);} } } 
{ 
 long BgL_iz00_2623;
BgL_iz00_2623 = 
(BgL_iz00_1064+1L); 
BgL_iz00_1064 = BgL_iz00_2623; 
goto BgL_zc3z04anonymousza31212ze3z87_1065;} } }  else 
{ /* Ieee/dtoa.scm 321 */
 bool_t BgL_test1922z00_2625;
if(
(0L<
(long)CINT(BgL_kz00_21)))
{ /* Ieee/dtoa.scm 321 */
BgL_test1922z00_2625 = 
(
(long)CINT(BgL_kz00_21)<=19L)
; }  else 
{ /* Ieee/dtoa.scm 321 */
BgL_test1922z00_2625 = ((bool_t)0)
; } 
if(BgL_test1922z00_2625)
{ /* Ieee/dtoa.scm 321 */
{ /* Ieee/dtoa.scm 325 */
 long BgL_arg1225z00_1078; long BgL_arg1226z00_1079; long BgL_arg1228z00_1080;
BgL_arg1225z00_1078 = 
(
(long)CINT(BgL_posz00_19)+
(long)CINT(BgL_kz00_21)); 
BgL_arg1226z00_1079 = 
(
(long)CINT(BgL_posz00_19)+
(
(long)CINT(BgL_kz00_21)+1L)); 
BgL_arg1228z00_1080 = 
(BgL_nbzd2digitszd2_1060-
(long)CINT(BgL_kz00_21)); 
BGl_stringzd2shiftz12zc0zz__r4_numbers_6_5_flonum_dtoaz00(BgL_bufferz00_18, 
BINT(BgL_arg1225z00_1078), BgL_arg1226z00_1079, BgL_arg1228z00_1080); } 
{ /* Ieee/dtoa.scm 327 */
 long BgL_arg1233z00_1082;
BgL_arg1233z00_1082 = 
(
(long)CINT(BgL_posz00_19)+
(long)CINT(BgL_kz00_21)); 
{ /* Ieee/dtoa.scm 327 */
 long BgL_l1792z00_2205;
BgL_l1792z00_2205 = 
STRING_LENGTH(BgL_bufferz00_18); 
if(
BOUND_CHECK(BgL_arg1233z00_1082, BgL_l1792z00_2205))
{ /* Ieee/dtoa.scm 327 */
STRING_SET(BgL_bufferz00_18, BgL_arg1233z00_1082, ((unsigned char)'.')); }  else 
{ 
 obj_t BgL_auxz00_2649;
BgL_auxz00_2649 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(31400L), BGl_string1853z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bufferz00_18, 
(int)(BgL_l1792z00_2205), 
(int)(BgL_arg1233z00_1082)); 
FAILURE(BgL_auxz00_2649,BFALSE,BFALSE);} } } 
return 
(
(long)CINT(BgL_posz00_19)+
(BgL_nbzd2digitszd2_1060+1L));}  else 
{ /* Ieee/dtoa.scm 329 */
 bool_t BgL_test1925z00_2658;
if(
(-6L<
(long)CINT(BgL_kz00_21)))
{ /* Ieee/dtoa.scm 329 */
BgL_test1925z00_2658 = 
(
(long)CINT(BgL_kz00_21)<=0L)
; }  else 
{ /* Ieee/dtoa.scm 329 */
BgL_test1925z00_2658 = ((bool_t)0)
; } 
if(BgL_test1925z00_2658)
{ /* Ieee/dtoa.scm 333 */
 long BgL_offsetz00_1086;
BgL_offsetz00_1086 = 
(2L-
(long)CINT(BgL_kz00_21)); 
BGl_stringzd2shiftz12zc0zz__r4_numbers_6_5_flonum_dtoaz00(BgL_bufferz00_18, BgL_posz00_19, 
(
(long)CINT(BgL_posz00_19)+BgL_offsetz00_1086), BgL_nbzd2digitszd2_1060); 
{ /* Ieee/dtoa.scm 335 */
 long BgL_i1795z00_2208;
BgL_i1795z00_2208 = 
(long)CINT(BgL_posz00_19); 
{ /* Ieee/dtoa.scm 335 */
 long BgL_l1796z00_2209;
BgL_l1796z00_2209 = 
STRING_LENGTH(BgL_bufferz00_18); 
if(
BOUND_CHECK(BgL_i1795z00_2208, BgL_l1796z00_2209))
{ /* Ieee/dtoa.scm 335 */
STRING_SET(BgL_bufferz00_18, BgL_i1795z00_2208, ((unsigned char)'0')); }  else 
{ 
 obj_t BgL_auxz00_2674;
BgL_auxz00_2674 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(31664L), BGl_string1853z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bufferz00_18, 
(int)(BgL_l1796z00_2209), 
(int)(BgL_i1795z00_2208)); 
FAILURE(BgL_auxz00_2674,BFALSE,BFALSE);} } } 
{ /* Ieee/dtoa.scm 336 */
 long BgL_arg1240z00_1088;
BgL_arg1240z00_1088 = 
(
(long)CINT(BgL_posz00_19)+1L); 
{ /* Ieee/dtoa.scm 336 */
 long BgL_l1800z00_2213;
BgL_l1800z00_2213 = 
STRING_LENGTH(BgL_bufferz00_18); 
if(
BOUND_CHECK(BgL_arg1240z00_1088, BgL_l1800z00_2213))
{ /* Ieee/dtoa.scm 336 */
STRING_SET(BgL_bufferz00_18, BgL_arg1240z00_1088, ((unsigned char)'.')); }  else 
{ 
 obj_t BgL_auxz00_2686;
BgL_auxz00_2686 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(31699L), BGl_string1853z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bufferz00_18, 
(int)(BgL_l1800z00_2213), 
(int)(BgL_arg1240z00_1088)); 
FAILURE(BgL_auxz00_2686,BFALSE,BFALSE);} } } 
{ /* Ieee/dtoa.scm 337 */
 long BgL_g1026z00_1089;
BgL_g1026z00_1089 = 
(
(long)CINT(BgL_posz00_19)+2L); 
{ 
 long BgL_iz00_1091;
BgL_iz00_1091 = BgL_g1026z00_1089; 
BgL_zc3z04anonymousza31241ze3z87_1092:
if(
(BgL_iz00_1091>=
(
(long)CINT(BgL_posz00_19)+BgL_offsetz00_1086)))
{ /* Ieee/dtoa.scm 339 */
return 
(
(long)CINT(BgL_posz00_19)+
(BgL_nbzd2digitszd2_1060+BgL_offsetz00_1086));}  else 
{ /* Ieee/dtoa.scm 339 */
{ /* Ieee/dtoa.scm 342 */
 long BgL_l1804z00_2217;
BgL_l1804z00_2217 = 
STRING_LENGTH(BgL_bufferz00_18); 
if(
BOUND_CHECK(BgL_iz00_1091, BgL_l1804z00_2217))
{ /* Ieee/dtoa.scm 342 */
STRING_SET(BgL_bufferz00_18, BgL_iz00_1091, ((unsigned char)'0')); }  else 
{ 
 obj_t BgL_auxz00_2705;
BgL_auxz00_2705 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(31867L), BGl_string1853z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bufferz00_18, 
(int)(BgL_l1804z00_2217), 
(int)(BgL_iz00_1091)); 
FAILURE(BgL_auxz00_2705,BFALSE,BFALSE);} } 
{ 
 long BgL_iz00_2711;
BgL_iz00_2711 = 
(BgL_iz00_1091+1L); 
BgL_iz00_1091 = BgL_iz00_2711; 
goto BgL_zc3z04anonymousza31241ze3z87_1092;} } } } }  else 
{ /* Ieee/dtoa.scm 329 */
if(
(BgL_nbzd2digitszd2_1060==1L))
{ /* Ieee/dtoa.scm 344 */
{ /* Ieee/dtoa.scm 346 */
 long BgL_arg1249z00_1100;
BgL_arg1249z00_1100 = 
(
(long)CINT(BgL_posz00_19)+1L); 
{ /* Ieee/dtoa.scm 346 */
 long BgL_l1808z00_2221;
BgL_l1808z00_2221 = 
STRING_LENGTH(BgL_bufferz00_18); 
if(
BOUND_CHECK(BgL_arg1249z00_1100, BgL_l1808z00_2221))
{ /* Ieee/dtoa.scm 346 */
STRING_SET(BgL_bufferz00_18, BgL_arg1249z00_1100, ((unsigned char)'e')); }  else 
{ 
 obj_t BgL_auxz00_2721;
BgL_auxz00_2721 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(31966L), BGl_string1853z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bufferz00_18, 
(int)(BgL_l1808z00_2221), 
(int)(BgL_arg1249z00_1100)); 
FAILURE(BgL_auxz00_2721,BFALSE,BFALSE);} } } 
if(
(
(long)CINT(BgL_kz00_21)>0L))
{ /* Ieee/dtoa.scm 348 */
 long BgL_arg1252z00_1102; long BgL_arg1253z00_1103;
BgL_arg1252z00_1102 = 
(
(long)CINT(BgL_posz00_19)+2L); 
{ /* Ieee/dtoa.scm 348 */
 long BgL_nz00_1783;
BgL_nz00_1783 = 
(
(long)CINT(BgL_kz00_21)-1L); 
if(
(BgL_nz00_1783<0L))
{ /* Ieee/dtoa.scm 348 */
BgL_arg1253z00_1103 = 
NEG(BgL_nz00_1783); }  else 
{ /* Ieee/dtoa.scm 348 */
BgL_arg1253z00_1103 = BgL_nz00_1783; } } 
return 
BGl_fillzd2fixnumz12zc0zz__r4_numbers_6_5_flonum_dtoaz00(BgL_bufferz00_18, 
BINT(BgL_arg1252z00_1102), 
BINT(BgL_arg1253z00_1103));}  else 
{ /* Ieee/dtoa.scm 347 */
{ /* Ieee/dtoa.scm 350 */
 long BgL_arg1256z00_1105;
BgL_arg1256z00_1105 = 
(
(long)CINT(BgL_posz00_19)+2L); 
{ /* Ieee/dtoa.scm 350 */
 long BgL_l1812z00_2225;
BgL_l1812z00_2225 = 
STRING_LENGTH(BgL_bufferz00_18); 
if(
BOUND_CHECK(BgL_arg1256z00_1105, BgL_l1812z00_2225))
{ /* Ieee/dtoa.scm 350 */
STRING_SET(BgL_bufferz00_18, BgL_arg1256z00_1105, ((unsigned char)'-')); }  else 
{ 
 obj_t BgL_auxz00_2746;
BgL_auxz00_2746 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(32096L), BGl_string1853z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bufferz00_18, 
(int)(BgL_l1812z00_2225), 
(int)(BgL_arg1256z00_1105)); 
FAILURE(BgL_auxz00_2746,BFALSE,BFALSE);} } } 
{ /* Ieee/dtoa.scm 351 */
 long BgL_arg1257z00_1106; long BgL_arg1259z00_1107;
BgL_arg1257z00_1106 = 
(
(long)CINT(BgL_posz00_19)+3L); 
{ /* Ieee/dtoa.scm 352 */
 long BgL_nz00_1793;
BgL_nz00_1793 = 
(
(long)CINT(BgL_kz00_21)-1L); 
if(
(BgL_nz00_1793<0L))
{ /* Ieee/dtoa.scm 352 */
BgL_arg1259z00_1107 = 
NEG(BgL_nz00_1793); }  else 
{ /* Ieee/dtoa.scm 352 */
BgL_arg1259z00_1107 = BgL_nz00_1793; } } 
return 
BGl_fillzd2fixnumz12zc0zz__r4_numbers_6_5_flonum_dtoaz00(BgL_bufferz00_18, 
BINT(BgL_arg1257z00_1106), 
BINT(BgL_arg1259z00_1107));} } }  else 
{ /* Ieee/dtoa.scm 344 */
{ /* Ieee/dtoa.scm 356 */
 long BgL_arg1265z00_1109; long BgL_arg1275z00_1110; long BgL_arg1276z00_1111;
BgL_arg1265z00_1109 = 
(
(long)CINT(BgL_posz00_19)+1L); 
BgL_arg1275z00_1110 = 
(
(long)CINT(BgL_posz00_19)+2L); 
BgL_arg1276z00_1111 = 
(BgL_nbzd2digitszd2_1060-1L); 
BGl_stringzd2shiftz12zc0zz__r4_numbers_6_5_flonum_dtoaz00(BgL_bufferz00_18, 
BINT(BgL_arg1265z00_1109), BgL_arg1275z00_1110, BgL_arg1276z00_1111); } 
{ /* Ieee/dtoa.scm 358 */
 long BgL_arg1277z00_1112;
BgL_arg1277z00_1112 = 
(
(long)CINT(BgL_posz00_19)+1L); 
{ /* Ieee/dtoa.scm 358 */
 long BgL_l1816z00_2229;
BgL_l1816z00_2229 = 
STRING_LENGTH(BgL_bufferz00_18); 
if(
BOUND_CHECK(BgL_arg1277z00_1112, BgL_l1816z00_2229))
{ /* Ieee/dtoa.scm 358 */
STRING_SET(BgL_bufferz00_18, BgL_arg1277z00_1112, ((unsigned char)'.')); }  else 
{ 
 obj_t BgL_auxz00_2775;
BgL_auxz00_2775 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(32368L), BGl_string1853z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bufferz00_18, 
(int)(BgL_l1816z00_2229), 
(int)(BgL_arg1277z00_1112)); 
FAILURE(BgL_auxz00_2775,BFALSE,BFALSE);} } } 
{ /* Ieee/dtoa.scm 359 */
 long BgL_arg1279z00_1113;
BgL_arg1279z00_1113 = 
(
(long)CINT(BgL_posz00_19)+
(BgL_nbzd2digitszd2_1060+1L)); 
{ /* Ieee/dtoa.scm 359 */
 long BgL_l1820z00_2233;
BgL_l1820z00_2233 = 
STRING_LENGTH(BgL_bufferz00_18); 
if(
BOUND_CHECK(BgL_arg1279z00_1113, BgL_l1820z00_2233))
{ /* Ieee/dtoa.scm 359 */
STRING_SET(BgL_bufferz00_18, BgL_arg1279z00_1113, ((unsigned char)'e')); }  else 
{ 
 obj_t BgL_auxz00_2788;
BgL_auxz00_2788 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(32408L), BGl_string1853z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bufferz00_18, 
(int)(BgL_l1820z00_2233), 
(int)(BgL_arg1279z00_1113)); 
FAILURE(BgL_auxz00_2788,BFALSE,BFALSE);} } } 
if(
(
(long)CINT(BgL_kz00_21)>0L))
{ /* Ieee/dtoa.scm 361 */
 long BgL_arg1283z00_1116; long BgL_arg1284z00_1117;
BgL_arg1283z00_1116 = 
(
(long)CINT(BgL_posz00_19)+
(BgL_nbzd2digitszd2_1060+2L)); 
{ /* Ieee/dtoa.scm 362 */
 long BgL_nz00_1815;
BgL_nz00_1815 = 
(
(long)CINT(BgL_kz00_21)-1L); 
if(
(BgL_nz00_1815<0L))
{ /* Ieee/dtoa.scm 362 */
BgL_arg1284z00_1117 = 
NEG(BgL_nz00_1815); }  else 
{ /* Ieee/dtoa.scm 362 */
BgL_arg1284z00_1117 = BgL_nz00_1815; } } 
return 
BGl_fillzd2fixnumz12zc0zz__r4_numbers_6_5_flonum_dtoaz00(BgL_bufferz00_18, 
BINT(BgL_arg1283z00_1116), 
BINT(BgL_arg1284z00_1117));}  else 
{ /* Ieee/dtoa.scm 360 */
{ /* Ieee/dtoa.scm 364 */
 long BgL_arg1289z00_1120;
BgL_arg1289z00_1120 = 
(
(long)CINT(BgL_posz00_19)+
(BgL_nbzd2digitszd2_1060+2L)); 
{ /* Ieee/dtoa.scm 364 */
 long BgL_l1824z00_2237;
BgL_l1824z00_2237 = 
STRING_LENGTH(BgL_bufferz00_18); 
if(
BOUND_CHECK(BgL_arg1289z00_1120, BgL_l1824z00_2237))
{ /* Ieee/dtoa.scm 364 */
STRING_SET(BgL_bufferz00_18, BgL_arg1289z00_1120, ((unsigned char)'-')); }  else 
{ 
 obj_t BgL_auxz00_2815;
BgL_auxz00_2815 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(32577L), BGl_string1853z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bufferz00_18, 
(int)(BgL_l1824z00_2237), 
(int)(BgL_arg1289z00_1120)); 
FAILURE(BgL_auxz00_2815,BFALSE,BFALSE);} } } 
{ /* Ieee/dtoa.scm 365 */
 long BgL_arg1292z00_1122; long BgL_arg1294z00_1123;
BgL_arg1292z00_1122 = 
(
(long)CINT(BgL_posz00_19)+
(BgL_nbzd2digitszd2_1060+3L)); 
{ /* Ieee/dtoa.scm 366 */
 long BgL_nz00_1829;
BgL_nz00_1829 = 
(
(long)CINT(BgL_kz00_21)-1L); 
if(
(BgL_nz00_1829<0L))
{ /* Ieee/dtoa.scm 366 */
BgL_arg1294z00_1123 = 
NEG(BgL_nz00_1829); }  else 
{ /* Ieee/dtoa.scm 366 */
BgL_arg1294z00_1123 = BgL_nz00_1829; } } 
return 
BGl_fillzd2fixnumz12zc0zz__r4_numbers_6_5_flonum_dtoaz00(BgL_bufferz00_18, 
BINT(BgL_arg1292z00_1122), 
BINT(BgL_arg1294z00_1123));} } } } } } } } } 

}



/* fast-divider */
BGL_LONGLONG_T BGl_fastzd2dividerzd2zz__r4_numbers_6_5_flonum_dtoaz00(long BgL_kzd2estzd2_22, BGL_LONGLONG_T BgL_nz00_23, obj_t BgL_e_nz00_24, BGL_LONGLONG_T BgL_mzb2zb2_25, bool_t BgL_evenzf3zf3_26)
{
{ /* Ieee/dtoa.scm 405 */
BGl_fastzd2dividerzd2zz__r4_numbers_6_5_flonum_dtoaz00:
{ 
 obj_t BgL_vz00_1150; obj_t BgL_e_vz00_1151; obj_t BgL_exactzf3zf3_1152;
{ /* Ieee/dtoa.scm 425 */
 obj_t BgL_vz00_1131;
BgL_vz00_1131 = 
BGl_cachedzd2dividerzd2zz__r4_numbers_6_5_flonum_dtoaz00(BgL_kzd2estzd2_22); 
{ /* Ieee/dtoa.scm 427 */
 obj_t BgL_e_vz00_1132; obj_t BgL_exactzf3zf3_1133;
{ /* Ieee/dtoa.scm 427 */
 obj_t BgL_tmpz00_1847;
{ /* Ieee/dtoa.scm 427 */
 int BgL_tmpz00_2833;
BgL_tmpz00_2833 = 
(int)(1L); 
BgL_tmpz00_1847 = 
BGL_MVALUES_VAL(BgL_tmpz00_2833); } 
{ /* Ieee/dtoa.scm 427 */
 int BgL_tmpz00_2836;
BgL_tmpz00_2836 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2836, BUNSPEC); } 
BgL_e_vz00_1132 = BgL_tmpz00_1847; } 
{ /* Ieee/dtoa.scm 427 */
 obj_t BgL_tmpz00_1848;
{ /* Ieee/dtoa.scm 427 */
 int BgL_tmpz00_2839;
BgL_tmpz00_2839 = 
(int)(2L); 
BgL_tmpz00_1848 = 
BGL_MVALUES_VAL(BgL_tmpz00_2839); } 
{ /* Ieee/dtoa.scm 427 */
 int BgL_tmpz00_2842;
BgL_tmpz00_2842 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2842, BUNSPEC); } 
BgL_exactzf3zf3_1133 = BgL_tmpz00_1848; } 
{ /* Ieee/dtoa.scm 427 */
 bool_t BgL_test1943z00_2845;
BgL_vz00_1150 = BgL_vz00_1131; 
BgL_e_vz00_1151 = BgL_e_vz00_1132; 
BgL_exactzf3zf3_1152 = BgL_exactzf3zf3_1133; 
{ /* Ieee/dtoa.scm 414 */
 BGL_LONGLONG_T BgL_compzd2vzd2_1154;
if(
CBOOL(BgL_exactzf3zf3_1152))
{ /* Ieee/dtoa.scm 414 */
 obj_t BgL_tmpz00_2848;
if(
LLONGP(BgL_vz00_1150))
{ /* Ieee/dtoa.scm 414 */
BgL_tmpz00_2848 = BgL_vz00_1150
; }  else 
{ 
 obj_t BgL_auxz00_2851;
BgL_auxz00_2851 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(34859L), BGl_string1857z00zz__r4_numbers_6_5_flonum_dtoaz00, BGl_string1858z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_vz00_1150); 
FAILURE(BgL_auxz00_2851,BFALSE,BFALSE);} 
BgL_compzd2vzd2_1154 = 
BLLONG_TO_LLONG(BgL_tmpz00_2848); }  else 
{ /* Ieee/dtoa.scm 414 */
 BGL_LONGLONG_T BgL_za71za7_1833;
{ /* Ieee/dtoa.scm 414 */
 obj_t BgL_tmpz00_2856;
if(
LLONGP(BgL_vz00_1150))
{ /* Ieee/dtoa.scm 414 */
BgL_tmpz00_2856 = BgL_vz00_1150
; }  else 
{ 
 obj_t BgL_auxz00_2859;
BgL_auxz00_2859 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(34869L), BGl_string1857z00zz__r4_numbers_6_5_flonum_dtoaz00, BGl_string1858z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_vz00_1150); 
FAILURE(BgL_auxz00_2859,BFALSE,BFALSE);} 
BgL_za71za7_1833 = 
BLLONG_TO_LLONG(BgL_tmpz00_2856); } 
BgL_compzd2vzd2_1154 = 
(BgL_za71za7_1833+
LONG_TO_LLONG(1L)); } 
{ /* Ieee/dtoa.scm 416 */
 bool_t BgL_test1947z00_2866;
{ /* Ieee/dtoa.scm 416 */
 long BgL_n1z00_1835; long BgL_n2z00_1836;
{ /* Ieee/dtoa.scm 416 */
 obj_t BgL_tmpz00_2867;
if(
INTEGERP(BgL_e_vz00_1151))
{ /* Ieee/dtoa.scm 416 */
BgL_tmpz00_2867 = BgL_e_vz00_1151
; }  else 
{ 
 obj_t BgL_auxz00_2870;
BgL_auxz00_2870 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(34896L), BGl_string1857z00zz__r4_numbers_6_5_flonum_dtoaz00, BGl_string1855z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_e_vz00_1151); 
FAILURE(BgL_auxz00_2870,BFALSE,BFALSE);} 
BgL_n1z00_1835 = 
(long)CINT(BgL_tmpz00_2867); } 
{ /* Ieee/dtoa.scm 416 */
 obj_t BgL_tmpz00_2875;
if(
INTEGERP(BgL_e_nz00_24))
{ /* Ieee/dtoa.scm 416 */
BgL_tmpz00_2875 = BgL_e_nz00_24
; }  else 
{ 
 obj_t BgL_auxz00_2878;
BgL_auxz00_2878 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(34900L), BGl_string1857z00zz__r4_numbers_6_5_flonum_dtoaz00, BGl_string1855z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_e_nz00_24); 
FAILURE(BgL_auxz00_2878,BFALSE,BFALSE);} 
BgL_n2z00_1836 = 
(long)CINT(BgL_tmpz00_2875); } 
BgL_test1947z00_2866 = 
(BgL_n1z00_1835>BgL_n2z00_1836); } 
if(BgL_test1947z00_2866)
{ /* Ieee/dtoa.scm 416 */
BgL_test1943z00_2845 = ((bool_t)0)
; }  else 
{ /* Ieee/dtoa.scm 417 */
 bool_t BgL_test1950z00_2884;
{ /* Ieee/dtoa.scm 417 */
 long BgL_n1z00_1837; long BgL_n2z00_1838;
{ /* Ieee/dtoa.scm 417 */
 obj_t BgL_tmpz00_2885;
if(
INTEGERP(BgL_e_vz00_1151))
{ /* Ieee/dtoa.scm 417 */
BgL_tmpz00_2885 = BgL_e_vz00_1151
; }  else 
{ 
 obj_t BgL_auxz00_2888;
BgL_auxz00_2888 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(34920L), BGl_string1857z00zz__r4_numbers_6_5_flonum_dtoaz00, BGl_string1855z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_e_vz00_1151); 
FAILURE(BgL_auxz00_2888,BFALSE,BFALSE);} 
BgL_n1z00_1837 = 
(long)CINT(BgL_tmpz00_2885); } 
{ /* Ieee/dtoa.scm 417 */
 obj_t BgL_tmpz00_2893;
if(
INTEGERP(BgL_e_nz00_24))
{ /* Ieee/dtoa.scm 417 */
BgL_tmpz00_2893 = BgL_e_nz00_24
; }  else 
{ 
 obj_t BgL_auxz00_2896;
BgL_auxz00_2896 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(34924L), BGl_string1857z00zz__r4_numbers_6_5_flonum_dtoaz00, BGl_string1855z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_e_nz00_24); 
FAILURE(BgL_auxz00_2896,BFALSE,BFALSE);} 
BgL_n2z00_1838 = 
(long)CINT(BgL_tmpz00_2893); } 
BgL_test1950z00_2884 = 
(BgL_n1z00_1837<BgL_n2z00_1838); } 
if(BgL_test1950z00_2884)
{ /* Ieee/dtoa.scm 417 */
BgL_test1943z00_2845 = ((bool_t)1)
; }  else 
{ /* Ieee/dtoa.scm 417 */
if(BgL_evenzf3zf3_26)
{ /* Ieee/dtoa.scm 418 */
BgL_test1943z00_2845 = 
(BgL_compzd2vzd2_1154<=
(BgL_nz00_23+BgL_mzb2zb2_25))
; }  else 
{ /* Ieee/dtoa.scm 418 */
BgL_test1943z00_2845 = 
(BgL_compzd2vzd2_1154<
(BgL_nz00_23+BgL_mzb2zb2_25))
; } } } } } 
if(BgL_test1943z00_2845)
{ 
 BGL_LONGLONG_T BgL_vz00_1136; obj_t BgL_e_vz00_1137; obj_t BgL_exactzf3zf3_1138;
{ /* Ieee/dtoa.scm 430 */
 obj_t BgL_tmpz00_2958;
if(
LLONGP(BgL_vz00_1131))
{ /* Ieee/dtoa.scm 430 */
BgL_tmpz00_2958 = BgL_vz00_1131
; }  else 
{ 
 obj_t BgL_auxz00_2961;
BgL_auxz00_2961 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(35258L), BGl_string1860z00zz__r4_numbers_6_5_flonum_dtoaz00, BGl_string1858z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_vz00_1131); 
FAILURE(BgL_auxz00_2961,BFALSE,BFALSE);} 
BgL_vz00_1136 = 
BLLONG_TO_LLONG(BgL_tmpz00_2958); } 
BgL_e_vz00_1137 = BgL_e_vz00_1132; 
BgL_exactzf3zf3_1138 = BgL_exactzf3zf3_1133; 
BgL_zc3z04anonymousza31325ze3z87_1139:
{ /* Ieee/dtoa.scm 434 */
 bool_t BgL_test1954z00_2907;
{ /* Ieee/dtoa.scm 434 */
 long BgL_n1z00_1849; long BgL_n2z00_1850;
{ /* Ieee/dtoa.scm 434 */
 obj_t BgL_tmpz00_2908;
if(
INTEGERP(BgL_e_vz00_1137))
{ /* Ieee/dtoa.scm 434 */
BgL_tmpz00_2908 = BgL_e_vz00_1137
; }  else 
{ 
 obj_t BgL_auxz00_2911;
BgL_auxz00_2911 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(35334L), BGl_string1859z00zz__r4_numbers_6_5_flonum_dtoaz00, BGl_string1855z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_e_vz00_1137); 
FAILURE(BgL_auxz00_2911,BFALSE,BFALSE);} 
BgL_n1z00_1849 = 
(long)CINT(BgL_tmpz00_2908); } 
{ /* Ieee/dtoa.scm 434 */
 obj_t BgL_tmpz00_2916;
if(
INTEGERP(BgL_e_nz00_24))
{ /* Ieee/dtoa.scm 434 */
BgL_tmpz00_2916 = BgL_e_nz00_24
; }  else 
{ 
 obj_t BgL_auxz00_2919;
BgL_auxz00_2919 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(35338L), BGl_string1859z00zz__r4_numbers_6_5_flonum_dtoaz00, BGl_string1855z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_e_nz00_24); 
FAILURE(BgL_auxz00_2919,BFALSE,BFALSE);} 
BgL_n2z00_1850 = 
(long)CINT(BgL_tmpz00_2916); } 
BgL_test1954z00_2907 = 
(BgL_n1z00_1849==BgL_n2z00_1850); } 
if(BgL_test1954z00_2907)
{ /* Ieee/dtoa.scm 434 */
BGl_fastzd2dividerzd2reszd2kzd2zz__r4_numbers_6_5_flonum_dtoaz00 = 
(BgL_kzd2estzd2_22+1L); 
BGl_fastzd2dividerzd2reszd2exactzf3z21zz__r4_numbers_6_5_flonum_dtoaz00 = BgL_exactzf3zf3_1138; 
return BgL_vz00_1136;}  else 
{ /* Ieee/dtoa.scm 436 */
 bool_t BgL_test1957z00_2926;
{ /* Ieee/dtoa.scm 436 */
 BGL_LONGLONG_T BgL_arg1334z00_1147;
BgL_arg1334z00_1147 = 
(BgL_vz00_1136%((BGL_LONGLONG_T)2)); 
BgL_test1957z00_2926 = 
(BgL_arg1334z00_1147==((BGL_LONGLONG_T)0)); } 
if(BgL_test1957z00_2926)
{ /* Ieee/dtoa.scm 439 */
 BGL_LONGLONG_T BgL_arg1330z00_1143; long BgL_arg1331z00_1144;
BgL_arg1330z00_1143 = 
(BgL_vz00_1136 >> 
(int)(1L)); 
{ /* Ieee/dtoa.scm 439 */
 long BgL_za71za7_1857;
{ /* Ieee/dtoa.scm 439 */
 obj_t BgL_tmpz00_2931;
if(
INTEGERP(BgL_e_vz00_1137))
{ /* Ieee/dtoa.scm 439 */
BgL_tmpz00_2931 = BgL_e_vz00_1137
; }  else 
{ 
 obj_t BgL_auxz00_2934;
BgL_auxz00_2934 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(35564L), BGl_string1859z00zz__r4_numbers_6_5_flonum_dtoaz00, BGl_string1855z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_e_vz00_1137); 
FAILURE(BgL_auxz00_2934,BFALSE,BFALSE);} 
BgL_za71za7_1857 = 
(long)CINT(BgL_tmpz00_2931); } 
BgL_arg1331z00_1144 = 
(BgL_za71za7_1857+1L); } 
{ 
 obj_t BgL_e_vz00_2941; BGL_LONGLONG_T BgL_vz00_2940;
BgL_vz00_2940 = BgL_arg1330z00_1143; 
BgL_e_vz00_2941 = 
BINT(BgL_arg1331z00_1144); 
BgL_e_vz00_1137 = BgL_e_vz00_2941; 
BgL_vz00_1136 = BgL_vz00_2940; 
goto BgL_zc3z04anonymousza31325ze3z87_1139;} }  else 
{ /* Ieee/dtoa.scm 441 */
 BGL_LONGLONG_T BgL_arg1332z00_1145; long BgL_arg1333z00_1146;
BgL_arg1332z00_1145 = 
(BgL_vz00_1136 >> 
(int)(1L)); 
{ /* Ieee/dtoa.scm 441 */
 long BgL_za71za7_1859;
{ /* Ieee/dtoa.scm 441 */
 obj_t BgL_tmpz00_2945;
if(
INTEGERP(BgL_e_vz00_1137))
{ /* Ieee/dtoa.scm 441 */
BgL_tmpz00_2945 = BgL_e_vz00_1137
; }  else 
{ 
 obj_t BgL_auxz00_2948;
BgL_auxz00_2948 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(35627L), BGl_string1859z00zz__r4_numbers_6_5_flonum_dtoaz00, BGl_string1855z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_e_vz00_1137); 
FAILURE(BgL_auxz00_2948,BFALSE,BFALSE);} 
BgL_za71za7_1859 = 
(long)CINT(BgL_tmpz00_2945); } 
BgL_arg1333z00_1146 = 
(BgL_za71za7_1859+1L); } 
{ 
 obj_t BgL_exactzf3zf3_2957; obj_t BgL_e_vz00_2955; BGL_LONGLONG_T BgL_vz00_2954;
BgL_vz00_2954 = BgL_arg1332z00_1145; 
BgL_e_vz00_2955 = 
BINT(BgL_arg1333z00_1146); 
BgL_exactzf3zf3_2957 = BFALSE; 
BgL_exactzf3zf3_1138 = BgL_exactzf3zf3_2957; 
BgL_e_vz00_1137 = BgL_e_vz00_2955; 
BgL_vz00_1136 = BgL_vz00_2954; 
goto BgL_zc3z04anonymousza31325ze3z87_1139;} } } } }  else 
{ 
 long BgL_kzd2estzd2_2966;
BgL_kzd2estzd2_2966 = 
(BgL_kzd2estzd2_22-1L); 
BgL_kzd2estzd2_22 = BgL_kzd2estzd2_2966; 
goto BGl_fastzd2dividerzd2zz__r4_numbers_6_5_flonum_dtoaz00;} } } } } } 

}



/* generate-digits */
long BGl_generatezd2digitszd2zz__r4_numbers_6_5_flonum_dtoaz00(obj_t BgL_bufferz00_27, obj_t BgL_posz00_28, BGL_LONGLONG_T BgL_nz00_29, BGL_LONGLONG_T BgL_divz00_30, BGL_LONGLONG_T BgL_errorzd2multiplierzd2_31, BGL_LONGLONG_T BgL_errorz00_32, BGL_LONGLONG_T BgL_mzd2zd2_33, BGL_LONGLONG_T BgL_mzb2zb2_34, bool_t BgL_evenzf3zf3_35)
{
{ /* Ieee/dtoa.scm 448 */
BGl_generatezd2digitszd2zz__r4_numbers_6_5_flonum_dtoaz00:
{ 
 BGL_LONGLONG_T BgL_rz00_1202; BGL_LONGLONG_T BgL_divz00_1203; BGL_LONGLONG_T BgL_errorzd2multiplierzd2_1204; BGL_LONGLONG_T BgL_errorz00_1205; BGL_LONGLONG_T BgL_mzd2zd2_1206; BGL_LONGLONG_T BgL_mzb2zb2_1207;
{ /* Ieee/dtoa.scm 507 */
 BGL_LONGLONG_T BgL_qz00_1165;
BgL_qz00_1165 = 
(BgL_nz00_29/BgL_divz00_30); 
{ /* Ieee/dtoa.scm 507 */
 BGL_LONGLONG_T BgL_rz00_1166;
BgL_rz00_1166 = 
(BgL_nz00_29%BgL_divz00_30); 
{ 
 BGL_LONGLONG_T BgL_az00_1190; BGL_LONGLONG_T BgL_bz00_1191;
{ /* Ieee/dtoa.scm 513 */
 BGL_LONGLONG_T BgL_newzd2errorzd2_1169;
BgL_newzd2errorzd2_1169 = 
(BgL_errorz00_32+
(BgL_errorzd2multiplierzd2_31*BgL_qz00_1165)); 
{ /* Ieee/dtoa.scm 514 */
 bool_t BgL_tc1z00_1170;
{ /* Ieee/dtoa.scm 515 */
 BGL_LONGLONG_T BgL_arg1359z00_1184;
BgL_arg1359z00_1184 = 
(BgL_rz00_1166+BgL_newzd2errorzd2_1169); 
{ /* Ieee/dtoa.scm 509 */
 bool_t BgL_test1961z00_2973;
if(BgL_evenzf3zf3_35)
{ /* Ieee/dtoa.scm 509 */
BgL_test1961z00_2973 = ((bool_t)1)
; }  else 
{ /* Ieee/dtoa.scm 509 */
if(
(BgL_errorzd2multiplierzd2_31==((BGL_LONGLONG_T)0)))
{ /* Ieee/dtoa.scm 510 */
BgL_test1961z00_2973 = ((bool_t)0)
; }  else 
{ /* Ieee/dtoa.scm 510 */
BgL_test1961z00_2973 = ((bool_t)1)
; } } 
if(BgL_test1961z00_2973)
{ /* Ieee/dtoa.scm 509 */
BgL_tc1z00_1170 = 
(BgL_arg1359z00_1184<=BgL_mzd2zd2_33); }  else 
{ /* Ieee/dtoa.scm 509 */
BgL_tc1z00_1170 = 
(BgL_arg1359z00_1184<BgL_mzd2zd2_33); } } } 
{ /* Ieee/dtoa.scm 515 */
 bool_t BgL_tc2z00_1171;
BgL_az00_1190 = BgL_divz00_30; 
BgL_bz00_1191 = 
(BgL_rz00_1166+BgL_mzb2zb2_34); 
{ /* Ieee/dtoa.scm 509 */
 bool_t BgL_test1964z00_2979;
if(BgL_evenzf3zf3_35)
{ /* Ieee/dtoa.scm 509 */
BgL_test1964z00_2979 = ((bool_t)1)
; }  else 
{ /* Ieee/dtoa.scm 509 */
if(
(BgL_errorzd2multiplierzd2_31==((BGL_LONGLONG_T)0)))
{ /* Ieee/dtoa.scm 510 */
BgL_test1964z00_2979 = ((bool_t)0)
; }  else 
{ /* Ieee/dtoa.scm 510 */
BgL_test1964z00_2979 = ((bool_t)1)
; } } 
if(BgL_test1964z00_2979)
{ /* Ieee/dtoa.scm 509 */
BgL_tc2z00_1171 = 
(BgL_az00_1190<=BgL_bz00_1191); }  else 
{ /* Ieee/dtoa.scm 509 */
BgL_tc2z00_1171 = 
(BgL_az00_1190<BgL_bz00_1191); } } 
{ /* Ieee/dtoa.scm 516 */

{ /* Ieee/dtoa.scm 518 */
 bool_t BgL_test1967z00_2986;
if(BgL_tc1z00_1170)
{ /* Ieee/dtoa.scm 518 */
BgL_test1967z00_2986 = ((bool_t)0)
; }  else 
{ /* Ieee/dtoa.scm 518 */
if(BgL_tc2z00_1171)
{ /* Ieee/dtoa.scm 518 */
BgL_test1967z00_2986 = ((bool_t)0)
; }  else 
{ /* Ieee/dtoa.scm 518 */
BgL_test1967z00_2986 = ((bool_t)1)
; } } 
if(BgL_test1967z00_2986)
{ /* Ieee/dtoa.scm 518 */
BGl_setzd2digitz12ze70z27zz__r4_numbers_6_5_flonum_dtoaz00(BgL_posz00_28, BgL_bufferz00_27, BgL_qz00_1165); 
BgL_rz00_1202 = BgL_rz00_1166; 
BgL_divz00_1203 = BgL_divz00_30; 
BgL_errorzd2multiplierzd2_1204 = BgL_errorzd2multiplierzd2_31; 
BgL_errorz00_1205 = BgL_newzd2errorzd2_1169; 
BgL_mzd2zd2_1206 = BgL_mzd2zd2_33; 
BgL_mzb2zb2_1207 = BgL_mzb2zb2_34; 
BgL_zc3z04anonymousza31369ze3z87_1208:
{ /* Ieee/dtoa.scm 465 */
 bool_t BgL_test1970z00_2990;
{ /* Ieee/dtoa.scm 465 */
 BGL_LONGLONG_T BgL_arg1409z00_1247;
BgL_arg1409z00_1247 = 
(BGL_LONGLONG_MAX/((BGL_LONGLONG_T)10)); 
BgL_test1970z00_2990 = 
(BgL_rz00_1202<BgL_arg1409z00_1247); } 
if(BgL_test1970z00_2990)
{ /* Ieee/dtoa.scm 467 */
 long BgL_arg1373z00_1212; BGL_LONGLONG_T BgL_arg1374z00_1213; BGL_LONGLONG_T BgL_arg1375z00_1214; BGL_LONGLONG_T BgL_arg1376z00_1215; BGL_LONGLONG_T BgL_arg1377z00_1216;
BgL_arg1373z00_1212 = 
(
(long)CINT(BgL_posz00_28)+1L); 
BgL_arg1374z00_1213 = 
(BgL_rz00_1202*((BGL_LONGLONG_T)10)); 
BgL_arg1375z00_1214 = 
(BgL_errorz00_1205*((BGL_LONGLONG_T)10)); 
BgL_arg1376z00_1215 = 
(BgL_mzd2zd2_1206*((BGL_LONGLONG_T)10)); 
BgL_arg1377z00_1216 = 
(BgL_mzb2zb2_1207*((BGL_LONGLONG_T)10)); 
{ 
 BGL_LONGLONG_T BgL_mzb2zb2_3006; BGL_LONGLONG_T BgL_mzd2zd2_3005; BGL_LONGLONG_T BgL_errorz00_3004; BGL_LONGLONG_T BgL_errorzd2multiplierzd2_3003; BGL_LONGLONG_T BgL_divz00_3002; BGL_LONGLONG_T BgL_nz00_3001; obj_t BgL_posz00_2999;
BgL_posz00_2999 = 
BINT(BgL_arg1373z00_1212); 
BgL_nz00_3001 = BgL_arg1374z00_1213; 
BgL_divz00_3002 = BgL_divz00_1203; 
BgL_errorzd2multiplierzd2_3003 = BgL_errorzd2multiplierzd2_1204; 
BgL_errorz00_3004 = BgL_arg1375z00_1214; 
BgL_mzd2zd2_3005 = BgL_arg1376z00_1215; 
BgL_mzb2zb2_3006 = BgL_arg1377z00_1216; 
BgL_mzb2zb2_34 = BgL_mzb2zb2_3006; 
BgL_mzd2zd2_33 = BgL_mzd2zd2_3005; 
BgL_errorz00_32 = BgL_errorz00_3004; 
BgL_errorzd2multiplierzd2_31 = BgL_errorzd2multiplierzd2_3003; 
BgL_divz00_30 = BgL_divz00_3002; 
BgL_nz00_29 = BgL_nz00_3001; 
BgL_posz00_28 = BgL_posz00_2999; 
goto BGl_generatezd2digitszd2zz__r4_numbers_6_5_flonum_dtoaz00;} }  else 
{ /* Ieee/dtoa.scm 474 */
 bool_t BgL_test1971z00_3007;
{ /* Ieee/dtoa.scm 474 */
 BGL_LONGLONG_T BgL_arg1407z00_1245;
BgL_arg1407z00_1245 = 
(BGL_LONGLONG_MAX/((BGL_LONGLONG_T)5)); 
BgL_test1971z00_3007 = 
(BgL_rz00_1202<BgL_arg1407z00_1245); } 
if(BgL_test1971z00_3007)
{ /* Ieee/dtoa.scm 479 */
 long BgL_arg1384z00_1220; BGL_LONGLONG_T BgL_arg1385z00_1221; BGL_LONGLONG_T BgL_arg1386z00_1222; BGL_LONGLONG_T BgL_arg1387z00_1223; BGL_LONGLONG_T BgL_arg1388z00_1224; BGL_LONGLONG_T BgL_arg1389z00_1225; BGL_LONGLONG_T BgL_arg1390z00_1226;
BgL_arg1384z00_1220 = 
(
(long)CINT(BgL_posz00_28)+1L); 
BgL_arg1385z00_1221 = 
(BgL_rz00_1202*((BGL_LONGLONG_T)5)); 
{ /* Ieee/dtoa.scm 481 */
 bool_t BgL_test1972z00_3013;
{ /* Ieee/dtoa.scm 481 */
 BGL_LONGLONG_T BgL_arg1500z00_1888;
BgL_arg1500z00_1888 = 
(BgL_divz00_1203%((BGL_LONGLONG_T)2)); 
BgL_test1972z00_3013 = 
(BgL_arg1500z00_1888==((BGL_LONGLONG_T)0)); } 
if(BgL_test1972z00_3013)
{ /* Ieee/dtoa.scm 481 */
BgL_arg1386z00_1222 = 
(BgL_divz00_1203 >> 
(int)(1L)); }  else 
{ /* Ieee/dtoa.scm 481 */
BgL_arg1386z00_1222 = 
(
(BgL_divz00_1203 >> 
(int)(1L))+((BGL_LONGLONG_T)1)); } } 
{ /* Ieee/dtoa.scm 484 */
 bool_t BgL_test1973z00_3021;
if(
(BgL_errorzd2multiplierzd2_1204==((BGL_LONGLONG_T)0)))
{ /* Ieee/dtoa.scm 485 */
 BGL_LONGLONG_T BgL_arg1500z00_1902;
BgL_arg1500z00_1902 = 
(BgL_divz00_1203%((BGL_LONGLONG_T)2)); 
BgL_test1973z00_3021 = 
(BgL_arg1500z00_1902==((BGL_LONGLONG_T)0)); }  else 
{ /* Ieee/dtoa.scm 484 */
BgL_test1973z00_3021 = ((bool_t)1)
; } 
if(BgL_test1973z00_3021)
{ /* Ieee/dtoa.scm 484 */
BgL_arg1387z00_1223 = BgL_errorzd2multiplierzd2_1204; }  else 
{ /* Ieee/dtoa.scm 484 */
BgL_arg1387z00_1223 = ((BGL_LONGLONG_T)1); } } 
BgL_arg1388z00_1224 = 
(BgL_errorz00_1205*((BGL_LONGLONG_T)5)); 
BgL_arg1389z00_1225 = 
(BgL_mzd2zd2_1206*((BGL_LONGLONG_T)5)); 
BgL_arg1390z00_1226 = 
(BgL_mzb2zb2_1207*((BGL_LONGLONG_T)5)); 
{ 
 BGL_LONGLONG_T BgL_mzb2zb2_3036; BGL_LONGLONG_T BgL_mzd2zd2_3035; BGL_LONGLONG_T BgL_errorz00_3034; BGL_LONGLONG_T BgL_errorzd2multiplierzd2_3033; BGL_LONGLONG_T BgL_divz00_3032; BGL_LONGLONG_T BgL_nz00_3031; obj_t BgL_posz00_3029;
BgL_posz00_3029 = 
BINT(BgL_arg1384z00_1220); 
BgL_nz00_3031 = BgL_arg1385z00_1221; 
BgL_divz00_3032 = BgL_arg1386z00_1222; 
BgL_errorzd2multiplierzd2_3033 = BgL_arg1387z00_1223; 
BgL_errorz00_3034 = BgL_arg1388z00_1224; 
BgL_mzd2zd2_3035 = BgL_arg1389z00_1225; 
BgL_mzb2zb2_3036 = BgL_arg1390z00_1226; 
BgL_mzb2zb2_34 = BgL_mzb2zb2_3036; 
BgL_mzd2zd2_33 = BgL_mzd2zd2_3035; 
BgL_errorz00_32 = BgL_errorz00_3034; 
BgL_errorzd2multiplierzd2_31 = BgL_errorzd2multiplierzd2_3033; 
BgL_divz00_30 = BgL_divz00_3032; 
BgL_nz00_29 = BgL_nz00_3031; 
BgL_posz00_28 = BgL_posz00_3029; 
goto BGl_generatezd2digitszd2zz__r4_numbers_6_5_flonum_dtoaz00;} }  else 
{ /* Ieee/dtoa.scm 493 */
 BGL_LONGLONG_T BgL_arg1395z00_1232; BGL_LONGLONG_T BgL_arg1396z00_1233; BGL_LONGLONG_T BgL_arg1397z00_1234; BGL_LONGLONG_T BgL_arg1398z00_1235; BGL_LONGLONG_T BgL_arg1399z00_1236; BGL_LONGLONG_T BgL_arg1400z00_1237;
BgL_arg1395z00_1232 = 
(BgL_rz00_1202 >> 
(int)(1L)); 
{ /* Ieee/dtoa.scm 494 */
 bool_t BgL_test1975z00_3039;
{ /* Ieee/dtoa.scm 494 */
 BGL_LONGLONG_T BgL_arg1500z00_1916;
BgL_arg1500z00_1916 = 
(BgL_divz00_1203%((BGL_LONGLONG_T)2)); 
BgL_test1975z00_3039 = 
(BgL_arg1500z00_1916==((BGL_LONGLONG_T)0)); } 
if(BgL_test1975z00_3039)
{ /* Ieee/dtoa.scm 494 */
BgL_arg1396z00_1233 = 
(BgL_divz00_1203 >> 
(int)(1L)); }  else 
{ /* Ieee/dtoa.scm 494 */
BgL_arg1396z00_1233 = 
(
(BgL_divz00_1203 >> 
(int)(1L))+((BGL_LONGLONG_T)1)); } } 
{ /* Ieee/dtoa.scm 497 */
 bool_t BgL_test1976z00_3047;
if(
(BgL_errorzd2multiplierzd2_1204==((BGL_LONGLONG_T)0)))
{ /* Ieee/dtoa.scm 498 */
 BGL_LONGLONG_T BgL_arg1500z00_1930;
BgL_arg1500z00_1930 = 
(BgL_divz00_1203%((BGL_LONGLONG_T)2)); 
BgL_test1976z00_3047 = 
(BgL_arg1500z00_1930==((BGL_LONGLONG_T)0)); }  else 
{ /* Ieee/dtoa.scm 497 */
BgL_test1976z00_3047 = ((bool_t)1)
; } 
if(BgL_test1976z00_3047)
{ /* Ieee/dtoa.scm 497 */
BgL_arg1397z00_1234 = BgL_errorzd2multiplierzd2_1204; }  else 
{ /* Ieee/dtoa.scm 497 */
BgL_arg1397z00_1234 = ((BGL_LONGLONG_T)1); } } 
{ /* Ieee/dtoa.scm 501 */
 bool_t BgL_test1978z00_3052;
{ /* Ieee/dtoa.scm 501 */
 BGL_LONGLONG_T BgL_arg1500z00_1937;
BgL_arg1500z00_1937 = 
(BgL_errorz00_1205%((BGL_LONGLONG_T)2)); 
BgL_test1978z00_3052 = 
(BgL_arg1500z00_1937==((BGL_LONGLONG_T)0)); } 
if(BgL_test1978z00_3052)
{ /* Ieee/dtoa.scm 501 */
BgL_arg1398z00_1235 = 
(BgL_errorz00_1205 >> 
(int)(1L)); }  else 
{ /* Ieee/dtoa.scm 501 */
BgL_arg1398z00_1235 = 
(
(BgL_errorz00_1205 >> 
(int)(1L))+((BGL_LONGLONG_T)1)); } } 
BgL_arg1399z00_1236 = 
(BgL_mzd2zd2_1206 >> 
(int)(1L)); 
BgL_arg1400z00_1237 = 
(BgL_mzb2zb2_1207 >> 
(int)(1L)); 
{ 
 BGL_LONGLONG_T BgL_mzb2zb2_3069; BGL_LONGLONG_T BgL_mzd2zd2_3068; BGL_LONGLONG_T BgL_errorz00_3067; BGL_LONGLONG_T BgL_errorzd2multiplierzd2_3066; BGL_LONGLONG_T BgL_divz00_3065; BGL_LONGLONG_T BgL_rz00_3064;
BgL_rz00_3064 = BgL_arg1395z00_1232; 
BgL_divz00_3065 = BgL_arg1396z00_1233; 
BgL_errorzd2multiplierzd2_3066 = BgL_arg1397z00_1234; 
BgL_errorz00_3067 = BgL_arg1398z00_1235; 
BgL_mzd2zd2_3068 = BgL_arg1399z00_1236; 
BgL_mzb2zb2_3069 = BgL_arg1400z00_1237; 
BgL_mzb2zb2_1207 = BgL_mzb2zb2_3069; 
BgL_mzd2zd2_1206 = BgL_mzd2zd2_3068; 
BgL_errorz00_1205 = BgL_errorz00_3067; 
BgL_errorzd2multiplierzd2_1204 = BgL_errorzd2multiplierzd2_3066; 
BgL_divz00_1203 = BgL_divz00_3065; 
BgL_rz00_1202 = BgL_rz00_3064; 
goto BgL_zc3z04anonymousza31369ze3z87_1208;} } } } }  else 
{ /* Ieee/dtoa.scm 523 */
 bool_t BgL_test1979z00_3070;
if(BgL_tc1z00_1170)
{ /* Ieee/dtoa.scm 523 */
if(BgL_tc2z00_1171)
{ /* Ieee/dtoa.scm 523 */
BgL_test1979z00_3070 = ((bool_t)0)
; }  else 
{ /* Ieee/dtoa.scm 523 */
BgL_test1979z00_3070 = ((bool_t)1)
; } }  else 
{ /* Ieee/dtoa.scm 523 */
BgL_test1979z00_3070 = ((bool_t)0)
; } 
if(BgL_test1979z00_3070)
{ /* Ieee/dtoa.scm 523 */
return 
BGl_setzd2digitz12ze70z27zz__r4_numbers_6_5_flonum_dtoaz00(BgL_posz00_28, BgL_bufferz00_27, BgL_qz00_1165);}  else 
{ /* Ieee/dtoa.scm 525 */
 bool_t BgL_test1982z00_3074;
if(BgL_tc1z00_1170)
{ /* Ieee/dtoa.scm 525 */
BgL_test1982z00_3074 = ((bool_t)0)
; }  else 
{ /* Ieee/dtoa.scm 525 */
BgL_test1982z00_3074 = BgL_tc2z00_1171
; } 
if(BgL_test1982z00_3074)
{ /* Ieee/dtoa.scm 525 */
return 
BGl_setzd2digitz12ze70z27zz__r4_numbers_6_5_flonum_dtoaz00(BgL_posz00_28, BgL_bufferz00_27, 
(BgL_qz00_1165+((BGL_LONGLONG_T)1)));}  else 
{ /* Ieee/dtoa.scm 525 */
if(
(
(
(BgL_rz00_1166+BgL_newzd2errorzd2_1169)*((BGL_LONGLONG_T)2))<=BgL_divz00_30))
{ /* Ieee/dtoa.scm 529 */
return 
BGl_setzd2digitz12ze70z27zz__r4_numbers_6_5_flonum_dtoaz00(BgL_posz00_28, BgL_bufferz00_27, BgL_qz00_1165);}  else 
{ /* Ieee/dtoa.scm 529 */
if(
(BgL_qz00_1165==((BGL_LONGLONG_T)9)))
{ /* Ieee/dtoa.scm 531 */
return 
BGl_setzd2digitz12ze70z27zz__r4_numbers_6_5_flonum_dtoaz00(BgL_posz00_28, BgL_bufferz00_27, BgL_qz00_1165);}  else 
{ /* Ieee/dtoa.scm 531 */
return 
BGl_setzd2digitz12ze70z27zz__r4_numbers_6_5_flonum_dtoaz00(BgL_posz00_28, BgL_bufferz00_27, 
(BgL_qz00_1165+((BGL_LONGLONG_T)1)));} } } } } } } } } } } } } } } 

}



/* set-digit!~0 */
long BGl_setzd2digitz12ze70z27zz__r4_numbers_6_5_flonum_dtoaz00(obj_t BgL_posz00_2142, obj_t BgL_bufferz00_2141, BGL_LONGLONG_T BgL_nz00_1197)
{
{ /* Ieee/dtoa.scm 457 */
{ /* Ieee/dtoa.scm 457 */
 unsigned char BgL_arg1366z00_1199;
{ /* Ieee/dtoa.scm 457 */
 long BgL_arg1367z00_1200;
{ /* Ieee/dtoa.scm 457 */
 long BgL_arg1368z00_1201;
BgL_arg1368z00_1201 = 
LLONG_TO_LONG(BgL_nz00_1197); 
BgL_arg1367z00_1200 = 
(48L+BgL_arg1368z00_1201); } 
BgL_arg1366z00_1199 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(BgL_arg1367z00_1200); } 
{ /* Ieee/dtoa.scm 456 */
 long BgL_kz00_1864;
BgL_kz00_1864 = 
(long)CINT(BgL_posz00_2142); 
{ /* Ieee/dtoa.scm 456 */
 long BgL_l1828z00_2241;
BgL_l1828z00_2241 = 
STRING_LENGTH(BgL_bufferz00_2141); 
if(
BOUND_CHECK(BgL_kz00_1864, BgL_l1828z00_2241))
{ /* Ieee/dtoa.scm 456 */
STRING_SET(BgL_bufferz00_2141, BgL_kz00_1864, BgL_arg1366z00_1199); }  else 
{ 
 obj_t BgL_auxz00_3096;
BgL_auxz00_3096 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(36119L), BGl_string1853z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bufferz00_2141, 
(int)(BgL_l1828z00_2241), 
(int)(BgL_kz00_1864)); 
FAILURE(BgL_auxz00_3096,BFALSE,BFALSE);} } } } 
return 
(
(long)CINT(BgL_posz00_2142)+1L);} 

}



/* difficult-fill-double! */
long BGl_difficultzd2fillzd2doublez12z12zz__r4_numbers_6_5_flonum_dtoaz00(obj_t BgL_bufferz00_36, obj_t BgL_posz00_37, double BgL_dz00_38)
{
{ /* Ieee/dtoa.scm 539 */
{ /* Ieee/dtoa.scm 541 */
 BGL_LONGLONG_T BgL_fz00_1251;
BgL_fz00_1251 = 
BGl_decomposezd2doublezd2zz__r4_numbers_6_5_flonum_dtoaz00(BgL_dz00_38); 
{ /* Ieee/dtoa.scm 543 */
 obj_t BgL_ez00_1252;
{ /* Ieee/dtoa.scm 543 */
 obj_t BgL_tmpz00_2000;
{ /* Ieee/dtoa.scm 543 */
 int BgL_tmpz00_3105;
BgL_tmpz00_3105 = 
(int)(1L); 
BgL_tmpz00_2000 = 
BGL_MVALUES_VAL(BgL_tmpz00_3105); } 
{ /* Ieee/dtoa.scm 543 */
 int BgL_tmpz00_3108;
BgL_tmpz00_3108 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_3108, BUNSPEC); } 
BgL_ez00_1252 = BgL_tmpz00_2000; } 
{ /* Ieee/dtoa.scm 543 */
 long BgL_kzd2estzd2_1253;
BgL_kzd2estzd2_1253 = 
BGl_kzd2estimationzd2zz__r4_numbers_6_5_flonum_dtoaz00(BgL_ez00_1252); 
{ /* Ieee/dtoa.scm 544 */
 bool_t BgL_evenzf3zf3_1254;
BgL_evenzf3zf3_1254 = 
(
(BgL_fz00_1251 & ((BGL_LONGLONG_T)1))==((BGL_LONGLONG_T)0)); 
{ /* Ieee/dtoa.scm 545 */
 BGL_LONGLONG_T BgL_shiftedz00_1255;
BgL_shiftedz00_1255 = 
(BgL_fz00_1251 << 
(int)(10L)); 
{ /* Ieee/dtoa.scm 548 */
 bool_t BgL_ze5pzd21zf3zc4_1256;
BgL_ze5pzd21zf3zc4_1256 = 
(
(BgL_fz00_1251 & (65535 + ((BGL_LONGLONG_T)65536 * ((65535 + ((BGL_LONGLONG_T)65536 * ((65535 + ((BGL_LONGLONG_T)65536 * (((BGL_LONGLONG_T)15)))))))))))==((BGL_LONGLONG_T)0)); 
{ /* Ieee/dtoa.scm 553 */
 BGL_LONGLONG_T BgL_mzd2zd2_1257;
{ /* Ieee/dtoa.scm 556 */
 int BgL_tmpz00_3118;
if(BgL_ze5pzd21zf3zc4_1256)
{ /* Ieee/dtoa.scm 556 */
BgL_tmpz00_3118 = 
(int)(8L)
; }  else 
{ /* Ieee/dtoa.scm 556 */
BgL_tmpz00_3118 = 
(int)(9L)
; } 
BgL_mzd2zd2_1257 = 
(((BGL_LONGLONG_T)1) << BgL_tmpz00_3118); } 
{ /* Ieee/dtoa.scm 556 */
 BGL_LONGLONG_T BgL_mzb2zb2_1258;
BgL_mzb2zb2_1258 = 
(((BGL_LONGLONG_T)1) << 
(int)(9L)); 
{ /* Ieee/dtoa.scm 557 */

{ /* Ieee/dtoa.scm 558 */
 BGL_LONGLONG_T BgL_dividerz00_1259;
BgL_dividerz00_1259 = 
BGl_fastzd2dividerzd2zz__r4_numbers_6_5_flonum_dtoaz00(BgL_kzd2estzd2_1253, BgL_shiftedz00_1255, BgL_ez00_1252, BgL_mzb2zb2_1258, BgL_evenzf3zf3_1254); 
{ /* Ieee/dtoa.scm 558 */
 long BgL_kz00_1260;
BgL_kz00_1260 = BGl_fastzd2dividerzd2reszd2kzd2zz__r4_numbers_6_5_flonum_dtoaz00; 
{ /* Ieee/dtoa.scm 558 */
 obj_t BgL_exactzf3zf3_1261;
BgL_exactzf3zf3_1261 = BGl_fastzd2dividerzd2reszd2exactzf3z21zz__r4_numbers_6_5_flonum_dtoaz00; 
{ /* Ieee/dtoa.scm 558 */

{ /* Ieee/dtoa.scm 560 */
 long BgL_endzd2poszd2_1262;
{ /* Ieee/dtoa.scm 563 */
 BGL_LONGLONG_T BgL_arg1411z00_1263; BGL_LONGLONG_T BgL_arg1412z00_1264;
if(
CBOOL(BgL_exactzf3zf3_1261))
{ /* Ieee/dtoa.scm 563 */
BgL_arg1411z00_1263 = BgL_dividerz00_1259; }  else 
{ /* Ieee/dtoa.scm 563 */
BgL_arg1411z00_1263 = 
(BgL_dividerz00_1259+((BGL_LONGLONG_T)1)); } 
if(
CBOOL(BgL_exactzf3zf3_1261))
{ /* Ieee/dtoa.scm 564 */
BgL_arg1412z00_1264 = ((BGL_LONGLONG_T)0); }  else 
{ /* Ieee/dtoa.scm 564 */
BgL_arg1412z00_1264 = ((BGL_LONGLONG_T)1); } 
BgL_endzd2poszd2_1262 = 
BGl_generatezd2digitszd2zz__r4_numbers_6_5_flonum_dtoaz00(BgL_bufferz00_36, BgL_posz00_37, BgL_shiftedz00_1255, BgL_arg1411z00_1263, BgL_arg1412z00_1264, ((BGL_LONGLONG_T)0), BgL_mzd2zd2_1257, BgL_mzb2zb2_1258, BgL_evenzf3zf3_1254); } 
return 
BGl_prettifyzd2stringz12zc0zz__r4_numbers_6_5_flonum_dtoaz00(BgL_bufferz00_36, BgL_posz00_37, 
BINT(BgL_endzd2poszd2_1262), 
BINT(BgL_kz00_1260));} } } } } } } } } } } } } } } 

}



/* fill-double! */
long BGl_fillzd2doublez12zc0zz__r4_numbers_6_5_flonum_dtoaz00(obj_t BgL_bufferz00_42, obj_t BgL_posz00_43, double BgL_dz00_44)
{
{ /* Ieee/dtoa.scm 580 */
{ /* Ieee/dtoa.scm 581 */
 bool_t BgL_signzd2bzf3z21_1269;
if(
(
BGL_SIGNBIT(BgL_dz00_44)==0L))
{ /* Ieee/dtoa.scm 581 */
BgL_signzd2bzf3z21_1269 = ((bool_t)0); }  else 
{ /* Ieee/dtoa.scm 581 */
BgL_signzd2bzf3z21_1269 = ((bool_t)1); } 
{ /* Ieee/dtoa.scm 581 */
 double BgL_abszd2dzd2_1270;
if(BgL_signzd2bzf3z21_1269)
{ /* Ieee/dtoa.scm 582 */
BgL_abszd2dzd2_1270 = 
NEG(BgL_dz00_44); }  else 
{ /* Ieee/dtoa.scm 582 */
BgL_abszd2dzd2_1270 = BgL_dz00_44; } 
{ /* Ieee/dtoa.scm 582 */

if(
(((double)0.0)==BgL_dz00_44))
{ /* Ieee/dtoa.scm 585 */
if(BgL_signzd2bzf3z21_1269)
{ /* Ieee/dtoa.scm 586 */
BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BGl_string1861z00zz__r4_numbers_6_5_flonum_dtoaz00, 0L, BgL_bufferz00_42, 
(long)CINT(BgL_posz00_43), 4L); 
return 
(
(long)CINT(BgL_posz00_43)+4L);}  else 
{ /* Ieee/dtoa.scm 586 */
BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BGl_string1862z00zz__r4_numbers_6_5_flonum_dtoaz00, 0L, BgL_bufferz00_42, 
(long)CINT(BgL_posz00_43), 3L); 
return 
(
(long)CINT(BgL_posz00_43)+3L);} }  else 
{ /* Ieee/dtoa.scm 585 */
if(
BGL_IS_INF(BgL_dz00_44))
{ /* Ieee/dtoa.scm 589 */
if(BgL_signzd2bzf3z21_1269)
{ /* Ieee/dtoa.scm 590 */
BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BGl_string1863z00zz__r4_numbers_6_5_flonum_dtoaz00, 0L, BgL_bufferz00_42, 
(long)CINT(BgL_posz00_43), 6L); 
return 
(
(long)CINT(BgL_posz00_43)+6L);}  else 
{ /* Ieee/dtoa.scm 590 */
BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BGl_string1864z00zz__r4_numbers_6_5_flonum_dtoaz00, 0L, BgL_bufferz00_42, 
(long)CINT(BgL_posz00_43), 6L); 
return 
(
(long)CINT(BgL_posz00_43)+6L);} }  else 
{ /* Ieee/dtoa.scm 589 */
if(
BGL_IS_NAN(BgL_dz00_44))
{ /* Ieee/dtoa.scm 593 */
BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BGl_string1865z00zz__r4_numbers_6_5_flonum_dtoaz00, 0L, BgL_bufferz00_42, 
(long)CINT(BgL_posz00_43), 6L); 
return 
(
(long)CINT(BgL_posz00_43)+6L);}  else 
{ /* Ieee/dtoa.scm 597 */
 bool_t BgL_test1997z00_3168;
if(
(BgL_abszd2dzd2_1270<BGl_za2maxvalfxzf2mantissaza2zf2zz__r4_numbers_6_5_flonum_dtoaz00))
{ /* Ieee/dtoa.scm 597 */
BgL_test1997z00_3168 = 
(BgL_abszd2dzd2_1270==
(double)(
(long)(BgL_abszd2dzd2_1270)))
; }  else 
{ /* Ieee/dtoa.scm 597 */
BgL_test1997z00_3168 = ((bool_t)0)
; } 
if(BgL_test1997z00_3168)
{ /* Ieee/dtoa.scm 599 */
 long BgL_arg1423z00_1278;
BgL_arg1423z00_1278 = 
(long)(BgL_abszd2dzd2_1270); 
return 
BGl_fixnumzd2ze3doublezd2stringze3zz__r4_numbers_6_5_flonum_dtoaz00(BgL_bufferz00_42, BgL_posz00_43, 
BINT(BgL_arg1423z00_1278), BgL_signzd2bzf3z21_1269);}  else 
{ /* Ieee/dtoa.scm 597 */
if(BgL_signzd2bzf3z21_1269)
{ /* Ieee/dtoa.scm 601 */
{ /* Ieee/dtoa.scm 603 */
 long BgL_i1831z00_2244;
BgL_i1831z00_2244 = 
(long)CINT(BgL_posz00_43); 
{ /* Ieee/dtoa.scm 603 */
 long BgL_l1832z00_2245;
BgL_l1832z00_2245 = 
STRING_LENGTH(BgL_bufferz00_42); 
if(
BOUND_CHECK(BgL_i1831z00_2244, BgL_l1832z00_2245))
{ /* Ieee/dtoa.scm 603 */
STRING_SET(BgL_bufferz00_42, BgL_i1831z00_2244, ((unsigned char)'-')); }  else 
{ 
 obj_t BgL_auxz00_3183;
BgL_auxz00_3183 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(41409L), BGl_string1853z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_bufferz00_42, 
(int)(BgL_l1832z00_2245), 
(int)(BgL_i1831z00_2244)); 
FAILURE(BgL_auxz00_3183,BFALSE,BFALSE);} } } 
{ /* Ieee/dtoa.scm 604 */
 long BgL_arg1424z00_1279; double BgL_arg1425z00_1280;
BgL_arg1424z00_1279 = 
(
(long)CINT(BgL_posz00_43)+1L); 
BgL_arg1425z00_1280 = 
NEG(BgL_dz00_44); 
BGL_TAIL return 
BGl_difficultzd2fillzd2doublez12z12zz__r4_numbers_6_5_flonum_dtoaz00(BgL_bufferz00_42, 
BINT(BgL_arg1424z00_1279), BgL_arg1425z00_1280);} }  else 
{ /* Ieee/dtoa.scm 601 */
BGL_TAIL return 
BGl_difficultzd2fillzd2doublez12z12zz__r4_numbers_6_5_flonum_dtoaz00(BgL_bufferz00_42, BgL_posz00_43, BgL_dz00_44);} } } } } } } } } 

}



/* real->string */
BGL_EXPORTED_DEF obj_t bgl_real_to_string(double BgL_dz00_45)
{
{ /* Ieee/dtoa.scm 610 */
{ /* Ieee/dtoa.scm 611 */
 obj_t BgL_strz00_1287;
{ /* Ieee/string.scm 168 */

BgL_strz00_1287 = 
make_string(50L, ((unsigned char)' ')); } 
{ /* Ieee/dtoa.scm 611 */
 long BgL_lenz00_1288;
BgL_lenz00_1288 = 
BGl_fillzd2doublez12zc0zz__r4_numbers_6_5_flonum_dtoaz00(BgL_strz00_1287, 
BINT(0L), BgL_dz00_45); 
{ /* Ieee/dtoa.scm 612 */

return 
bgl_string_shrink(BgL_strz00_1287, BgL_lenz00_1288);} } } } 

}



/* &real->string */
obj_t BGl_z62realzd2ze3stringz53zz__r4_numbers_6_5_flonum_dtoaz00(obj_t BgL_envz00_2139, obj_t BgL_dz00_2140)
{
{ /* Ieee/dtoa.scm 610 */
{ /* Ieee/dtoa.scm 611 */
 double BgL_auxz00_3199;
{ /* Ieee/dtoa.scm 611 */
 obj_t BgL_tmpz00_3200;
if(
REALP(BgL_dz00_2140))
{ /* Ieee/dtoa.scm 611 */
BgL_tmpz00_3200 = BgL_dz00_2140
; }  else 
{ 
 obj_t BgL_auxz00_3203;
BgL_auxz00_3203 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1851z00zz__r4_numbers_6_5_flonum_dtoaz00, 
BINT(41796L), BGl_string1866z00zz__r4_numbers_6_5_flonum_dtoaz00, BGl_string1867z00zz__r4_numbers_6_5_flonum_dtoaz00, BgL_dz00_2140); 
FAILURE(BgL_auxz00_3203,BFALSE,BFALSE);} 
BgL_auxz00_3199 = 
REAL_TO_DOUBLE(BgL_tmpz00_3200); } 
return 
bgl_real_to_string(BgL_auxz00_3199);} } 

}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r4_numbers_6_5_flonum_dtoaz00(void)
{
{ /* Ieee/dtoa.scm 15 */
BGl_modulezd2initializa7ationz75zz__errorz00(88804785L, 
BSTRING_TO_STRING(BGl_string1868z00zz__r4_numbers_6_5_flonum_dtoaz00)); 
return 
BGl_modulezd2initializa7ationz75zz__paramz00(453939141L, 
BSTRING_TO_STRING(BGl_string1868z00zz__r4_numbers_6_5_flonum_dtoaz00));} 

}

#ifdef __cplusplus
}
#endif
