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