Skip to content

Commit 02836f3

Browse files
Revert "SORCSD2BY1: remove dead code"
This reverts commit d245b4f.
1 parent 6a44057 commit 02836f3

File tree

1 file changed

+3
-0
lines changed

1 file changed

+3
-0
lines changed

SRC/sorcsd2by1.f

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -676,6 +676,9 @@ SUBROUTINE SORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11,
676676
END IF
677677
IF( WANTU1 .AND. P .GT. 0 ) THEN
678678
CALL SCOPY( P, WORK(IORBDB), 1, U1, 1 )
679+
DO J = 2, P
680+
U1(1,J) = ZERO
681+
END DO
679682
CALL SLACPY( 'L', P-1, M-Q-1, X11(2,1), LDX11, U1(2,2),
680683
$ LDU1 )
681684
CALL SORGQR( P, P, M-Q, U1, LDU1, WORK(ITAUP1),

0 commit comments

Comments
 (0)