2 calls to
DLARTG
DSTEQR
DSTEQR