From d50930924532f17c1ef8a08adc3f34f1193be84d Mon Sep 17 00:00:00 2001 From: Daniel Wagner Oliveira de Medeiros Date: Mon, 21 Aug 2023 07:50:37 -0400 Subject: update --- Characterization/Form1.vb | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/Characterization/Form1.vb b/Characterization/Form1.vb index 2c6e78b..9a6a50f 100644 --- a/Characterization/Form1.vb +++ b/Characterization/Form1.vb @@ -505,11 +505,6 @@ Public Class Form1 If frm.Options.PropertyPackages.Count > 0 Then pp = frm.Options.SelectedPropertyPackage - If TypeOf pp Is DWSIM.Thermodynamics.PropertyPackages.PengRobinsonPropertyPackage Then - DirectCast(pp, DWSIM.Thermodynamics.PropertyPackages.PengRobinsonPropertyPackage).m_pr.BIPChanged = True - ElseIf TypeOf pp Is DWSIM.Thermodynamics.PropertyPackages.SRKPropertyPackage Then - DirectCast(pp, DWSIM.Thermodynamics.PropertyPackages.SRKPropertyPackage).m_pr.BIPChanged = True - End If Else pp = New DWSIM.Thermodynamics.PropertyPackages.PengRobinsonPropertyPackage() End If @@ -624,11 +619,6 @@ Public Class Form1 ms.SetFlowsheet(frm) If frm.Options.PropertyPackages.Count > 0 Then ms.PropertyPackage = frm.Options.SelectedPropertyPackage - If TypeOf ms.PropertyPackage Is DWSIM.Thermodynamics.PropertyPackages.PengRobinsonPropertyPackage Then - DirectCast(ms.PropertyPackage, DWSIM.Thermodynamics.PropertyPackages.PengRobinsonPropertyPackage).m_pr.BIPChanged = True - ElseIf TypeOf ms.PropertyPackage Is DWSIM.Thermodynamics.PropertyPackages.SRKPropertyPackage Then - DirectCast(ms.PropertyPackage, DWSIM.Thermodynamics.PropertyPackages.SRKPropertyPackage).m_pr.BIPChanged = True - End If Else ms.PropertyPackage = New DWSIM.Thermodynamics.PropertyPackages.PengRobinsonPropertyPackage() End If -- cgit