xORBDB6/xUNBDB6: fix read of uninitialized variable

There is no warning with GCC 11 about an undeclared and uninitialized
varible being read without the `-Wextra` flag. Why?

Author: christoph-conrads

SRC/cunbdb6.f

@@ -262,7 +262,7 @@ SUBROUTINE CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,
          RETURN
       END IF
 *
-      IF( NORMSQ2 .LE. N * EPS * NORM ) THEN
+      IF( NORM_NEW .LE. N * EPS * NORM ) THEN
          DO IX = 1, 1 + (M1-1)*INCX1, INCX1
            X1( IX ) = ZERO
          END DO

SRC/dorbdb6.f

@@ -261,7 +261,7 @@ SUBROUTINE DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,
          RETURN
       END IF
 *
-      IF( NORMSQ2 .LE. N * EPS * NORM ) THEN
+      IF( NORM_NEW .LE. N * EPS * NORM ) THEN
          DO IX = 1, 1 + (M1-1)*INCX1, INCX1
            X1( IX ) = ZERO
          END DO

SRC/sorbdb6.f

@@ -261,7 +261,7 @@ SUBROUTINE SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,
          RETURN
       END IF
 *
-      IF( NORMSQ2 .LE. N * EPS * NORM ) THEN
+      IF( NORM_NEW .LE. N * EPS * NORM ) THEN
          DO IX = 1, 1 + (M1-1)*INCX1, INCX1
            X1( IX ) = ZERO
          END DO

SRC/zunbdb6.f

@@ -262,7 +262,7 @@ SUBROUTINE ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,
          RETURN
       END IF
 *
-      IF( NORMSQ2 .LE. N * EPS * NORM ) THEN
+      IF( NORM_NEW .LE. N * EPS * NORM ) THEN
          DO IX = 1, 1 + (M1-1)*INCX1, INCX1
            X1( IX ) = ZERO
          END DO