/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* encodeb APL2 V1.0.0 *************************************************
* Called from encode and encodbl to finish when the arguments are      *
* double floating point (APLNUMB).                                     *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
#define EP encodeb
#define TYPE double
#define ZERO 0.0
#define MOD residue
#include "encodei.h"