Wrong initialization of pther with p0

Hello,
It seems that pther (ipthrm = 1) is not initialized with the p0 given by the GUI. pther takes all the time the value of 101325 Pa for the first iteration and not the value of p0 specified in the GUI. In fact, the initialization of pther (pther = p0) is done before the GUI call (in iniini) and would be done at the beginning of coini1. I found this problem with the combustion module d3p + ipthrm=1.

I used the following version of CS : Version 7.0.1-patch revision a6004ceac

Best Regards,
Yohann EUDE

从 iniini 和 coini1 中的初始化流程开始，重点关注 ipthrm=1 且燃烧模块使用 d3p 时的 pther。使用通过 GUI 指定的 p0 重现该案例，并验证第一次迭代使用的是该值，而不是 101325 Pa。

由索引模型根据 Issue 内容生成。