Update addthree.f