说明：  在压缩源的激发下，声学-弹性或者弹性-弹性表面的二维精确响应，对于做波场模拟的同学很有参考价值。
(THIS FORTRAN PROGRAM CALCULATES THE EXACT SEISMIC 2D RESPONSE IN AN ELASTIC HALFSPACE WITH A COMPRESSIONAL POINT SOURCE AND AN INTERFACE TO AN ELASTIC HALFSPACE. ALL GREEN S FUNCTIONS ARE CALCULATED ANALYTICALLY BY CAGNIARD-DE HOOP TECHNIQUE. CONVOLUTIONS WITH A GIVEN SOURCE TIME HISTORY ARE PERFORMED NUMERICALLY. )