diff options
| author | jofret | 2010-06-21 06:24:38 +0000 |
|---|---|---|
| committer | jofret | 2010-06-21 06:24:38 +0000 |
| commit | 8b44229ef44f0558ce045e46ff833fb44df913c9 (patch) | |
| tree | 4fdd89b2258c18c905d2f17ef4bea8ea9cf32893 /src/fortran/lapack/xerbla.f | |
| parent | af0366230e14cc75d9e9a183375ee9cb69fb46b6 (diff) | |
| download | scilab2c-8b44229ef44f0558ce045e46ff833fb44df913c9.tar.gz scilab2c-8b44229ef44f0558ce045e46ff833fb44df913c9.tar.bz2 scilab2c-8b44229ef44f0558ce045e46ff833fb44df913c9.zip | |
Tagging the 2.0 release of scilab2crelease-2.0
Diffstat (limited to 'src/fortran/lapack/xerbla.f')
| -rw-r--r-- | src/fortran/lapack/xerbla.f | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/src/fortran/lapack/xerbla.f b/src/fortran/lapack/xerbla.f new file mode 100644 index 00000000..c8c9231b --- /dev/null +++ b/src/fortran/lapack/xerbla.f @@ -0,0 +1,45 @@ + SUBROUTINE XERBLA( SRNAME, INFO ) +* +* -- LAPACK auxiliary routine (version 3.1) -- +* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. +* November 2006 +* +* .. 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 |