Function PropsSI

wrappers/Mathematica/CoolPropMathematica.cpp:30–50

}

extern "C" DLLEXPORT int PropsSI(WolframLibraryData libData, mint Argc, MArgument* Args, MArgument Res) {
    if (Argc != 6) 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* FluidName = MArgument_getUTF8String(Args[5]);

    double val = CoolProp::PropsSI(Output, Name1, Prop1, Name2, Prop2, FluidName);

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

    MArgument_setReal(Res, val);

    return LIBRARY_NO_ERROR;
}

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