/*      float.c                           22.11.93       */
/*
/  --------------------------------------------------------
/  COPYRIGHT (C) 1992: ATLAS ELEKTRONIK GMBH, D-2800 BREMEN
/  --------------------------------------------------------
/
/  HIER/SACHN: P: GE 6028 P 206 QE
/  BENENNUNG : __________________________________________________
/  ERSTELLER : BRAUN               :SAS 3
/  FREIGABE  :
/  AEND/STAND: 22.11.93
/  PRUEFVERM.:
/
/
/  SCHNITTSTELLE UND AUFGABENBESCHREIBUNG:
/  ---------------------------------------
/    transmitter for ethernet connection via xdr protocol
/
/  SPRACHE: C
/  
/  NAME UND STRUKTUR DER EINGABEPARAMETER:
/
/
/  NAME UND STRUKTUR DER AUSGABEPARAMETER:
/    
/
/  AUFGABENBESCHREIBUNG:
/
*/


/* include files */

#include "standard.h"
#include "fl_doub.h"

void show_float_and_double (double arg)
{
int ii;

union
{
   float	float1;
   char		char1[sizeof(float)];
} float_test;

union
{
   double	double1;
   char		char1[sizeof(double)];
} double_test;


/* convert arg to float and double */
	float_test.float1	= (float) arg;
	double_test.double1 = (double)arg;

	printf ("value = %lf \n", arg);

	printf ("as float  pattern:");
	for (ii = 0; ii < sizeof(float); ii++)
	{
		printf (" %02x", float_test.char1[ii] & 0xff);
	}
	printf ("\n");

	printf ("as double pattern:");
	for (ii = 0; ii < sizeof(double); ii++)
	{
		printf (" %02x", double_test.char1[ii] & 0xff);
	}
	printf ("\n");


	return;
}  /* show_float_and_double */

