From adba39b8df491800ff087067cef1d54e36ad659c Mon Sep 17 00:00:00 2001
From: "philippe.theveny"
 <philippe.theveny@8a072113-8704-0410-8d35-dd094bca7971>
Date: Mon, 10 Aug 2015 17:33:47 +0000
Subject: Bux fix from Rodney James about implicit typing.

Some variables were undeclared, some were mistyped, and others were unused.
---
 SRC/sormql.f | 2 --
 1 file changed, 2 deletions(-)

(limited to 'SRC/sormql.f')

diff --git a/SRC/sormql.f b/SRC/sormql.f
index ccb47c3d..7b092d12 100644
--- a/SRC/sormql.f
+++ b/SRC/sormql.f
@@ -276,8 +276,6 @@
             NBMIN = MAX( 2, ILAENV( 2, 'SORMQL', SIDE // TRANS, M, N, K,
      $              -1 ) )
          END IF
-      ELSE
-         IWS = NW
       END IF
 *
       IF( NB.LT.NBMIN .OR. NB.GE.K ) THEN
-- 
cgit v1.2.3