SORCSD2BY1: remove dead code

The zeros are overwritten by the following SORGQR call.

Author: christoph-conrads

SRC/sorcsd2by1.f

@@ -676,9 +676,6 @@ SUBROUTINE SORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11,
          END IF
          IF( WANTU1 .AND. P .GT. 0 ) THEN
             CALL SCOPY( P, WORK(IORBDB), 1, U1, 1 )
-            DO J = 2, P
-               U1(1,J) = ZERO
-            END DO
             CALL SLACPY( 'L', P-1, M-Q-1, X11(2,1), LDX11, U1(2,2),
      $                   LDU1 )
             CALL SORGQR( P, P, M-Q, U1, LDU1, WORK(ITAUP1),