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 / blas / xerbla.f < prev    next >
Text File  |  1996-09-28  |  1KB  |  46 lines
  1.       SUBROUTINE XERBLA ( SRNAME, INFO )
  2. *     ..    Scalar Arguments ..
  3.       INTEGER            INFO
  4.       CHARACTER*6        SRNAME
  5. *     ..
  6. *
  7. *  Purpose
  8. *  =======
  9. *
  10. *  XERBLA  is an error handler for the Level 2 BLAS routines.
  11. *
  12. *  It is called by the Level 2 BLAS routines if an input parameter is
  13. *  invalid.
  14. *
  15. *  Installers should consider modifying the STOP statement in order to
  16. *  call system-specific exception-handling facilities.
  17. *
  18. *  Parameters
  19. *  ==========
  20. *
  21. *  SRNAME - CHARACTER*6.
  22. *           On entry, SRNAME specifies the name of the routine which
  23. *           called XERBLA.
  24. *
  25. *  INFO   - INTEGER.
  26. *           On entry, INFO specifies the position of the invalid
  27. *           parameter in the parameter-list of the calling routine.
  28. *
  29. *
  30. *  Auxiliary routine for Level 2 Blas.
  31. *
  32. *  Written on 20-July-1986.
  33. *
  34. *     .. Executable Statements ..
  35. *
  36.       WRITE (*,99999) SRNAME, INFO
  37. *
  38.       CALL XSTOPX (' ')
  39. *
  40. 99999 FORMAT ( ' ** On entry to ', A6, ' parameter number ', I2,
  41.      $         ' had an illegal value' )
  42. *
  43. *     End of XERBLA.
  44. *
  45.       END
  46.