diff --git a/SRC/zunbdb3.f b/SRC/zunbdb3.f
index f7a976894..3bf2ab965 100644
--- a/SRC/zunbdb3.f
+++ b/SRC/zunbdb3.f
@@ -284,6 +284,7 @@
      $                  S )
          END IF
 *
+         CALL ZLACGV( Q-I+1, X21(I,I), LDX21 )
          CALL ZLARFGP( Q-I+1, X21(I,I), X21(I,I+1), LDX21, TAUQ1(I) )
          S = DBLE( X21(I,I) )
          CALL ZLARF1F( 'R', P-I+1, Q-I+1, X21(I,I), LDX21, TAUQ1(I),