Option
Explicit
Public
Declare
<strong>
Sub
rp_setup
Lib
</strong>
"NISTRefprop.dll"
_
(nc
As
Long
, hfiles()
As
String
,
ByVal
hfmix
As
String
,
ByVal
hrf
As
String
, ierr
As
Long
,
ByVal
herr
As
String
)
Public
Declare
Sub
rp_setmod
Lib
"NISTRefprop.dll"
_
(nc
As
Long
,
ByVal
htype
As
String
,
ByVal
hmix
As
String
, hcomp()
As
String
, ierr
As
Long
,
ByVal
herr
As
String
)
Public
Declare
Sub
rp_setktv
Lib
"NISTRefprop.dll"
_
(icomp
As
Long
, jcomp
As
Long
,
ByVal
hmodij
As
String
, fij
As
Double
,
ByVal
hfmix
As
String
, ierr
As
Long
,
ByVal
herr
As
String
)
Public
Declare
Sub
rp_setref
Lib
"NISTRefprop.dll"
_
(
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
)
Public
Declare
Sub
rp_getktv
Lib
"NISTRefprop.dll"
_
(icomp
As
Long
, jcomp
As
Long
,
ByVal
hmodij
As
String
, fij
As
Double
,
ByVal
hfmix
As
String
, hfij()
As
String
,
ByVal
hbinp
As
String
,
ByVal
hbmxrul
As
String
)