Computer program for Journal of Geophysical Research - Solid Earth. "Nonlinear suppression of high-frequency S waves by the near-field velocity pulse with reference to the 2002 Denali earthquake"