00001 SUBROUTINE XERBLA( SRNAME, INFO ) 00002 * 00003 * -- LAPACK auxiliary routine (preliminary version) -- 00004 * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., 00005 * Courant Institute, Argonne National Lab, and Rice University 00006 * February 29, 1992 00007 * 00008 * .. Scalar Arguments .. 00009 CHARACTER*6 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*6 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 WRITE( *, FMT = 9999 )SRNAME, INFO 00035 * 00036 CALL XSTOPX (' ') 00037 * 00038 9999 FORMAT( ' ** On entry to ', A6, ' parameter number ', I2, ' had ', 00039 $ 'an illegal value' ) 00040 * 00041 * End of XERBLA 00042 * 00043 END
1.7.1
