关于物质点法Fortran编程

用Fortran语言如何实现物质点法三个物体之间的接触？