sphere.f