diff options
author | langou <langou@users.noreply.github.com> | 2015-03-02 16:04:35 +0000 |
---|---|---|
committer | langou <langou@users.noreply.github.com> | 2015-03-02 16:04:35 +0000 |
commit | c1040414e35194f2b295cd634ebf8398be20d1b9 (patch) | |
tree | 5ef07ed6996fd6417c91fc31c9293b8f0b7641bb | |
parent | 409a29e546c393994eccc8e90a370d13b6f10d4c (diff) | |
download | lapack-c1040414e35194f2b295cd634ebf8398be20d1b9.tar.gz lapack-c1040414e35194f2b295cd634ebf8398be20d1b9.tar.bz2 lapack-c1040414e35194f2b295cd634ebf8398be20d1b9.zip |
Correct two ". GT." to " .GT.". Bug reported by email ny Willem Vermin "Minor
issue in dorbdb.f and sorbdb.f" on Friday, February 27, 2015 at 4:03 AM.
-rw-r--r-- | SRC/dorbdb.f | 2 | ||||
-rw-r--r-- | SRC/sorbdb.f | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/SRC/dorbdb.f b/SRC/dorbdb.f index 9b56bf08..52353c3b 100644 --- a/SRC/dorbdb.f +++ b/SRC/dorbdb.f @@ -512,7 +512,7 @@ END IF X12(I,I) = ONE * - IF ( P. GT. I ) THEN + IF ( P .GT. I ) THEN CALL DLARF( 'R', P-I, M-Q-I+1, X12(I,I), LDX12, TAUQ2(I), $ X12(I+1,I), LDX12, WORK ) END IF diff --git a/SRC/sorbdb.f b/SRC/sorbdb.f index f001da63..e1f3af4d 100644 --- a/SRC/sorbdb.f +++ b/SRC/sorbdb.f @@ -512,7 +512,7 @@ END IF X12(I,I) = ONE * - IF ( P. GT. I ) THEN + IF ( P .GT. I ) THEN CALL SLARF( 'R', P-I, M-Q-I+1, X12(I,I), LDX12, TAUQ2(I), $ X12(I+1,I), LDX12, WORK ) END IF |