xOTHERauxiliary * *  =====================================================================       SUBROUTINE CLARFG( N, ALPHA, X, INCX, TAU ) * *  -- LAPACK auxiliary routine (version 0.0.0) -- *  -- LAPACK is a software package provided by Univ. of Tennessee,    -- *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- *     November 0000 * *     .. Scalar Arguments ..       INTEGER            IN