sgainpar - gain seismic data
int sgainpar (tag,adata,ant,ahbytes,anx,adit,atpow,ait0,apclip,aphalf,aclip,agpow,adbias,adt,anp,againip)
Subroutine to compute gain factors for seismic data all arguments are addresses if any argument has the value zero, it reverts to its default.
tag of dataset, may be lseeked to appropiate place, default 0
save copy of data here, useful for pipes if 0, then data not saved, default 0
raslength of data vector, default 1024
number of vectors to examine, default all data or 256, whichever is less
number of planes of data, (n3) default 1
integer separation between samples, default nt*nx / 262144, because only 262144 values are sorted to find percentiles (for np=1)
multiply samples by ((it*dit+it0)*dt)**tpow, default 0
time of first sample in units of samples, default 0
subtract dbias from the data
percentile for clipping seismic data, default 99
percentile for determining gpow, default 85
plane where clip and gpow are estimated default 1 (the first plane is used) when -1, data of all planes are considered
sample interval of data
clip value
raise each data sample to this power, gpow = log (.5) / log (half / clip), if (half / clip < .001) gpow = 1. (detects synthetics)
sepaux