Update rnds.f