 
      SUBROUTINE XDPCOM
C***BEGIN PROLOGUE  XDPCOM
C***DATE WRITTEN   820712   (YYMMDD)
C***REVISION DATE  861209   (YYMMDD)
C***CATEGORY NO.  A3d
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***PURPOSE  TO PROVIDE DOUBLE-PRECISION FLOATING-POINT ARITHMETIC
C            WITH AN EXTENDED EXPONENT RANGE
C***DESCRIPTION
C
C SUBROUTINE TO PRINT CONTENTS OF COMMON BLOCKS OF DOUBLE-PRECISION
C EXTENDED-RANGE PACKAGE
C
C***REFERENCES  (PROGRAM LISTING FOR XDSET)
C***ROUTINES CALLED  (NONE)
C***COMMON BLOCKS    XDBLK1, XDBLK2, XDBLK3
C***END OF PROLOGUE  XDPCOM
 
 
