diff --git a/lib/tweak1.f90 b/lib/tweak1.f90 index 8442463da..572b26ff3 100644 --- a/lib/tweak1.f90 +++ b/lib/tweak1.f90 @@ -10,7 +10,7 @@ subroutine tweak1(ca,jz,f0,cb) if(twopi.eq.0.d0) twopi=8.d0*atan(1.d0) w=1.d0 - dphi=twopi*f0/11025.d0 + dphi=twopi*f0/12000.d0 wstep=cmplx(cos(dphi),sin(dphi)) do i=1,jz w=w*wstep