dc/d43/SRC_2xerbla_8f_source.html

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