int zm_resize_vars(int m, int n, ...) {
va_list ap;
int i = 0;
ZMAT **par;
va_start(ap, n);
while ((par = va_arg(ap, ZMAT **))) { /* NULL ends the list*/
*par = zm_resize(*par, m, n);
i++;
}
va_end(ap);
return i;
}
/* zmakeQ -- constructs orthogonal matrix from Householder vectors stored in
compact QR form */
ZMAT *zmakeQ(ZMAT *QR, ZVEC *diag, ZMAT *Qout)
{
STATIC ZVEC *tmp1=ZVNULL,*tmp2=ZVNULL;
unsigned int i, limit;
Real beta, r_ii, tmp_val;
int j;
limit = min(QR->m,QR->n);
if ( ! QR || ! diag )
error(E_NULL,"zmakeQ");
if ( diag->dim < limit )
error(E_SIZES,"zmakeQ");
Qout = zm_resize(Qout,QR->m,QR->m);
tmp1 = zv_resize(tmp1,QR->m); /* contains basis vec & columns of Q */
tmp2 = zv_resize(tmp2,QR->m); /* contains H/holder vectors */
MEM_STAT_REG(tmp1,TYPE_ZVEC);
MEM_STAT_REG(tmp2,TYPE_ZVEC);
for ( i=0; i<QR->m ; i++ )
{ /* get i-th column of Q */
/* set up tmp1 as i-th basis vector */
for ( j=0; j<QR->m ; j++ )
tmp1->ve[j].re = tmp1->ve[j].im = 0.0;
tmp1->ve[i].re = 1.0;
/* apply H/h transforms in reverse order */
for ( j=limit-1; j>=0; j-- )
{
zget_col(QR,j,tmp2);
r_ii = zabs(tmp2->ve[j]);
tmp2->ve[j] = diag->ve[j];
tmp_val = (r_ii*zabs(diag->ve[j]));
beta = ( tmp_val == 0.0 ) ? 0.0 : 1.0/tmp_val;
/* hhtrvec(tmp2,beta->ve[j],j,tmp1,tmp1); */
zhhtrvec(tmp2,beta,j,tmp1,tmp1);
}
/* insert into Q */
zset_col(Qout,i,tmp1);
}
#ifdef THREADSAFE
ZV_FREE(tmp1); ZV_FREE(tmp2);
#endif
return (Qout);
}
