diff options
| author | julie <julielangou@users.noreply.github.com> | 2008-12-16 17:06:58 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2008-12-16 17:06:58 +0000 |
| commit | ff981f106bde4ce6a74aa4f4a572c943f5a395b2 (patch) | |
| tree | a386cad907bcaefd6893535c31d67ec9468e693e /SRC/xerbla.f | |
| parent | e58b61578b55644f6391f3333262b72c1dc88437 (diff) | |
| download | lapack-ff981f106bde4ce6a74aa4f4a572c943f5a395b2.tar.gz lapack-ff981f106bde4ce6a74aa4f4a572c943f5a395b2.tar.bz2 lapack-ff981f106bde4ce6a74aa4f4a572c943f5a395b2.zip | |
Diffstat (limited to 'SRC/xerbla.f')
| -rw-r--r-- | SRC/xerbla.f | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/SRC/xerbla.f b/SRC/xerbla.f index 99ca6aa8..cef5464d 100644 --- a/SRC/xerbla.f +++ b/SRC/xerbla.f @@ -1,11 +1,11 @@ SUBROUTINE XERBLA( SRNAME, INFO ) * -* -- LAPACK auxiliary routine (version 3.1) -- +* -- LAPACK auxiliary routine (version 3.2) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. * November 2006 * * .. Scalar Arguments .. - CHARACTER*(*) SRNAME + CHARACTER*(*) SRNAME INTEGER INFO * .. * @@ -31,13 +31,12 @@ * * ===================================================================== * -* .. External Functions .. - INTEGER ILA_LEN_TRIM - EXTERNAL ILA_LEN_TRIM +* .. Intrinsic Functions .. + INTRINSIC LEN_TRIM * .. * .. Executable Statements .. * - WRITE( *, FMT = 9999 )SRNAME(1:ILA_LEN_TRIM(SRNAME)), INFO + WRITE( *, FMT = 9999 )SRNAME( 1:LEN_TRIM( SRNAME ) ), INFO * STOP * |