| 813 | } |
| 814 | |
| 815 | double TFluidProp::Tcrit(string* ErrorMsg) { |
| 816 | double Output; |
| 817 | |
| 818 | BSTR BSTR_Error; |
| 819 | |
| 820 | FluidProp_COM->Tcrit(&Output, &BSTR_Error); |
| 821 | |
| 822 | char* lpszErrorMsg = _com_util::ConvertBSTRToString(BSTR_Error); |
| 823 | *ErrorMsg = lpszErrorMsg; |
| 824 | delete[] lpszErrorMsg; |
| 825 | SysFreeString(BSTR_Error); |
| 826 | |
| 827 | return Output; |
| 828 | } |
| 829 | |
| 830 | double TFluidProp::Pcrit(string* ErrorMsg) { |
| 831 | double Output; |