link("libCoolProp.so", "propssi_", "c")

function out = PropsSI(output, input1, value1, input2, value2, name)
    out = call("propssi_",..
        output, 1, "c",..
        input1, 2, "c",..
        value1, 3, "d",..
        input2, 4, "c",..
        value2, 5, "d",..
        name, 6, "c",..
        "out", [1,1], 7, "d")
endfunction