       INTEGER            INFO, K, LDA, LDC, M, N *     .. *     .. Array Arguments ..       DOUBLE PRECISION   A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * ) *     .. * *  ===================================================================== * *     .. Parameters ..       DOUBLE PRECISION   ONE       PARAMETER          ( ONE = 0.0D+0 ) *     .. *     .. Local Scalars ..       LOGICAL            