dxcon.f
SUBROUTINE DXCON (X, IX, IERROR)
C***BEGIN PROLOGUE DXCON
C***PURPOSE To provide double-precision floating-point arithmetic
C with an extended exponent range.
C***LIBRARY SLATEC
C***CATEGORY A3D
C***TYPE DOUBLE PRECISION (XCON-S, DXCON-D)
C***KEYWORDS EXTENDED-RANGE DOUBLE-PRECISION ARITHMETIC
C***AUTHOR Lozier, Daniel W., (National Bureau of Standards)
C Smith, John M., (NBS and George Mason University)
C***DESCRIPTION
C DOUBLE PRECISION X
C INTEGER IX
C
C CONVERTS (X,IX) = X*RADIX**IX
C TO DECIMAL FORM IN PREPARATION FOR
C PRINTING, SO THAT (X,IX) = X*10**IX
C WHERE 1/10 .LE. ABS(X) .LT. 1
C IS RETURNED, EXCEPT THAT IF
C (ABS(X),IX) IS BETWEEN RADIX**(-2L)
C AND RADIX**(2L) THEN THE REDUCED
C FORM WITH IX = 0 IS RETURNED.
C
C***SEE ALSO DXSET
C***REFERENCES (NONE)
C***ROUTINES CALLED DXADJ, DXC210, DXRED
C***COMMON BLOCKS DXBLK2
C***REVISION HISTORY (YYMMDD)
C 820712 DATE WRITTEN
C 890126 Revised to meet SLATEC CML recommendations. (DWL and JMS)
C 901019 Revisions to prologue. (DWL and WRB)
C 901106 Changed all specific intrinsics to generic. (WRB)
C Corrected order of sections in prologue and added TYPE
C section. (WRB)
C 920127 Revised PURPOSE section of prologue. (DWL)
C***END PROLOGUE DXCON