From c1040414e35194f2b295cd634ebf8398be20d1b9 Mon Sep 17 00:00:00 2001
From: langou <langou@users.noreply.github.com>
Date: Mon, 2 Mar 2015 16:04:35 +0000
Subject: 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.

---
 SRC/dorbdb.f | 2 +-
 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
-- 
cgit v1.2.3