l2norm - subroutine to rescale a seismic trace by its L2 norm
call l2norm(npts,s1,s2,fsamin,tmin1,tmax1)
Basic Seismic
Utilities (BSU) computes an L2 norm for a specified aperture
within a seismic trace (gate defined by tmin1 and tmax1).
The entire trace is scaled by the calculated norm.
Fortran Version.
Arguments
npts (int)
Number of samples in a trace
s1 (float)
Input seismic trace (float array).
s2 (float)
Scaled output trace (float array).
fsamin (float)
Sample interval in seconds.
tmin1 (float)
Start time of aperture
tmax1 (float)
End time of aperture
bscl(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>