stdlib_xerbla 子例程

public pure subroutine stdlib_xerbla(srname, info)

XERBLA 是 LAPACK 例程的错误处理程序。如果输入参数值无效，LAPACK 例程会调用它。它会打印一条消息并停止执行。安装程序可以考虑修改 STOP 语句以调用特定于系统的异常处理设施。

参数

类型 意图可选 属性 名称
character(len=*), intent(in) :: srname
integer(kind=ilp), intent(in) :: info

源代码

     pure subroutine stdlib_xerbla( srname, info )
     !! XERBLA is an error handler for the LAPACK routines.
     !! It is called by an LAPACK routine if an input parameter has an
     !! invalid value.  A message is printed and execution stops.
     !! Installers may consider modifying the STOP statement in order to
     !! call system-specific exception-handling facilities.
        ! -- reference blas level1 routine --
        ! -- reference blas is a software package provided by univ. of tennessee,    --
        ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..--
           ! Scalar Arguments 
           character(len=*), intent(in) :: srname
           integer(ilp), intent(in) :: info
       ! =====================================================================
           ! Intrinsic Functions 
           intrinsic :: len_trim
           ! Executable Statements 
      9999 format( ' ** ON ENTRY TO ', a, ' PARAMETER NUMBER ', i2, ' HAD ','AN ILLEGAL VALUE' )
                
     end subroutine stdlib_xerbla