 
      SUBROUTINE XSERR(A)
C***BEGIN PROLOGUE  XSERR
C***DATE WRITTEN   830124   (YYMMDD)
C***REVISION DATE  861209   (YYMMDD)
C***CATEGORY NO.  A3d
C***KEYWORDS  EXTENDED-RANGE SINGLE-PRECISION ARITHMETIC
C***AUTHOR  LOZIER, DANIEL W. (NATIONAL BUREAU OF STANDARDS)
C           SMITH, JOHN M. (NBS AND GEORGE MASON UNIVERSITY)
C***PURPOSE  TO PROVIDE SINGLE-PRECISION FLOATING-POINT ARITHMETIC
C            WITH AN EXTENDED EXPONENT RANGE
C***DESCRIPTION
C     CHARACTER*(*) A
C
C Extended-range single-precision arithmetic package. Print an
C error message and the contents of the common blocks, then stop.
C
C***REFERENCES  (PROGRAM LISTING FOR XSSET)
C***ROUTINES CALLED  XSPCOM, XERROR
C***COMMON BLOCKS    XSBLK1
C***END OF PROLOGUE  XSERR
 
 
