diff options
| author | Julie <julie@cs.utk.edu> | 2016-10-23 17:09:16 -0700 |
|---|---|---|
| committer | Julie <julie@cs.utk.edu> | 2016-10-23 17:09:16 -0700 |
| commit | b0a56e30a2b02918bced0f42710839670ff93025 (patch) | |
| tree | 8059921431782efc06fedf5629af017c134bf68f /SRC/sgelqt3.f | |
| parent | 511b9d0dbf21e10847c879d86a26f17e39258f9d (diff) | |
| download | lapack-b0a56e30a2b02918bced0f42710839670ff93025.tar.gz lapack-b0a56e30a2b02918bced0f42710839670ff93025.tar.bz2 lapack-b0a56e30a2b02918bced0f42710839670ff93025.zip | |
make sure no variable in indefined
Fix some minors issue: extra space, variable names.
Diffstat (limited to 'SRC/sgelqt3.f')
| -rw-r--r-- | SRC/sgelqt3.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/sgelqt3.f b/SRC/sgelqt3.f index 94784feb..3d9bc468 100644 --- a/SRC/sgelqt3.f +++ b/SRC/sgelqt3.f @@ -133,7 +133,7 @@ PARAMETER ( ONE = 1.0D+00 ) * .. * .. Local Scalars .. - INTEGER I, I1, J, J1, N1, N2, IINFO + INTEGER I, I1, J, J1, M1, M2, N1, N2, IINFO * .. * .. External Subroutines .. EXTERNAL DLARFG, DTRMM, DGEMM, XERBLA |