summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Wagner Oliveira de Medeiros2023-08-21 07:50:37 -0400
committerDaniel Wagner Oliveira de Medeiros2023-08-21 07:50:37 -0400
commitd50930924532f17c1ef8a08adc3f34f1193be84d (patch)
treeea0f1e88e78e1d5ea6ed62aef09fc7fe45ecc3c5
parent28b8d5f9d57bb86e25b4105702f94f15bb456e8f (diff)
downloadcrude-characterization-plugin-DWSIM-d50930924532f17c1ef8a08adc3f34f1193be84d.tar.gz
crude-characterization-plugin-DWSIM-d50930924532f17c1ef8a08adc3f34f1193be84d.tar.bz2
crude-characterization-plugin-DWSIM-d50930924532f17c1ef8a08adc3f34f1193be84d.zip
update
-rw-r--r--Characterization/Form1.vb10
1 files changed, 0 insertions, 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