DFLUX子程序实现热源移动的问题

A840216573

     我的目的是沿着X轴移动高斯热源（用高斯方程描述的激光），并观察模型表面上的残余应力和温度分布。模型由钢制成，我已经设置了材料参数。
      为了方便起见，我在Fortran文件中添加了对每个语句的解释。 包括热源的初始位置，移动速度和热源分布函数。因为这是我第一次尝试在DFLUX上编写一个子程序，所以有些语句的格式可能不正确。大神们看看我的子程序编的哪里不对，包括格式和内容。

fysjtu1

添加图示标记语句，要加“JLTYP=1”，表示体热源。

fysjtu1

另外，注意一些语法，建议用Visual  Studio编写.for程序，有语法自动高亮提示功能。

fysjtu1

热源移动

uusky

支持，学习一下。