This procedure is used for picking up the onset and end of the S wave for seismic observation waveform. First compile the code with ifort Main_Swave.f in your compiler And then change the content of fname.txt with your earthquake records name list. At last run the Main_Swave.exe and you can get the result

CHB0190608311718.EW
CRMS.for
Curve_slope.for
Husid_plot.for
Lpass.for
Main_Swave.f
fname.txt
line_fit.FOR
readme.txt

• We are an exchange download platform that only provides communication channels. The downloaded content comes from the internet. Except for download issues, please Google on your own.
• The downloaded content is provided for members to upload. If it unintentionally infringes on your copyright, please contact us.
• Please use Winrar for decompression tools
• If download fail, Try it againg or Feedback to us.
• If downloaded content did not match the introduction, Feedback to us，Confirm and will be refund.
• Before downloading, you can inquire through the uploaded person information

Nothing．