cfilt - subroutine to design a bank of digital filters
call cfilt(fil, nfil, npf, deltf, freq1, hw, dt, env, im )
Basic Seismic
Utilities (BSU) designs a bank of filters which overlap to
produce a flat pass-band upon summing. Filters are
constructed from raised cosine enevlopes modulated by a
cosine wave at the center frequency.
Fortran Version.
Arguments
fil (float)
Array of filters [dimension fil(im,*) or fil(npf,nfil) ]
nfil (int)
Number of filters in bank.
npf (int)
Number of samples in a filter.
deltf (float)
Spacing between filter centers.
freq1 (float)
Starting frequency, center of first band-pass filter.
hw (float)
Filter half bandwidth
dt (float)
Sample interval in seconds.
env (float)
Array to hold envelope (raised cosine).
im (int)
First dimension (number of rows) in filter array.
bwht(1)
No known bugs.
Copyright © 2017 by Paul Michaels
This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
P. Michaels, PE. <pm@cgiss.boisestate.edu>