pan class="new">author Stan Tomov
       @author Mark Gates
       
       @</span>precisions normal z -> s d c
*/
#include "<span class="strike"><span class="old">common_magma</span></span><span class="new">magma_internal</span>.h"

/* ////////////////////////////////////////////////////////////////////////////
   -- Auxiliary function: 'a' is pointer to the current panel holding the
      Householder vectors for the QR factorization of the panel. This routine
      puts ones on the diagonal and zeros in t