real(dp),parameter:: weenumber=1.e-6_dp