Function HAPropsSI

wrappers/Mathematica/CoolPropMathematica.cpp:52–73

}

extern "C" DLLEXPORT int HAPropsSI(WolframLibraryData libData, mint Argc, MArgument* Args, MArgument Res) {
    if (Argc != 7) return LIBRARY_FUNCTION_ERROR;

    char* Output = MArgument_getUTF8String(Args[0]);
    char* Name1 = MArgument_getUTF8String(Args[1]);
    double Prop1 = MArgument_getReal(Args[2]);
    char* Name2 = MArgument_getUTF8String(Args[3]);
    double Prop2 = MArgument_getReal(Args[4]);
    char* Name3 = MArgument_getUTF8String(Args[5]);
    double Prop3 = MArgument_getReal(Args[6]);

    double val = HumidAir::HAPropsSI(Output, Name1, Prop1, Name2, Prop2, Name3, Prop3);

    libData->UTF8String_disown(Output);
    libData->UTF8String_disown(Name1);
    libData->UTF8String_disown(Name2);
    libData->UTF8String_disown(Name3);

    MArgument_setReal(Res, val);

    return LIBRARY_NO_ERROR;
}