5个f语言有限差分正演程序，应用有限差分法在CPML边界条件下进行2D正演，前四个程序分别对应各向异性介质、各项同性2阶精度、各项同性4阶精度、双相介质4阶精度四种不同情况。最后一个是3D粘弹性介质的程序。
5 f language finite difference modeling, application of finite difference method under CPML boundary conditions 2D forward, the first four programs corresponding to anisotropic media, the isotropic second order accuracy, isotropic 4th order accuracy, double phases 4 order accuracy in four different situations. The last one is the program 3D viscoelastic medium. (2016-05-05, Fortran, 82KB, 下载39次)
ABAQUS 子程序 Dflux 关于焊接过程中双椭球热源程序编码
Development of the subroutine Dflux of ABAQUS (2015-12-22, Fortran, 426KB, 下载59次)
abaqus用的那种字代码，双椭圆热源源代码
abaqus use that word code, dual oval hot stream of code (2015-12-21, Fortran, 1KB, 下载9次)
克里金二维、三维插值。是斯坦福油气预测中心C.V. Deutsch写的。本网站上也有些人上传了代码，但是往往都不全，我从本网站下下来后没有一个可以正常使用；这个是我从作者原始网页上下载的程序，并将编译语句写成SHELL语句。我上传的这个程序，确保可以编译、运行、出结果。首先运行文件夹中的Compile编译然后运行exe执行。
Kerry Jiner Wei, three-dimensional interpolation. Stanford hydrocarbon prediction center CV Deutsch wrote. Some people on this site have uploaded the code, but often not the whole, I am from this site down after no one can normally use This is what I downloaded from the website of the original program and compile written statement SHELL statement. I uploaded this program to ensure that you can compile and run, the result. Compile to compile the first run in a folder and then run exe execution. (2014-03-11, Fortran, 548KB, 下载55次)
用龙哥库塔方法求解积分，5阶龙格库塔方法
Method for solving integral with Long Ge Kuta, fifth-order Runge-Kutta method (2013-11-17, Fortran, 1KB, 下载6次)