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