Function CP_HAPropsSI

wrappers/MathCAD/CoolPropMathcad.cpp:607–651

This code executes the user function CP_HAPropsSI, which is a wrapper for the CoolProp.HAPropsSI() function, used to extract humid air properties in base-SI units

// This code executes the user function CP_HAPropsSI, which is a wrapper for
// the CoolProp.HAPropsSI() function, used to extract humid air properties in base-SI units
static LRESULT CP_HAPropsSI(LPCOMPLEXSCALAR Prop,         // pointer to the result
                            LPCMCSTRING OutputName,       // string with a valid CoolProp Output Name
                            LPCMCSTRING InputName1,       // CoolProp InputName1
                            LPCCOMPLEXSCALAR InputProp1,  // CoolProp InputProp1
                            LPCMCSTRING InputName2,       // CoolProp InputName2
                            LPCCOMPLEXSCALAR InputProp2,  // CoolProp InputProp2
                            LPCMCSTRING InputName3,       // CoolProp InputName3
                            LPCCOMPLEXSCALAR InputProp3)  // CoolProp InputProp3
{
    unsigned int errPos = 0;
    std::string OutName(OutputName->str);
    OutName = "[" + OutName + "]";
    std::string Prop1Name(InputName1->str);
    Prop1Name = "[" + Prop1Name + "]";
    std::string Prop2Name(InputName2->str);
    Prop2Name = "[" + Prop2Name + "]";
    std::string Prop3Name(InputName3->str);
    Prop3Name = "[" + Prop3Name + "]";

    // check that the 3 scalar arguments are real or throw error using inline helper function above
    LRESULT r = CheckRealOrError(InputProp1, 3);
    if (r) return r;

    r = CheckRealOrError(InputProp2, 5);
    if (r) return r;

    r = CheckRealOrError(InputProp3, 7);
    if (r) return r;

    // pass the arguments to the HumidAirProp.HAProps() function
    Prop->real =
      HumidAir::HAPropsSI(OutputName->str, InputName1->str, InputProp1->real, InputName2->str, InputProp2->real, InputName3->str, InputProp3->real);

    // Note: HAPropsSI does not throw exceptions, but instead
    // sets global parameter "errstring" and returns _HUGE.
    // Use ValidNumber(val) to see if HAPropsSI failed with an error message...
    if (!ValidNumber(Prop->real)) {
        std::string emsg = CoolProp::get_global_param_string("errstring");
        CoolProp::set_error_string(emsg);  // reset error string so Mathcad can retrieve it
        return HandleHAPropsSIError(emsg, OutName, Prop1Name, Prop2Name, Prop3Name);
    }

    // normal return
    return 0;
}

// ********************************************************************************************************
//   Pseudo-Low-Level Functions for mixture information & settings