CAPE-OPEN

Code: Select all

static double fun_51528(Material mat, double std_h, double std_p, vector<double> *composition, int nCompounds){
	double std_T = 300.0;
	mat->PHFlash(std_p, std_h,nCompounds,composition->data(),&std_T);
	return std_T;
}

Code: Select all

	void PHFlash(const double P,const double H,const int nComp,const double *Z,double *T) override {
		//P-H flash
		vscalar.SetDoubleAt(0,H);
		HRESULT hr=mat->SetOverallProp(enthalpy,mole,vscalar.Value());
		if (FAILED(hr)) throw COException(L"Failed to set enthalpy at material object: "+CO_Error(mat,hr));
		//get temperature
		if (T) *T=GetTemperature();
	}

Code: Select all

Public Sub SetOverallProp(ByVal [property] As String, ByVal basis As String, ByVal values As Object) Implements ICapeThermoMaterial.SetOverallProp
            Me.SetSinglePhaseProp([property], "Overall", basis, values)
End Sub

Code: Select all

Public Sub SetSinglePhaseProp(ByVal [property] As String, ByVal phaseLabel As String, ByVal basis As String, ByVal values As Object) Implements ICapeThermoMaterial.SetSinglePhaseProp
    ...
End Sub