       INTEGER            INFO, K, LDA, LDC, M, N *       .. *       .. Array Arguments .. *       DOUBLE PRECISION   A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) *       .. * * *> \par Purpose: *  ============= *> *> \verbatim *> *> D