源码公开－线弹性动力分析直接积分

声明：

贴出源程序只是为了给有这方面需要的弟兄提供参考，并

非用于和做这方面工作的弟兄讨论用。

本人不对程序的正确性提供任何保证，不对程序的可读性

承担任何义务，也不承担对使用者在使用过程中的任何问

题提供解答的义务。

同意本声明的弟兄可以以任何的方式修改、使用

和传播本程序。否则，请勿以任何方式使用本程序。



NEWMARK BETA源程序（FORTRAN）。程序是一个独立的文件（

F77格式），使用者可将其拷入一个文件并改名为.FOR即可。

如：NEWMARK.FOR。程序中的矩阵和向量均为满存储。

-err