# 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