moved recursive routine back to GEQRT3