Searched refs:nptf (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ ! |
| H A D | bctint.f | 412 subroutine Filter(Filtered,DataHist,nptf,timestep,cutfreq) argument
416 integer nptf, cutfreq, j, k, m, s, Filtime(nptf) local
417 real*8 DataHist(nptf,numImpSrfs), Window(nptf)
418 real*8 Sinc(nptf), FilterSW(nptf), Filtered(nptf,numImpSrfs)
422 do j=1,nptf
424 Window(j) = 0.42+0.5*cos(2*pi*Filtime(j)/nptf)
425 & +0.08*cos(4*pi*Filtime(j)/nptf)
426 Sinc(j) = sin(pi*Filtime(j)*windK/nptf)/sin(pi*Filtime(j)/nptf)
430 do j=1,nptf
431 FilterSW(j) = Window(nptf+1-j)*Sinc(nptf+1-j) !filter for convolution
[all …]
|