id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc
299	Bug in ropp_pp_fourier_filter	Ian Culverwell	Ian Culverwell	"Stig's Tdry branch contains the following change, due originally to Kjartan:

{{{

  DO k=1,n/2-1 
   FFk = 0.0_wp 
   if ( (Pi*k*window/N)**2/4 < 500.0_wp) then 
     FFk    = Exp(-(Pi*k*window/N)**2/4) 
   endif 
   data(k)   = data(k)*FFk 
   data(N-k) = data(N-k)*FFk 
 End Do 
 data(N/2) = data(N/2)*FFk

}}}

should be

{{{

  DO k=2,n/2
   FFk = 0.0_wp 
   if ( (Pi*(k-1)*window/N)**2/4 < 500.0_wp) then 
     FFk    = Exp(-(Pi*(k-1)*window/N)**2/4) 
   endif 
   data(k)   = data(k)*FFk 
   data(N-k+2) = data(N-k+2)*FFk 
 End Do 
 data(N/2+1) = data(N/2+1)*FFk

}}}

In the first case we cover generate data(1:N-1); in the second we generate data(2:N). According to Kjartan (via Stig), the change is not strictly necessary, but it then follows Michael Gorbunov's OCC exactly. 

Bundle it up with the Tdry changes.
"	defect	closed	normal	6.1	ropp_pp	6.0	fixed	fourier filter