哪位高手有用fortran 编写的轴系横向强迫振动的程序代码!谢谢!!!!