agc - subroutine to automatic gain control (AGC) a signal
call agc(npts,s1,s2,s3,s4,twide,fsamin)
Basic Seismic
Utilities (BSU) subroutine applies automatic gain control
(AGC) This is not a traditional AGC (exponential envelope),
but rather a smoothed (box car) amplitude envelope is used
to scale the data. Final output is scaled by L2 norm of
amplitude envelope scaled data.
Fortran Version.
Arguments
npts (int)
Number of samples in a trace
s1 (float)
Input seismic trace (float array).
s2 (float)
Scratch array.
s3 (float)
Scratch array.
s4 (float)
Final output signal.
twide (float)
Length of box car smoother in seconds.
fsamin (float)
Sample interval in seconds.
boxit(3)
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>