/*
 *				f r e x p . c
 */

#ifdef	DOCUMENTATION
title	frexp	get mantissa and exponent of a number to base 2
index	get mantissa and exponent of a number to base 2
usage
	.s
	double x, mant, frexp();
	.br
	int xi;
	.br
	mant = frexp(x, &xi);
	.s
description
	.s
	This is the UNIX function frexp. It returns the mantissa
	of x as its value and the exponent of x as an integer via xi.
	.s
diagnostics
	.s
	None
	.s
internal
	.s
	This does not exist as a C program. The program is written in
	macro since AS does not seem to handle the STEXP instruction
	properly. This file is included only for the documentation.
	.s
author
	.s
	Hamish Ross.
	.s
date
	.s
	23-Aug-84
#endif