Merge pull request #162 from kyungminlee/fix-ormrz-post-loop-guard

fix post-loop SIDE/TRANS guard in p?ormrz / p?unmrz

Author: langou

SRC/pcunmrz.f

@@ -455,8 +455,8 @@ SUBROUTINE PCUNMRZ( SIDE, TRANS, M, N, K, L, A, IA, JA, DESCA,
      $                 WORK( IPW ) )
    10 CONTINUE
 *
-      IF( ( LEFT .AND. .NOT.NOTRAN ) .OR.
-     $    ( .NOT.LEFT .AND. NOTRAN ) ) THEN
+      IF( ( LEFT .AND. NOTRAN ) .OR.
+     $    ( .NOT.LEFT .AND. .NOT.NOTRAN ) ) THEN
          IB = I2 - IA
          IF( LEFT ) THEN
             MI = M

SRC/pdormrz.f

@@ -455,8 +455,8 @@ SUBROUTINE PDORMRZ( SIDE, TRANS, M, N, K, L, A, IA, JA, DESCA,
      $                 WORK( IPW ) )
    10 CONTINUE
 *
-      IF( ( LEFT .AND. .NOT.NOTRAN ) .OR.
-     $    ( .NOT.LEFT .AND. NOTRAN ) ) THEN
+      IF( ( LEFT .AND. NOTRAN ) .OR.
+     $    ( .NOT.LEFT .AND. .NOT.NOTRAN ) ) THEN
          IB = I2 - IA
          IF( LEFT ) THEN
             MI = M

SRC/psormrz.f

@@ -455,8 +455,8 @@ SUBROUTINE PSORMRZ( SIDE, TRANS, M, N, K, L, A, IA, JA, DESCA,
      $                 WORK( IPW ) )
    10 CONTINUE
 *
-      IF( ( LEFT .AND. .NOT.NOTRAN ) .OR.
-     $    ( .NOT.LEFT .AND. NOTRAN ) ) THEN
+      IF( ( LEFT .AND. NOTRAN ) .OR.
+     $    ( .NOT.LEFT .AND. .NOT.NOTRAN ) ) THEN
          IB = I2 - IA
          IF( LEFT ) THEN
             MI = M

SRC/pzunmrz.f

@@ -456,8 +456,8 @@ SUBROUTINE PZUNMRZ( SIDE, TRANS, M, N, K, L, A, IA, JA, DESCA,
      $                 WORK( IPW ) )
    10 CONTINUE
 *
-      IF( ( LEFT .AND. .NOT.NOTRAN ) .OR.
-     $    ( .NOT.LEFT .AND. NOTRAN ) ) THEN
+      IF( ( LEFT .AND. NOTRAN ) .OR.
+     $    ( .NOT.LEFT .AND. .NOT.NOTRAN ) ) THEN
          IB = I2 - IA
          IF( LEFT ) THEN
             MI = M