diff options
| author | Julien Langou <julien.langou@ucdenver.edu> | 2016-12-19 10:30:53 +0100 |
|---|---|---|
| committer | Julien Langou <julien.langou@ucdenver.edu> | 2016-12-19 10:30:53 +0100 |
| commit | 1ba4ea3304bc1d5e9758fd82f7f2c1ca34f70289 (patch) | |
| tree | 83f58a380b22e4cc4395e55f0645817372cb2ed0 /SRC | |
| parent | 58e4d0ec7e992c763a60813352407e8103cd3386 (diff) | |
| parent | 48346a584a9c33abd74f9716d695ba8cbc145b15 (diff) | |
| download | lapack-1ba4ea3304bc1d5e9758fd82f7f2c1ca34f70289.tar.gz lapack-1ba4ea3304bc1d5e9758fd82f7f2c1ca34f70289.tar.bz2 lapack-1ba4ea3304bc1d5e9758fd82f7f2c1ca34f70289.zip | |
Merge branch 'master' of https://github.com/Reference-LAPACK/lapack
Diffstat (limited to 'SRC')
| -rw-r--r-- | SRC/zgetsls.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/zgetsls.f b/SRC/zgetsls.f index 6dc6a843..c800f44c 100644 --- a/SRC/zgetsls.f +++ b/SRC/zgetsls.f @@ -478,7 +478,7 @@ $ INFO ) ELSE IF( IASCL.EQ.2 ) THEN CALL ZLASCL( 'G', 0, 0, ANRM, BIGNUM, SCLLEN, NRHS, B, LDB, - $ NFO ) + $ INFO ) END IF IF( IBSCL.EQ.1 ) THEN CALL ZLASCL( 'G', 0, 0, SMLNUM, BNRM, SCLLEN, NRHS, B, LDB, |