用于计算弹性波/声波在均匀介质或二层层状介质中的解析解，源代码为Fortran。