Télécharger xerbla.eso

Retour à la liste

Numérotation des lignes :

  1. C XERBLA SOURCE BP208322 18/07/10 21:15:35 9872
  2. *> \brief \b XERBLA
  3. *
  4. * =========== DOCUMENTATION ===========
  5. *
  6. * Online html documentation available at
  7. * http://www.netlib.org/lapack/explore-html/
  8. *
  9. *> \htmlonly
  10. *> Download XERBLA + dependencies
  11. *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/xerbla.f">
  12. *> [TGZ]</a>
  13. *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/xerbla.f">
  14. *> [ZIP]</a>
  15. *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/xerbla.f">
  16. *> [TXT]</a>
  17. *> \endhtmlonly
  18. *
  19. * Definition:
  20. * ===========
  21. *
  22. * SUBROUTINE XERBLA( SRNAME, INFO )
  23. *
  24. * .. Scalar Arguments ..
  25. * CHARACTER*(*) SRNAME
  26. * INTEGER INFO
  27. * ..
  28. *
  29. *
  30. *> \par Purpose:
  31. * =============
  32. *>
  33. *> \verbatim
  34. *>
  35. *> XERBLA is an error handler for the LAPACK routines.
  36. *> It is called by an LAPACK routine if an input parameter has an
  37. *> invalid value. A message is printed and execution stops.
  38. *>
  39. *> Installers may consider modifying the STOP statement in order to
  40. *> call system-specific exception-handling facilities.
  41. *> \endverbatim
  42. *
  43. * Arguments:
  44. * ==========
  45. *
  46. *> \param[in] SRNAME
  47. *> \verbatim
  48. *> SRNAME is CHARACTER*(*)
  49. *> The name of the routine which called XERBLA.
  50. *> \endverbatim
  51. *>
  52. *> \param[in] INFO
  53. *> \verbatim
  54. *> INFO is INTEGER
  55. *> The position of the invalid parameter in the parameter list
  56. *> of the calling routine.
  57. *> \endverbatim
  58. *
  59. * Authors:
  60. * ========
  61. *
  62. *> \author Univ. of Tennessee
  63. *> \author Univ. of California Berkeley
  64. *> \author Univ. of Colorado Denver
  65. *> \author NAG Ltd.
  66. *
  67. *> \date December 2016
  68. *
  69. *> \ingroup OTHERauxiliary
  70. *
  71. * =====================================================================
  72. SUBROUTINE XERBLA( SRNAME, INFO )
  73. *
  74. * -- LAPACK auxiliary routine (version 3.7.0) --
  75. * -- LAPACK is a software package provided by Univ. of Tennessee, --
  76. * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
  77. * December 2016
  78. *
  79. * .. Scalar Arguments ..
  80. CHARACTER*(*) SRNAME
  81. INTEGER INFO
  82. * ..
  83. *
  84. * =====================================================================
  85. *
  86. -INC CCOPTIO
  87. *
  88. ** .. Intrinsic Functions ..
  89. * INTRINSIC LEN_TRIM
  90. ** ..
  91. ** .. Executable Statements ..
  92. *
  93. c WRITE( *, FMT = 9999 )SRNAME( 1:LEN_TRIM( SRNAME ) ), INFO
  94.  
  95. WRITE(IOIMP, FMT = 9999 )SRNAME, INFO
  96. *
  97. STOP
  98. *
  99. 9999 FORMAT( ' ** On entry to ', A, ' parameter number ', I2, ' had ',
  100. $ 'an illegal value' )
  101. *
  102. * End of XERBLA
  103. *
  104. END
  105.  
  106.  
  107.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales