PropsSI= LibraryFunctionLoad["CoolProp","PropsSI",{UTF8String,UTF8String,Real,UTF8String,Real,UTF8String},Real];
PropsSI["T","P",101325,"Q",1,"Water"]
LibraryFunctionUnload[PropsSI]

HAPropsSI= LibraryFunctionLoad["CoolProp","HAPropsSI",{UTF8String,UTF8String,Real,UTF8String,Real,UTF8String,Real},Real];
HAPropsSI["W","T",300,"P",101325,"R",0.5]
LibraryFunctionUnload[HAPropsSI]