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 / quadpack / xerror.f < prev   
Text File  |  1996-09-28  |  2KB  |  40 lines
  1.       SUBROUTINE XERROR(MESSG,NMESSG,NERR,LEVEL)
  2. C
  3. C     ABSTRACT
  4. C        XERROR PROCESSES A DIAGNOSTIC MESSAGE, IN A MANNER
  5. C        DETERMINED BY THE VALUE OF LEVEL AND THE CURRENT VALUE
  6. C        OF THE LIBRARY ERROR CONTROL FLAG, KONTRL.
  7. C        (SEE SUBROUTINE XSETF FOR DETAILS.)
  8. C
  9. C     DESCRIPTION OF PARAMETERS
  10. C      --INPUT--
  11. C        MESSG - THE HOLLERITH MESSAGE TO BE PROCESSED, CONTAINING
  12. C                NO MORE THAN 72 CHARACTERS.
  13. C        NMESSG- THE ACTUAL NUMBER OF CHARACTERS IN MESSG.
  14. C        NERR  - THE ERROR NUMBER ASSOCIATED WITH THIS MESSAGE.
  15. C                NERR MUST NOT BE ZERO.
  16. C        LEVEL - ERROR CATEGORY.
  17. C                =2 MEANS THIS IS AN UNCONDITIONALLY FATAL ERROR.
  18. C                =1 MEANS THIS IS A RECOVERABLE ERROR.  (I.E., IT IS
  19. C                   NON-FATAL IF XSETF HAS BEEN APPROPRIATELY CALLED.)
  20. C                =0 MEANS THIS IS A WARNING MESSAGE ONLY.
  21. C                =-1 MEANS THIS IS A WARNING MESSAGE WHICH IS TO BE
  22. C                   PRINTED AT MOST ONCE, REGARDLESS OF HOW MANY
  23. C                   TIMES THIS CALL IS EXECUTED.
  24. C
  25. C     EXAMPLES
  26. C        CALL XERROR(23HSMOOTH -- NUM WAS ZERO.,23,1,2)
  27. C        CALL XERROR(43HINTEG  -- LESS THAN FULL ACCURACY ACHIEVED.,
  28. C                    43,2,1)
  29. C        CALL XERROR(65HROOTER -- ACTUAL ZERO OF F FOUND BEFORE INTERVAL
  30. C    1 FULLY COLLAPSED.,65,3,0)
  31. C        CALL XERROR(39HEXP    -- UNDERFLOWS BEING SET TO ZERO.,39,1,-1)
  32. C
  33. C     WRITTEN BY RON JONES, WITH SLATEC COMMON MATH LIBRARY SUBCOMMITTEE
  34. C     LATEST REVISION ---  7 FEB 1979
  35. C
  36.       DIMENSION MESSG(NMESSG)
  37.       CALL XERRWV(MESSG,NMESSG,NERR,LEVEL,0,0,0,0,0.,0.)
  38.       RETURN
  39.       END
  40.