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
1.7.2