Commit 740709e0 authored by thomas.forbriger's avatar thomas.forbriger
Browse files

green/disan/spegra [FIX]: fix taper

parent 7f707e47
......@@ -288,7 +288,7 @@ c copy tapered time series
ifirst=icenter-int(0.5*winlen/dt)
ilast=ifirst+nwinsamples-1
do i=ifirst,ilast
now=dt*(i-1)
now=dt*(i+1)
if (now.lt.(tref(itime)-0.5*winlen)) then
factor=0.
c elseif (now.lt.tref(itime)) then
......@@ -298,8 +298,9 @@ c factor=0.5*(1.+cos(pi*(tref(itime)-now)/tau))
else
factor=0.
endif
if (debug.and.(itime.eq.20).and.(itrace.eq.1)) then
print *,'DEBUG ',i,' factor= ',factor
if (debug.and.(itime.eq.5).and.(itrace.eq.1)) then
print *,'DEBUG ',i,'frac= ',(tref(itime)-now)/winlen,
& ' factor= ',factor
endif
process(i-ifirst+1)=cmplx(fdata(i+firstsample(k)-1))*factor
enddo
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment