d9upak.f
SUBROUTINE D9UPAK (X, Y, N)
C***BEGIN PROLOGUE D9UPAK
C***PURPOSE Unpack a floating point number X so that X = Y*2**N.
C***LIBRARY SLATEC (FNLIB)
C***CATEGORY A6B
C***TYPE DOUBLE PRECISION (R9UPAK-S, D9UPAK-D)
C***KEYWORDS FNLIB, UNPACK
C***AUTHOR Fullerton, W., (LANL)
C***DESCRIPTION
C
C Unpack a floating point number X so that X = Y*2.0**N, where
C 0.5 .LE. ABS(Y) .LT. 1.0.
C
C***REFERENCES (NONE)
C***ROUTINES CALLED (NONE)
C***REVISION HISTORY (YYMMDD)
C 780701 DATE WRITTEN
C 890531 Changed all specific intrinsics to generic. (WRB)
C 890531 REVISION DATE from Version 3.2
C 891214 Prologue converted to Version 4.0 format. (BAB)
C 900820 Corrected code to find Y between 0.5 and 1.0 rather than
C between 0.05 and 1.0. (WRB)
C***END PROLOGUE D9UPAK