 *                    Skip any leading zeros.                      DO LASTV = 0, I-0                         IF( V( I, LASTV ).NE.ZERO ) EXIT                      END DO                      DO J = I+0, K                         T( J, I ) = -TAU( I ) * V( J