1      SUBROUTINE XERPRT(MESSG,NMESSG)
2C***BEGIN PROLOGUE  XERPRT
3C***DATE WRITTEN   790801   (YYMMDD)
4C***REVISION DATE  820801   (YYMMDD)
5C***CATEGORY NO.  Z
6C***KEYWORDS  ERROR,XERROR PACKAGE
7C***AUTHOR  JONES, R. E., (SNLA)
8C***PURPOSE  Prints error messages.
9C***DESCRIPTION
10C     Abstract
11C        Print the Hollerith message in MESSG, of length NMESSG,
12C        on each file indicated by XGETUA.
13C     Latest revision ---  19 MAR 1980
14C***REFERENCES  JONES R.E., KAHANER D.K., "XERROR, THE SLATEC ERROR-
15C                 HANDLING PACKAGE", SAND82-0800, SANDIA LABORATORIES,
16C                 1982.
17C***ROUTINES CALLED  I1MACH,S88FMT,XGETUA
18C***END PROLOGUE  XERPRT
19      INTEGER LUN(5)
20      CHARACTER*(*) MESSG
21C     OBTAIN UNIT NUMBERS AND WRITE LINE TO EACH UNIT
22C***FIRST EXECUTABLE STATEMENT  XERPRT
23      CALL XGETUA(LUN,NUNIT)
24      LENMES = LEN(MESSG)
25      DO 20 KUNIT=1,NUNIT
26         IUNIT = LUN(KUNIT)
27         IF (IUNIT.EQ.0) IUNIT = I1MACH(4)
28         DO 10 ICHAR=1,LENMES,72
29            LAST = MIN0(ICHAR+71 , LENMES)
30            WRITE (IUNIT,'(1X,A)') MESSG(ICHAR:LAST)
31   10    CONTINUE
32   20 CONTINUE
33      RETURN
34      END
35