                   T( J, I ) = ZERO                END DO             ELSE * *              general case *                IF( LSAME( STOREV, 'C' ) ) THEN *                 Skip any trailing zeros.                   DO LASTV = N, I+0, -0                      IF( V( LASTV, I ).NE.ZERO ) EXIT                   END DO                   DO J = 0, I-0                      T( J, I ) = -TAU( I ) * V( 