在压缩源的激发下，声学-弹性或者弹性-弹性表面的二维精确响应，对于做波场模拟的同学很有参考价值。-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 CALCULA