Attribute VB_Name = "Module1"

Option Explicit

Public Declare Sub SETUPdll Lib "Refprop" (i As Long, ByVal hfld As String, ByVal hfmix As String, ByVal hrf As String, ierr As Long, ByVal herr As String, ln1 As Long, ln2 As Long, ln3 As Long, ln4 As Long)
Public Declare Sub SETREFdll Lib "Refprop" (ByVal hrf As String, ixflag As Long, x0 As Double, h0 As Double, s0 As Double, t0 As Double, p0 As Double, ierr As Long, ByVal herr As String, ln1 As Long, ln2 As Long)
Public Declare Sub SETMODdll Lib "Refprop" (i As Long, ByVal htype As String, ByVal hmix As String, ByVal hcomp As String, ierr As Long, ByVal herr As String, ln1 As Long, ln2 As Long, ln3 As Long, ln4 As Long)
Public Declare Sub TPRHOdll Lib "Refprop" (t As Double, p As Double, x As Double, j As Long, i As Long, d As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub THERM2dll Lib "Refprop" (t As Double, d As Double, x As Double, p As Double, e As Double, h As Double, s As Double, cv As Double, cp As Double, w As Double, z As Double, hjt As Double, aH As Double, g As Double, xkappa As Double, beta As Double, dPdD As Double, d2PdD2 As Double, dPdT As Double, dDdT As Double, dDdP As Double, spare1 As Double, spare2 As Double, spare3 As Double, spare4 As Double)
Public Declare Sub THERMdll Lib "Refprop" (t As Double, d As Double, x As Double, p As Double, e As Double, h As Double, s As Double, cv As Double, cp As Double, w As Double, hjt As Double)
Public Declare Sub ENTROdll Lib "Refprop" (t As Double, d As Double, x As Double, s As Double)
Public Declare Sub ENTHALdll Lib "Refprop" (t As Double, d As Double, x As Double, h As Double)
Public Declare Sub CVCPdll Lib "Refprop" (t As Double, d As Double, x As Double, cv As Double, cp As Double)
Public Declare Sub PRESSdll Lib "Refprop" (t As Double, d As Double, x As Double, p As Double)
Public Declare Sub AGdll Lib "Refprop" (t As Double, d As Double, x As Double, a As Double, g As Double)

Public Declare Sub DPDDdll Lib "Refprop" (t As Double, rho As Double, x As Double, dPdD As Double)
Public Declare Sub DPDD2dll Lib "Refprop" (t As Double, rho As Double, x As Double, d2PdD2 As Double)
Public Declare Sub DPDTdll Lib "Refprop" (t As Double, rho As Double, x As Double, dPdT As Double)
Public Declare Sub DDDPdll Lib "Refprop" (t As Double, rho As Double, x As Double, dDdP As Double)
Public Declare Sub DDDTdll Lib "Refprop" (t As Double, rho As Double, x As Double, dDdT As Double)
Public Declare Sub DHDTdll Lib "Refprop" (t As Double, rho As Double, x As Double, dHdT As Double)


Public Declare Sub SATTdll Lib "Refprop" (t As Double, x As Double, i As Long, p As Double, Dl As Double, Dv As Double, xliq As Double, xvap As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub SATPdll Lib "Refprop" (p As Double, x As Double, i As Long, t As Double, Dl As Double, Dv As Double, xliq As Double, xvap As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub SATDdll Lib "Refprop" (d As Double, x As Double, kph As Long, kr As Long, t As Double, p As Double, Dl As Double, Dv As Double, xliq As Double, xvap As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub SATHdll Lib "Refprop" (h As Double, x As Double, kph As Long, nroot As Long, k1 As Long, t1 As Double, p1 As Double, d1 As Double, k2 As Long, t2 As Double, p2 As Double, d2 As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub SATSdll Lib "Refprop" (s As Double, x As Double, kph As Long, nroot As Long, k1 As Long, t1 As Double, p1 As Double, d1 As Double, k2 As Long, t2 As Double, p2 As Double, d2 As Double, k3 As Long, t3 As Double, p3 As Double, d3 As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub TPFLSHdll Lib "Refprop" (t As Double, p As Double, x As Double, d As Double, Dl As Double, Dv As Double, xliq As Double, xvap As Double, q As Double, e As Double, h As Double, s As Double, cv As Double, cp As Double, w As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub TDFLSHdll Lib "Refprop" (t As Double, d As Double, x As Double, p As Double, Dl As Double, Dv As Double, xliq As Double, xvap As Double, q As Double, e As Double, h As Double, s As Double, cv As Double, cp As Double, w As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub PDFLSHdll Lib "Refprop" (p As Double, d As Double, x As Double, t As Double, Dl As Double, Dv As Double, xliq As Double, xvap As Double, q As Double, e As Double, h As Double, s As Double, cv As Double, cp As Double, w As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub PHFLSHdll Lib "Refprop" (p As Double, h As Double, x As Double, t As Double, d As Double, Dl As Double, Dv As Double, xliq As Double, xvap As Double, q As Double, e As Double, s As Double, cv As Double, cp As Double, w As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub PSFLSHdll Lib "Refprop" (p As Double, s As Double, x As Double, t As Double, d As Double, Dl As Double, Dv As Double, xliq As Double, xvap As Double, q As Double, e As Double, h As Double, cv As Double, cp As Double, w As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub PEFLSHdll Lib "Refprop" (p As Double, e As Double, x As Double, t As Double, d As Double, Dl As Double, Dv As Double, xliq As Double, xvap As Double, q As Double, h As Double, s As Double, cv As Double, cp As Double, w As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub THFLSHdll Lib "Refprop" (t As Double, h As Double, x As Double, i As Long, p As Double, d As Double, Dl As Double, Dv As Double, xliq As Double, xvap As Double, q As Double, e As Double, s As Double, cv As Double, cp As Double, w As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub TSFLSHdll Lib "Refprop" (t As Double, s As Double, x As Double, i As Long, p As Double, d As Double, Dl As Double, Dv As Double, xliq As Double, xvap As Double, q As Double, e As Double, h As Double, cv As Double, cp As Double, w As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub TEFLSHdll Lib "Refprop" (t As Double, e As Double, x As Double, i As Long, p As Double, d As Double, Dl As Double, Dv As Double, xliq As Double, xvap As Double, q As Double, h As Double, s As Double, cv As Double, cp As Double, w As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub DHFLSHdll Lib "Refprop" (d As Double, h As Double, x As Double, t As Double, p As Double, Dl As Double, Dv As Double, xliq As Double, xvap As Double, q As Double, e As Double, s As Double, cv As Double, cp As Double, w As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub DSFLSHdll Lib "Refprop" (d As Double, s As Double, x As Double, t As Double, p As Double, Dl As Double, Dv As Double, xliq As Double, xvap As Double, q As Double, e As Double, h As Double, cv As Double, cp As Double, w As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub DEFLSHdll Lib "Refprop" (d As Double, e As Double, x As Double, t As Double, p As Double, Dl As Double, Dv As Double, xliq As Double, xvap As Double, q As Double, h As Double, s As Double, cv As Double, cp As Double, w As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub HSFLSHdll Lib "Refprop" (h As Double, s As Double, z As Double, t As Double, p As Double, d As Double, Dl As Double, Dv As Double, xliq As Double, xvap As Double, q As Double, e As Double, cv As Double, cp As Double, w As Double, ierr As Long, ByVal herr As String, ln As Long)

Public Declare Sub TQFLSHdll Lib "Refprop" (t As Double, q As Double, x As Double, kq As Long, p As Double, d As Double, Dl As Double, Dv As Double, xliq As Double, xvap As Double, e As Double, h As Double, s As Double, cv As Double, cp As Double, w As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub PQFLSHdll Lib "Refprop" (p As Double, q As Double, x As Double, kq As Long, t As Double, d As Double, Dl As Double, Dv As Double, xliq As Double, xvap As Double, e As Double, h As Double, s As Double, cv As Double, cp As Double, w As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub ABFL1dll Lib "Refprop" (a As Double, b As Double, x As Double, i As Long, ByVal ab As String, dmin As Double, dmax As Double, t As Double, p As Double, d As Double, ierr As Long, ByVal herr As String, ln1 As Long, ln2 As Long)
Public Declare Sub ABFL2dll Lib "Refprop" (a As Double, b As Double, x As Double, kq As Long, ksat As Long, ByVal ab As String, tbub As Double, tdew As Double, pbub As Double, pdew As Double, Dlbub As Double, Dvdew As Double, ybub As Double, xdew As Double, t As Double, p As Double, Dl As Double, Dv As Double, x As Double, y As Double, q As Double, ierr As Long, ByVal herr As String, ln As Long, ln2 As Long)
Public Declare Sub DBFL2dll Lib "Refprop" (d As Double, b As Double, x As Double, i As Long, ByVal ab As String, t As Double, p As Double, Dl As Double, Dv As Double, xliq As Double, xvap As Double, q As Double, ierr As Long, ByVal herr As String, ln As Long, ln2 As Long)

Public Declare Sub CRITPdll Lib "Refprop" (x As Double, tc As Double, pc As Double, dc As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub VIRBdll Lib "Refprop" (t As Double, x As Double, b As Double)
Public Declare Sub DBDTdll Lib "Refprop" (t As Double, x As Double, dbt As Double)
Public Declare Sub VIRCdll Lib "Refprop" (t As Double, x As Double, c As Double)
Public Declare Sub TRNPRPdll Lib "Refprop" (t As Double, d As Double, x As Double, eta As Double, tcx As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub FGCTYdll Lib "Refprop" (t As Double, d As Double, x As Double, f As Double)
Public Declare Sub DIELECdll Lib "Refprop" (t As Double, d As Double, x As Double, de As Double)
Public Declare Sub SURFTdll Lib "Refprop" (t As Double, d As Double, x As Double, sigma As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub SURTENdll Lib "Refprop" (t As Double, rhol As Double, rhov As Double, xl As Double, xv As Double, sigma As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub MELTTdll Lib "Refprop" (t As Double, x As Double, p As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub MELTH2Odll Lib "Refprop" (t As Double, p1 As Double, p2 As Double)
Public Declare Sub MELTPdll Lib "Refprop" (p As Double, x As Double, t As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub SUBLTdll Lib "Refprop" (t As Double, x As Double, p As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub SUBLPdll Lib "Refprop" (p As Double, x As Double, t As Double, ierr As Long, ByVal herr As String, ln As Long)


Public Declare Sub WMOLdll Lib "Refprop" (x As Double, wm As Double)
Public Declare Sub XMASSdll Lib "Refprop" (xmol As Double, xkg As Double, wmix As Double)
Public Declare Sub XMOLEdll Lib "Refprop" (xkg As Double, xmol As Double, wmix As Double)
Public Declare Sub QMASSdll Lib "Refprop" (qmol As Double, xl As Double, xv As Double, qkg As Double, xlkg As Double, xvkg As Double, wliq As Double, wvap As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub QMOLEdll Lib "Refprop" (qkg As Double, xlkg As Double, xvkg As Double, qmol As Double, xl As Double, xv As Double, wliq As Double, wvap As Double, ierr As Long, ByVal herr As String, ln As Long)
Public Declare Sub INFOdll Lib "Refprop" (icomp As Long, wmm As Double, ttrp As Double, tnbpt As Double, tc As Double, pc As Double, dc As Double, Zc As Double, acf As Double, dip As Double, Rgas As Double)
Public Declare Sub LIMITXdll Lib "Refprop" (ByVal htyp As String, t As Double, d As Double, p As Double, x As Double, tmin As Double, tmax As Double, dmax As Double, pmax As Double, ierr As Long, ByVal herr As String, ln1 As Long, ln2 As Long)
Public Declare Sub LIMITKdll Lib "Refprop" (ByVal htyp As String, icomp As Long, t As Double, d As Double, p As Double, tmin As Double, tmax As Double, dmax As Double, pmax As Double, ierr As Long, ByVal herr As String, ln1 As Long, ln2 As Long)

Public Declare Sub SETKTVdll Lib "Refprop" (icomp As Long, jcomp As Long, ByVal hmodij As String, fij As Double, ByVal hfmix As String, ierr As Long, ByVal herr As String, ln1 As Long, ln2 As Long, ln3 As Long)
Public Declare Sub GETKTVdll Lib "Refprop" (icomp As Long, jcomp As Long, ByVal hmodij As String, fij As Double, ByVal hfmix As String, ByVal hfij As String, ByVal hbinp As String, ByVal hmxrul As String, ln1 As Long, ln2 As Long, ln3 As Long, ln4 As Long, ln5 As Long)
Public Declare Sub GETFIJdll Lib "Refprop" (ByVal hmodij As String, fij As Double, ByVal hfij As String, ByVal hmxrul As String, ln1 As Long, ln2 As Long, ln3 As Long)


Public Const MaxComps As Integer = 20

Public herr As String * 255, hfmix As String * 255, htyp As String * 3
Public hrf As String * 3
Public htype As String * 3, hmix As String * 3, hcomp As String * 255
Public hfld As String * 10000, nc As Long
Public x(1 To MaxComps) As Double, xmm(1 To MaxComps) As Double
Public xliq(1 To MaxComps) As Double, xvap(1 To MaxComps) As Double
Public xv(1 To MaxComps) As Double, rhov As Double, hv As Double
Public ierr As Long, kq As Long, kr As Long, nroot As Long, ix As Long
Public t As Double, p As Double, d As Double, Dl As Double, Dv As Double, q As Double, wm As Double
Public e As Double, h As Double, s As Double, cv As Double, cp As Double, w As Double
Public z As Double, hjt As Double, a As Double, g As Double, xkappa As Double, beta As Double, dPdD As Double, d2PdD2 As Double, dPdT As Double, dDdT As Double, dDdP As Double, spare1 As Double, spare2 As Double, spare3 As Double, spare4 As Double
Public b As Double, c As Double, de As Double, eta As Double, tcx As Double, hvap As Double
Public tmin As Double, tmax As Double, dmax As Double, pmax As Double
Public tc As Double, pc As Double, dc As Double
Public Tref As Double, pref As Double, hRef As Double, sRef As Double
Public f(1 To MaxComps) As Double, sigma As Double
Public k1 As Long, k2 As Long, k3 As Long
Public t1 As Double, p1 As Double, d1 As Double
Public t2 As Double, p2 As Double, d2 As Double
Public t3 As Double, p3 As Double, d3 As Double
Public wmm As Double, ttrp As Double, tnbpt As Double, Zc As Double, acf As Double, dip As Double, Rgas As Double

Sub Example()
  'Pure fluid:
  nc = 1