diff options
| author | jofret | 2008-04-11 12:58:39 +0000 |
|---|---|---|
| committer | jofret | 2008-04-11 12:58:39 +0000 |
| commit | bffa06c16ac699d2a84bf9cdf2c84ee8f6fbeb57 (patch) | |
| tree | be10432943bb2c49f78c65b7f7407175a49f014e /src | |
| parent | 931b3660ca515dbd888f316578741db0099056e9 (diff) | |
| download | scilab2c-bffa06c16ac699d2a84bf9cdf2c84ee8f6fbeb57.tar.gz scilab2c-bffa06c16ac699d2a84bf9cdf2c84ee8f6fbeb57.tar.bz2 scilab2c-bffa06c16ac699d2a84bf9cdf2c84ee8f6fbeb57.zip | |
oups, forgot that file
Diffstat (limited to 'src')
| -rw-r--r-- | src/lib/blas/xerbla.f | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/src/lib/blas/xerbla.f b/src/lib/blas/xerbla.f new file mode 100644 index 00000000..6e11175f --- /dev/null +++ b/src/lib/blas/xerbla.f @@ -0,0 +1,46 @@ + SUBROUTINE XERBLA( SRNAME, INFO ) +* +* -- LAPACK auxiliary routine (version 3.0) -- +* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., +* Courant Institute, Argonne National Lab, and Rice University +* September 30, 1994 +* +* .. 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. +* +* ===================================================================== +* +* .. Executable Statements .. +* + WRITE( *, FMT = 9999 )SRNAME, INFO +* + STOP +* + 9999 FORMAT( ' ** On entry to ', A6, ' parameter number ', I2, ' had ', + $ 'an illegal value' ) +* +* End of XERBLA +* + END |