public Zhqrd(Zmat A) throws JampackException {
  A.getProperties();
  nrow=A.nr;
  ncol=A.nc;
  ntran=Math.min(A.nr,A.nc);
  U=new Z1[ntran];
  R=new Zutmat(A);
  for (int k=A.bx; k < A.bx + ntran; k++) {
    U[k - A.bx]=House.genc(R,k,A.rx,k);
    House.ua(U[k - A.bx],R,k,A.rx,k + 1,A.cx);
  }
  if (nrow > ncol) {
    R=new Zutmat(R.get(R.bx,R.cx,R.bx,R.cx));
  }
}

public Zhqrd ( Zmat A ) throws JampackException { A . getProperties ( ) ; nrow = A . nr ; ncol = A . nc ; ntran = Math . min ( A . nr , A . nc ) ; U = new Z1 [ ntran ] ; R = new Zutmat ( A ) ; for ( int k = A . bx ; k < A . bx + ntran ; k ++ ) { U [ k - A . bx ] = House . genc ( R , k , A . rx , k ) ; House . ua ( U [ k - A . bx ] , R , k , A . rx , k + 1 , A . cx ) ; } if ( nrow > ncol ) { R = new Zutmat ( R . get ( R . bx , R . cx , R . bx , R . cx ) ) ; } }
computes a householder qr decomposition of a zmat
