Update qroot.f