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

Start with the initialization flow in iniini and coini1, focusing on pther when ipthrm=1 and the combustion module uses d3p. Reproduce the case with a GUI-specified p0 and verify that the first iteration uses that value instead of 101325 Pa.

Written by the indexing model from the issue text.