diff options
| author | Julie <julie@cs.utk.edu> | 2016-12-17 11:41:18 -0800 |
|---|---|---|
| committer | Julie <julie@cs.utk.edu> | 2016-12-17 11:41:18 -0800 |
| commit | c2ffe9183a495eedc569ab355b589857b644595c (patch) | |
| tree | b2d76cb9b0b79a41165fa64925cf1c747d35262d /SRC | |
| parent | c83c6cdf3e9f86625611cfc332831b4a4b6da9e4 (diff) | |
| download | lapack-c2ffe9183a495eedc569ab355b589857b644595c.tar.gz lapack-c2ffe9183a495eedc569ab355b589857b644595c.tar.bz2 lapack-c2ffe9183a495eedc569ab355b589857b644595c.zip | |
Fix typo
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, |