Paul's next fix to set_zeta.F