Télécharger la plaquette Cast3M


fr en

Télécharger xerbla.eso

Retour à la liste

Numérotation des lignes : 

xerbla

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

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