D9PAK(3)

SYNOPSIS
DOUBLE PRECISION FUNCTION D9PAK (Y, N)

NAME
d9pak - Pack a base 2 exponent into a floating point number.

LIBRARY
SLATEC (FNLIB)

CATEGORY
A6B

TYPE
DOUBLE PRECISION (R9PAK-S, D9PAK-D)

KEYWORDS
FNLIB, PACK

AUTHOR
Fullerton, W., (LANL)

DESCRIPTION
Pack a base 2 exponent into floating point number X. This routine is almost the inverse of D9UPAK. It is not exactly the inverse, because ABS(X) need not be between 0.5 and 1.0. If both D9PAK and 2.d0**N were known to be in range we could compute D9PAK = X *2.0d0**N

REFERENCES
(NONE)

ROUTINES CALLED
D1MACH, D9UPAK, I1MACH, XERMSG

REVISION HISTORY (YYMMDD)
790801 DATE WRITTEN
890531 Changed all specific intrinsics to generic. (WRB)
890911 Removed unnecessary intrinsics. (WRB)
891009 Corrected error when XERROR called. (WRB)
891009 REVISION DATE from Version 3.2
891214 Prologue converted to Version 4.0 format. (BAB)
900315 CALLs to XERROR changed to CALLs to XERMSG. (THJ)
901009 Routine used I1MACH(7) where it should use I1MACH(10), Corrected (RWC)