energy - calculate energy
ierr= energy (intag,outtag,data,data2,n1,n2,n3,lwind,j1,n1new,norm,ave)
Input tag
Output tag
real(n1,n2)
Input offset-time gather
real(n1new,n2)
Output velocity-time gather
Input length1
Length axis2
Length axis3
Length of energy window
Spacing betweew centers of energy windows
Output fast axis length
Flag for normalizing energy (0,1)
Flag for normalizing window length
Subroutine to calculate energy in running windows along fast data axis
Energy
sepfilter