Pg与Sg波近震三要素计算程序