双椭球热源子程序编写问题咨询

有没有能帮我看看我自己写的子程序有哪些问题,采用V S编写的fortran语言。个人计算第二道焊缝没有结果,就是时间过去了,第二道焊缝没有温度变化没任何变化,我一共设置两个加热步,对应两个焊缝,各20s,一个冷却步3000s,子程序中我也写了第二道焊缝初始位置,不过为啥没有结果,只有第一条焊缝,想了好久也想不明白,不知道有没有好兄弟帮我看看哪里有问题,如果计算成功,哪怕结果有问题,只要第二道焊缝能出现温度变化,出现计算,可以给予报酬,感谢!

img

img

看看参数
https://www.bilibili.com/video/BV19S4y1U73T