Mercurial > hg > octave-nkf
view libcruft/blas-xtra/xerbla.f @ 14376:7dd6ac033e69
Warn when the default path is overwritten
* load-path.h (dir_info): New member, is_init, true if this directory
was set during init. (dir_info::dir_info): Initialise is_init param.
(load_path::do_clear): Pass the new elements to add after clearing.
(load_path::clear): Pass dummy empty elements. (load_path::do_set,
load_path::do_append, load_path::do_add): Pass new bool if adding or
setting an init directory.
* load-path.cc (load_path::do_initalize, load_path::do_append,
load_path::do_add): Pass around extra is_init argument. (do_set):
Pass an std::set of new directories to do_append. (do_clear): Check
if the init directories are getting removed and warn if so.
| author | Jordi Gutiérrez Hermoso <jordigh@octave.org> |
|---|---|
| date | Thu, 16 Feb 2012 20:19:12 -0500 |
| parents | dd144c6dfc71 |
| children |
line wrap: on
line source
SUBROUTINE XERBLA( SRNAME, INFO ) * * -- LAPACK auxiliary routine (preliminary version) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., * Courant Institute, Argonne National Lab, and Rice University * February 29, 1992 * * .. Scalar Arguments .. CHARACTER*6 SRNAME INTEGER INFO * .. * * Purpose * ======= * * 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. * * Arguments * ========= * * SRNAME (input) CHARACTER*6 * The name of the routine which called XERBLA. * * INFO (input) INTEGER * The position of the invalid parameter in the parameter list * of the calling routine. * * WRITE( *, FMT = 9999 )SRNAME, INFO * CALL XSTOPX (' ') * 9999 FORMAT( ' ** On entry to ', A6, ' parameter number ', I2, ' had ', $ 'an illegal value' ) * * End of XERBLA * END