diff options
| author | jofret | 2009-04-28 07:17:27 +0000 |
|---|---|---|
| committer | jofret | 2009-04-28 07:17:27 +0000 |
| commit | b4291825aaa210d693f4f858e1c8c25f514a3f71 (patch) | |
| tree | 4ba928deac68d7098a7043cd286acb23351825d8 /src/lib/blas/xerbla.f | |
| parent | 8c8d2f518968ce7057eec6aa5cd5aec8faab861a (diff) | |
| download | scilab2c-b4291825aaa210d693f4f858e1c8c25f514a3f71.tar.gz scilab2c-b4291825aaa210d693f4f858e1c8c25f514a3f71.tar.bz2 scilab2c-b4291825aaa210d693f4f858e1c8c25f514a3f71.zip | |
Moving blas to right place
Diffstat (limited to 'src/lib/blas/xerbla.f')
| -rw-r--r-- | src/lib/blas/xerbla.f | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/src/lib/blas/xerbla.f b/src/lib/blas/xerbla.f deleted file mode 100644 index 6e11175f..00000000 --- a/src/lib/blas/xerbla.f +++ /dev/null @@ -1,46 +0,0 @@ - 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 |