real(dp),parameter::acc=1.e-4_dp