d2/dcd/BLAS_2SRC_2xerbla_8f_source.html

00001       SUBROUTINE XERBLA( SRNAME, INFO )
00002 *
00003 *  -- LAPACK auxiliary routine (preliminary version) --
00004 *     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
00005 *     November 2006
00006 *
00007 *     .. Scalar Arguments ..
00008       CHARACTER*(*)      SRNAME
00009       INTEGER            INFO
00010 *     ..
00011 *
00012 *  Purpose
00013 *  =======
00014 *
00015 *  XERBLA  is an error handler for the LAPACK routines.
00016 *  It is called by an LAPACK routine if an input parameter has an
00017 *  invalid value.  A message is printed and execution stops.
00018 *
00019 *  Installers may consider modifying the STOP statement in order to
00020 *  call system-specific exception-handling facilities.
00021 *
00022 *  Arguments
00023 *  =========
00024 *
00025 *  SRNAME  (input) CHARACTER*(*)
00026 *          The name of the routine which called XERBLA.
00027 *
00028 *  INFO    (input) INTEGER
00029 *          The position of the invalid parameter in the parameter list
00030 *          of the calling routine.
00031 *
00032 * =====================================================================
00033 *
00034 *     .. Intrinsic Functions ..
00035       INTRINSIC          LEN_TRIM
00036 *     ..
00037 *     .. Executable Statements ..
00038 *
00039       WRITE( *, FMT = 9999 )SRNAME( 1:LEN_TRIM( SRNAME ) ), INFO
00040 *
00041       STOP
00042 *
00043  9999 FORMAT( ' ** On entry to ', A, ' parameter number ', I2, ' had ',
00044      $      'an illegal value' )
00045 *
00046 *     End of XERBLA
00047 *
00048       END