home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / octave-1.1.1p1-src.tgz / tar.out / fsf / octave / libcruft / dassl / xerhlt.f < prev    next >
Text File  |  1996-09-28  |  1KB  |  38 lines
  1.       SUBROUTINE XERHLT (MESSG)
  2. C***BEGIN PROLOGUE  XERHLT
  3. C***SUBSIDIARY
  4. C***PURPOSE  Abort program execution and print error message.
  5. C***LIBRARY   SLATEC (XERROR)
  6. C***CATEGORY  R3C
  7. C***TYPE      ALL (XERHLT-A)
  8. C***KEYWORDS  ERROR, XERROR
  9. C***AUTHOR  JONES, R. E., (SNLA)
  10. C***DESCRIPTION
  11. C
  12. C     Abstract
  13. C        ***Note*** machine dependent routine
  14. C        XERHLT aborts the execution of the program.
  15. C        The error message causing the abort is given in the calling
  16. C        sequence, in case one needs it for printing on a dayfile,
  17. C        for example.
  18. C
  19. C     Description of Parameters
  20. C        MESSG is as in XERROR.
  21. C
  22. C***REFERENCES  JONES R.E., KAHANER D.K., 'XERROR, THE SLATEC ERROR-
  23. C                 HANDLING PACKAGE', SAND82-0800, SANDIA LABORATORIES,
  24. C                 1982.
  25. C***ROUTINES CALLED  (NONE)
  26. C***REVISION HISTORY  (YYMMDD)
  27. C   790801  DATE WRITTEN as XERABT
  28. C   861211  REVISION DATE from Version 3.2
  29. C   891214  Prologue converted to Version 4.0 format.  (BAB)
  30. C   900206  Routine changed from user-callable to subsidiary.  (WRB)
  31. C   900510  Changed calling sequence to delete length of char string
  32. C           Changed subroutine name from XERABT to XERHLT.  (RWC)
  33. C***END PROLOGUE  XERHLT
  34.       CHARACTER*(*) MESSG
  35. C***FIRST EXECUTABLE STATEMENT  XERHLT
  36.       CALL XSTOPX (MESSG)
  37.       END
  38.