Function AllocateToMathcadArray

wrappers/MathCAD/CoolPropMathcad.cpp:118–148

Helper: allocate Mathcad array and copy a vector-of-vectors into its real part

// Helper: allocate Mathcad array and copy a vector-of-vectors into its real part
static LRESULT AllocateToMathcadArray(LPCOMPLEXARRAY dest, const std::vector<std::vector<double>>& Vec) {
    // Expect Vec to be non-empty (caller checks ValidNumber(Vec[0][0]) earlier)
    const size_t rows = Vec.size();
    const size_t cols = (rows > 0) ? Vec[0].size() : 0;

    // Make sure dest is an actual pointer before trying to allocate memory for it
    if (dest == nullptr) {
        return MAKELRESULT(INSUFFICIENT_MEMORY, 0);  // Return error if dest is not a valid pointer
    }

    // Allocate Mathcad array memory (real part only)
    if (!MathcadArrayAllocate(dest,
                              static_cast<int>(rows),  // rows = number of output variables
                              static_cast<int>(cols),  // cols = number of input values
                              TRUE,                    // allocate memory for the real part
                              FALSE))                  // do not allocate memory for the imaginary part
    {
        return MAKELRESULT(INSUFFICIENT_MEMORY, 1);
    }

    // Copy contents into the allocated real matrix
    for (size_t irow = 0; irow < rows; ++irow) {
        const auto& row = Vec[irow];
        // Assume each inner vector has 'cols' elements (consistent with PropsSImulti contract)
        for (size_t icol = 0; icol < cols; ++icol) {
            dest->hReal[icol][irow] = row[icol];  // Note the indexing order for Mathcad arrays: hReal[column][row]
        }
    }

    return 0;
}

// Helper: Get IEEE 754 double precision NaN value for returning in case of errors in array outputs
static double get_nan() {