cpp_python_funct.cpp

Go to the documentation of this file.

//Copyright>    OpenRadioss
//Copyright>    Copyright (C) 1986-2025 Altair Engineering Inc.
//Copyright>
//Copyright>    This program is free software: you can redistribute it and/or modify
//Copyright>    it under the terms of the GNU Affero General Public License as published by
//Copyright>    the Free Software Foundation, either version 3 of the License, or
//Copyright>    (at your option) any later version.
//Copyright>
//Copyright>    This program is distributed in the hope that it will be useful,
//Copyright>    but WITHOUT ANY WARRANTY; without even the implied warranty of
//Copyright>    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
//Copyright>    GNU Affero General Public License for more details.
//Copyright>
//Copyright>    You should have received a copy of the GNU Affero General Public License
//Copyright>    along with this program.  If not, see <https://www.gnu.org/licenses/>.
//Copyright>
//Copyright>
//Copyright>    Commercial Alternative: Altair Radioss Software
//Copyright>
//Copyright>    As an alternative to this open-source version, Altair also offers Altair Radioss
//Copyright>    software under a commercial license.  Contact Altair to discuss further if the
//Copyright>    commercial version may interest you: https://www.altair.com/radioss/.
//
#include <iostream>
#include <fstream>
#include <string>
#include <sstream>
#include <cstring>
#include <vector>
#include <set>
#include <map>
#include <regex>
#include <iomanip>
#include <limits>
#ifndef PYTHON_DISABLED
#ifdef _WIN32
/* Windows includes */
#define NOMINMAX
#include <windows.h>
#else
#include <dlfcn.h>
#include <dirent.h>
#endif
 
#ifdef MYREAL8
// double precision define my_real as double
typedef double my_real;
#else
typedef float my_real;
#endif
 
#include "cpp_python_funct.h"
#include "cpp_python_sampling.h"
#include "python_signal.h"
 
// Note on the python library used:
//
//- We check that RAD_PYTHON_PATH is defined and that it points to a valid python library. This variable must contain the full path of the *.[so|dll] file
// - if the previous check fails, we check that PYTHONHOME is defined and that it points to a valid python library (that contains /lib/libpython*.[so|dll]])
// - For Linux if the previous check fails, we look for a python library in the default locations (LD_LIBRARY_PATH)
 
// load a function from a dynamic library
#ifdef _WIN32
HMODULE handle = NULL;
HMODULE python_exec = NULL;
#else
void *handle = nullptr;
#endif
 
// global variables
PyObject *pDict = nullptr;
bool python_initialized = false;
bool sync_enabled = false; // if true, the python function "sync" will be called at each time step
// Persistent Python dictionary
 
// user ids of the nodes that are used in the python functions
std::set<int> nodes_uid;
// mapping between user ids and local ids
std::map<int, int> nodes_uid_to_local_id;
KeywordPairs element_variables;
static PyObject *persistent_dict = nullptr;
static PyObject *persistent_arg = nullptr;
 
 
template <std::size_t N>
std::string element_parenthesis_to_underscore(const std::string &input, const std::array<const char *, N> &keywords)
{
    std::string output = input;
    for (const auto &keyword : keywords)
    {
        std::regex pattern(std::string(keyword) + R"(\‍(\s*(\d+)\s*\))");
        output = std::regex_replace(output, pattern, std::string(keyword) + "_$1");
    }
    return output;
}
 
std::string node_parenthesis_to_underscore(const std::string &input)
{
    std::regex pattern(R"(\b(DX|DY|DZ|AX|AY|AZ|CX|CY|CZ|VX|VY|VZ|ARX|ARY|ARZ|VRX|VRY|VRZ|DRX|DRY|DRZ|MONVOL_VOL|MONVOL_T|MONVOL_A|MONVOL_P)\b\s*\‍(\s*(\d+|ACTIVE_NODE)\s*\))");
    std::string result = std::regex_replace(input, pattern, "$1_$2");
    return result;
}
 
std::string parenthesis_to_underscore(const std::string &input)
{
    std::string result = node_parenthesis_to_underscore(input);
    return element_parenthesis_to_underscore(result, ELEMENT_KEYWORDS);
}
 
// Function to extract numbers based on the pattern and fill the global set
void extract_node_uid(const std::string &input)
{
    //    Coordinates     CX_n,  CY_n,  CZ_n
    //    Displacement    DX_n,  DY_n,  DZ_n
    //    Acceleration    AX_n,  AY_n,  AZ_n
    //    DisplacementR  DRX_n, DRY_n, DRZ_n
    //    Velocity        VX_n,  VY_n , VZ_n
    //    VelocityR      VRX_n, VRY_n, VRZ_n
    //    AccelerationR  ARX_n, ARY_n, ARZ_n
    // Regex pattern: non-alphanumeric or start of line, followed by A[XYZ] and underscore and numbers
    // std::cout<<"input: "<<input<<std::endl;
    std::regex pattern(R"((?:[^a-zA-Z0-9]|^)[ACDV][R]*[XYZ]_[0-9]+)");
 
    auto begin = std::sregex_iterator(input.begin(), input.end(), pattern);
    auto end = std::sregex_iterator();
 
    for (auto i = begin; i != end; ++i)
    {
 
        auto match = *i;
        std::string match_str = match.str();
        size_t underscore_pos = match_str.find('_');
        if (underscore_pos != std::string::npos)
        {
            int number = std::stoi(match_str.substr(underscore_pos + 1));
            nodes_uid.insert(number);
        }
    }
}
 
// Function to extract unique pairs of <int id, const char * keyword> from the string
void extract_element_keywords(const std::string &input)
{
    for (const auto &keyword : ELEMENT_KEYWORDS)
    {
        // std::regex pattern(std::string(keyword) + R"(_(\d+))");
        std::regex pattern(std::string(R"((?:[^a-zA-Z0-9]|^))") + std::string(keyword) + R"(_(\d+))");
        auto words_begin = std::sregex_iterator(input.begin(), input.end(), pattern);
        auto words_end = std::sregex_iterator();
        for (std::sregex_iterator i = words_begin; i != words_end; ++i)
        {
            std::smatch match = *i;
            int id = std::stoi(match.str(1));
            element_variables.emplace(id, keyword);
            // std::cout<<"[PYTHON] keyword found: "<<keyword<<" id: "<<id<<std::endl;
        }
    }
}
 
// Here is the list of the function that are loaded from the Python library
// The template is there only to have one version of the code for both Windows and Linux
template <typename T>
void load_functions(T h, bool &python_initialized)
{
    python_initialized = true;
    load_function(h, "Py_Initialize", My_Initialize, python_initialized);
    load_function(h, "Py_IsInitialized", My_IsInitialized, python_initialized);
    load_function(h, "Py_Finalize", My_Finalize, python_initialized);
    load_function(h, "PyDict_GetItemString", MyDict_GetItemString, python_initialized);
    load_function(h, "PyCallable_Check", MyCallable_Check, python_initialized);
    load_function(h, "PyTuple_New", MyTuple_New, python_initialized);
    load_function(h, "PyFloat_FromDouble", MyFloat_FromDouble, python_initialized);
    load_function(h, "PyObject_CallObject", MyObject_CallObject, python_initialized);
    load_function(h, "PyImport_AddModule", MyImport_AddModule, python_initialized);
    load_function(h, "PyModule_GetDict", MyModule_GetDict, python_initialized);
    load_function(h, "PyRun_SimpleString", MyRun_SimpleString, python_initialized);
    load_function(h, "PyTuple_SetItem", MyTuple_SetItem, python_initialized);
    load_function(h, "PyList_SetItem", MyList_SetItem, python_initialized);
    load_function(h, "Py_DecRef", My_DecRef, python_initialized);
    load_function(h, "Py_IncRef", My_IncRef, python_initialized);
    load_function(h, "PyFloat_AsDouble", MyFloat_AsDouble, python_initialized);
    load_function(h, "PyDict_SetItemString", MyDict_SetItemString, python_initialized);
    load_function(h, "PyErr_Fetch", MyErr_Fetch, python_initialized);
    load_function(h, "PyErr_Display", MyErr_Display, python_initialized);
    load_function(h, "PyErr_Occurred", MyErr_Occurred, python_initialized);
    load_function(h, "PyObject_Str", MyObject_Str, python_initialized);
    load_function(h, "PyUnicode_AsUTF8", MyUnicode_AsUTF8, python_initialized);
    load_function(h, "PyDict_New", MyDict_New, python_initialized);
    load_function(h, "PyList_New", MyList_New, python_initialized);
    load_function(h, "PyErr_Clear", MyErr_Clear, python_initialized);
    load_function(h, "PyLong_FromLong", MyLong_FromLong, python_initialized);
    load_function(h, "PyLong_FromVoidPtr", MyLong_FromVoidPtr, python_initialized);
    load_function(h, "PyUnicode_FromString", MyUnicode_FromString, python_initialized);
    load_function(h, "PyEval_SaveThread", MyEval_SaveThread, python_initialized);
    load_function(h, "PyEval_RestoreThread", MyEval_RestoreThread, python_initialized);
    load_function(h, "PyGILState_Ensure", MyGILState_Ensure, python_initialized);
    load_function(h, "PyGILState_Release", MyGILState_Release, python_initialized);
}
 
 
void exit_with_message(const char *message)
{
    std::cout << message << std::endl;
    std::cerr << message << std::endl;
    My_Finalize();
    exit(1);
}
 
void check_error(int line_number)
{
            if (MyErr_Occurred())
            {
                //std::cout<<"Error at line: "<<line_number<<std::endl;
                // Fetch the error
                PyObject *pType = nullptr, *pValue = nullptr, *pTraceback = nullptr;
                MyErr_Fetch(&pType, &pValue, &pTraceback);
                if (pType)
                    std::cout<<"[PYTHON]"<< MyUnicode_AsUTF8(MyObject_Str(pType)) << std::endl;
                if (pValue)
                    std::cout<<"[PYTHON]"<< MyUnicode_AsUTF8(MyObject_Str(pValue)) << std::endl;
                if (pTraceback)
                    std::cout<<"[PYTHON]"<< MyUnicode_AsUTF8(MyObject_Str(pTraceback)) << std::endl;
 
                // Print the error
                //MyErr_Display(pType, pValue, pTraceback);
                // Decrement reference counts for the error objects
                My_DecRef(pType);
                My_DecRef(pValue);
                My_DecRef(pTraceback);
                exit_with_message("ERROR: Python function failed");
            }
}
 
void python_signal_handler(int signum) {
    std::cout << "[PYTHON] Caught signal " << signum << std::endl;
    std::cerr << "[PYTHON] Caught signal " << signum << std::endl;
    //How to flush the output buffers before exiting
    std::cout << std::flush;
    std::cerr << std::flush;
    std::cerr.flush();
    std::cout.flush();
    //My_Finalize();
    std::exit(signum);
}
 
 
// Call a Python function with a persistent dictionary as its only argument
PyObject *call_python_function_with_state(const char *func_name)
{
    PyObject *pFunc, *pValue;
    activate_signal_handling(python_signal_handler);
    // Retrieve the Python function from the module dictionary
    pFunc = static_cast<PyObject *>(MyDict_GetItemString(pDict, func_name));
    if (MyCallable_Check(pFunc))
    {
        // Initialize persistent dictionary on the first call
        if (!persistent_dict)
        {
            persistent_dict = MyDict_New();
            if (!persistent_dict)
            {
                std::cout << "ERROR: Failed to create persistent dictionary." << std::endl;
                return nullptr;
            }
            // Create a tuple to hold the single dictionary argument
            persistent_arg = static_cast<PyObject *>(MyTuple_New(1)); // Only 1 argument: the dictionary
            if (!persistent_arg)
            {
                std::cout << "ERROR: Failed to create argument tuple." << std::endl;
                return nullptr;
            }
 
            MyTuple_SetItem(persistent_arg, 0, persistent_dict); // Borrowed reference to persistent_dict Is this the problem????
        }
 
        // Set the dictionary in the tuple
 
        // Call the Python function
        pValue = static_cast<PyObject *>(MyObject_CallObject(pFunc, persistent_arg)); // segmentation fault here
 
        if (pValue != nullptr)
        {
            // Function executed successfully
            // Optionally handle the result (if required)
        }
        else
        {
            // Handle Python exception
            std::string func_name_str(func_name);
            std::cout << "ERROR in Python function " << func_name_str << ": function execution failed" << std::endl;
            if (MyErr_Occurred())
            {
                // Fetch the error details
                PyObject *pType, *pValue, *pTraceback;
                MyErr_Fetch(&pType, &pValue, &pTraceback);
                if (pType)
                    std::cout << "[PYTHON] " << MyUnicode_AsUTF8(MyObject_Str(pType)) << std::endl;
                if (pValue)
                    std::cout << "[PYTHON] " << MyUnicode_AsUTF8(MyObject_Str(pValue)) << std::endl;
                if (pTraceback)
                    std::cout << "[PYTHON]: " << MyUnicode_AsUTF8(MyObject_Str(pTraceback)) << std::endl;
 
                // Print the error
                //MyErr_Display(pType, pValue, pTraceback);
 
                // Decrement reference counts for error objects
                My_DecRef(pType);
                My_DecRef(pValue);
                My_DecRef(pTraceback);
                exit_with_message("ERROR: Python function failed");
            }
        }
        restore_default_signal_handling();
        return pValue;
    }
 
    std::cout << "ERROR in Python function: cannot call function: " << func_name << std::endl;
    return nullptr;
}
 
// call a python function with a list of arguments
PyObject *call_python_function(const char *func_name, double *args, int num_args)
{
    check_error(__LINE__);
    PyObject *pFunc, *pArgs, *pValue;
    pFunc = static_cast<PyObject *>(MyDict_GetItemString(pDict, func_name));
    if (MyCallable_Check(pFunc))
    {
        check_error(__LINE__);
        pArgs = static_cast<PyObject *>(MyTuple_New(num_args));
        for (size_t i = 0; i < num_args; i++)
        {
            MyTuple_SetItem(pArgs, i, static_cast<PyObject *>(MyFloat_FromDouble(args[i])));
        }
        check_error(__LINE__);
        pValue = static_cast<PyObject *>(MyObject_CallObject(pFunc, pArgs));
        check_error(__LINE__);
        My_DecRef(pArgs);
        if (pValue != nullptr)
        {
            // Function executed successfully
        }
        else
        {
            //  convert func_name to a string
            std::string func_name_str(func_name);
            std::cout << "ERROR in Python function " << func_name_str << ": function execution failed" << std::endl;
            if (MyErr_Occurred())
            {
                // Fetch the error
                PyObject *pType = nullptr, *pValue = nullptr, *pTraceback = nullptr;
                MyErr_Fetch(&pType, &pValue, &pTraceback);
                if (pType)
                    std::cout<<"[PYTHON]"<< MyUnicode_AsUTF8(MyObject_Str(pType)) << std::endl;
                if (pValue)
                    std::cout<<"[PYTHON]"<< MyUnicode_AsUTF8(MyObject_Str(pValue)) << std::endl;
                if (pTraceback)
                    std::cout<<"[PYTHON]"<< MyUnicode_AsUTF8(MyObject_Str(pTraceback)) << std::endl;
 
                // Print the error
                //MyErr_Display(pType, pValue, pTraceback);
                // Decrement reference counts for the error objects
                My_DecRef(pType);
                My_DecRef(pValue);
                My_DecRef(pTraceback);
                exit_with_message("ERROR: Python function failed");
            }
        }
 
        return pValue;
    }
    std::cout << "ERROR in Python function: cannot call function: " << func_name << std::endl;
    return nullptr;
}
// call a python function with a list of arguments
void call_python_function1D_vectors(const char *func_name, std::vector<double> & X, std::vector<double> & Y)
{
    PyObject *pFunc, *pArgs, *pValue;
    const int num_args = X.size();
    pFunc = static_cast<PyObject *>(MyDict_GetItemString(pDict, func_name));
    if (MyCallable_Check(pFunc))
    {
        for (size_t i = 0; i < num_args; i++)
        {
            pArgs = static_cast<PyObject *>(MyTuple_New(1));
            MyTuple_SetItem(pArgs, 0, static_cast<PyObject *>(MyFloat_FromDouble(X[i])));
            pValue = static_cast<PyObject *>(MyObject_CallObject(pFunc, pArgs));
            My_DecRef(pArgs);
 
            if (pValue != nullptr)
            {
                // Function executed successfully
                Y[i]= (MyFloat_AsDouble(pValue));
                My_DecRef(pValue);
            }
            else
            {
                MyErr_Clear();
                Y[i] = static_cast<double>(std::numeric_limits<float>::max());
            }
//           std::cout<<"X["<<i<<"] = "<<X[i]<<" Y["<<i<<"] = "<<Y[i]<<std::endl;
        }
    }
}
 
 
void python_execute_code(const std::string &code)
{
    MyRun_SimpleString(code.c_str());
    check_error(__LINE__);
}
 
// returns the function name from the function signature, or an empty string if the function name is not found
std::string extract_function_name(const std::string &signature)
{
    if (signature.substr(0, 3) != "def")
    {
        std::cout << "ERROR in Python function: signature does not start with 'def'" << std::endl;
        return "";
    }
    std::size_t startPos = signature.find_first_not_of(" ", 3);
    if (startPos == std::string::npos)
    {
        std::cout << "ERROR in Python function: function name not found" << std::endl;
        return "";
    }
    // Find the index of the opening parenthesis
    std::size_t endPos = signature.find("(", startPos);
    if (endPos == std::string::npos)
    {
        std::cout << "ERROR in Python function: opening parenthesis not found" << std::endl;
        return "";
    }
    // Extract the function name
    return signature.substr(startPos, endPos - startPos);
}
 
// Search for the Python library in the directory specified by the environment variable RAD_PYTHON_PATH
// If not found, look for PYTHONHOME and search for the library in PYTHONHOME/lib
#ifdef _WIN32
// Windows version
void python_load_library()
{
    python_initialized = true;
 
    // Get the string from the environment variable RAD_PYTHON_PATH
    char python_path[20000];
    int path_size = GetEnvironmentVariable("RAD_PYTHON_PATH", python_path, 20000);
 
    if (path_size == 0)
    {
        python_initialized = false;
    }
    else
    {
        handle = LoadLibrary(python_path);
        if (!handle)
        {
            python_initialized = false;
        }
        else
        {
            load_functions(handle, python_initialized);
        }
    }
 
    if (!python_initialized)
    {
 
        python_exec = LoadLibrary("python.exe");
 
        if (python_exec == NULL)
        {
            std::cout << "ERROR: No python installation found." << std::endl;
            std::cout << "       Set PATH to Python Installation or set RAD_PYTHON_PATH to the Python library" << std::endl;
            python_initialized = false;
            return;
        }
 
        char python_filename[2048];
        DWORD filelen = GetModuleFileName(python_exec, python_filename, 2048);
        int i = filelen;
        while (i > 0 && python_filename[i - 1] != '\\')
            --i;
        python_filename[i] = '\0';
 
        strcpy_s(python_path, 20000, python_filename);
        FreeLibrary(python_exec);
 
        std::string dir_path = std::string(python_path);
 
        WIN32_FIND_DATA find_file_data;
        HANDLE hFind = FindFirstFile((dir_path + "python*.dll").c_str(), &find_file_data);
 
        if (hFind == INVALID_HANDLE_VALUE)
        {
            std::cout << "ERROR: Could not find any python*.dll files in " << dir_path << std::endl;
            python_initialized = false;
            return;
        }
 
        do
        {
            std::string full_dll_path = dir_path + find_file_data.cFileName;
            handle = LoadLibrary(full_dll_path.c_str());
 
            if (handle)
            {
                python_initialized = true;
                // std::cout << "Trying python library: " << full_dll_path << std::endl;
                load_functions(handle, python_initialized);
                if (python_initialized)
                {
                    // std::cout << "Python library found at " << full_dll_path << std::endl;
                    FindClose(hFind);
                    My_Initialize();
                    return;
                }
                FreeLibrary(handle);
            }
        } while (FindNextFile(hFind, &find_file_data) != 0);
        FindClose(hFind);
    }
    else
    {
        My_Initialize();
    }
}
 
#else
 
// Linux only: try to load the python library at the specified path
bool try_load_library(const std::string &path)
{
    bool python_initialized = false;
    handle = dlopen(path.c_str(), RTLD_LAZY |RTLD_GLOBAL);
    if (handle)
    {
        std::cout << "Trying python library: " << path << std::endl;
        load_functions(handle, python_initialized);
        if (python_initialized)
        {
            std::cout << "INFO: Python library found at " << path << std::endl;
            My_Initialize();
            if (!My_IsInitialized())
            {
                std::cout << "ERROR: My_Initialize failed" << std::endl;
                python_initialized = false;
            }
        }
    }
    return python_initialized;
}
 
void python_load_library()
{
    python_initialized = false;
    handle = nullptr;
    // clear the previous errors in dlerror:
    dlerror();
    // Get the string from the environment variable RAD_PYTHON_PATH
    const char *python_path = getenv("RAD_PYTHON_PATH");
    if (python_path == nullptr)
    {
        python_initialized = false;
    }
    else
    {
        python_initialized = try_load_library(python_path);
    }
 
    // if RAD_PYTHON_PATH was not found, or if the library was not loaded, try find PYTHONHOME
    if (!python_initialized)
    {
        python_path = getenv("PYTHONHOME");
        if (python_path)
        {
            std::cout << "INFO: searching for python library in PYTHONHOME" << std::endl;
            std::vector<std::string> possible_dirs = {"/lib64/", "/lib/", "/usr/lib64/", "/usr/lib/", "/usr/lib/x86_64-linux-gnu/"};
            for (const auto &dir : possible_dirs)
            {
                std::string dir_path = std::string(python_path) + dir;
                DIR *d = opendir(dir_path.c_str());
                if (d)
                {
                    struct dirent *entry;
                    while ((entry = readdir(d)) != nullptr)
                    {
                        std::string filename(entry->d_name);
                        if (filename.find("libpython") == 0 && filename.find(".so") != std::string::npos)
                        {
                            python_initialized = try_load_library(dir_path + filename);
                            if (python_initialized)
                            {
                                closedir(d);
                                return;
                            }
                        }
                    }
                    closedir(d);
                }
            }
        }
    }
    // if we reach this point, we did not find any python library
    // we look into some default locations
    std::cout << " INFO: searching for python library in default locations LD_LIBRARY_PATH" << std::endl;
    std::vector<std::string> possible_names = {
        "libpython3.12.so",
        "libpython3.11.so",
        "libpython3.10.so",
        "libpython3.9.so",
        "libpython3.8.so",
        "libpython3.7.so",
        "libpython3.6.so",
        "libpython3.5.so",
        "libpython3.4.so",
        "libpython3.3.so",
        "libpython3.2.so",
        "libpython3.1.so",
        "libpython3.so",
        "libpython3.0.so",
        "libpython2.7.so"};
    for (const auto &name : possible_names)
    {
        std::string libname = name;
        python_initialized = try_load_library(libname);
        if (python_initialized)
        {
            return;
        }
    }
}
#endif
 
 
// C++ functions that can be called from Fortran
extern "C"
{
    void cpp_python_initialize(int *ierror)
    {
        if (python_initialized)
        { // already initialized
            return;
        }
        // if ierror = 1 on entry, then "-python" is missing from the starter command line, and we will not execute any python code
        if (*ierror == 1)
            return;
        *ierror = 1;
        // Load Python dynamic library
        python_load_library();
        if (python_initialized)
        {
            pDict = MyModule_GetDict(MyImport_AddModule("__main__")); // Get the main module dictionary
            if (!pDict)
            {
                std::cout << "ERROR in Python: fetching main module dictionary" << std::endl;
                return;
            }
            int result = MyRun_SimpleString("import math"); // Import the math module for sin and other functions
            if (result != 0)
            {
                std::cerr << "ERROR: Failed to import math module in Python." << std::endl;
                // Print Python error traceback
                if (MyErr_Occurred())
                {
                // Fetch the error details
                PyObject *pType, *pValue, *pTraceback;
                MyErr_Fetch(&pType, &pValue, &pTraceback);
                if (pType)
                    std::cout << "[PYTHON] " << MyUnicode_AsUTF8(MyObject_Str(pType)) << std::endl;
                if (pValue)
                    std::cout << "[PYTHON] " << MyUnicode_AsUTF8(MyObject_Str(pValue)) << std::endl;
                if (pTraceback)
                    std::cout << "[PYTHON]: " << MyUnicode_AsUTF8(MyObject_Str(pTraceback)) << std::endl;
 
                // Print the error
                //MyErr_Display(pType, pValue, pTraceback);
 
                // Decrement reference counts for error objects
                My_DecRef(pType);
                My_DecRef(pValue);
                My_DecRef(pTraceback);
                exit_with_message("ERROR: Python function failed");
                }
           }else
           {
              *ierror = 0;
           }
           check_error(__LINE__);
        }
    }
    void cpp_python_load_environment()
    {
        if (!python_initialized)
        {
            return;
        }
        check_error(__LINE__);
        const char *code =
            "if 'initialize_environment' in globals():\n"
            "    initialize_environment()\n";
        int result = MyRun_SimpleString(code);
        check_error(__LINE__);
    }
 
    void cpp_python_sync(void* pcontext)
    {
 
        //std::cout<<"[PYTHON] cpp_python_sync called"<<std::endl;
        if (!python_initialized || !sync_enabled)
        {
            return;
        }
        check_error(__LINE__);
 
        // cast the context to a double pointer as a PyObject
        char func_name[100];
        // func_name = "sync" 
        func_name[0] = 's';
        func_name[1] = 'y';
        func_name[2] = 'n';
        func_name[3] = 'c';
        func_name[4] = '\0';
        //std::cout<<"[PYTHON] cpp_python_sync called with function name: "<<func_name<<std::endl;
 
        PyObject *context = static_cast<PyObject *>(pcontext);
        PyObject* args = MyTuple_New(1);
        if(!args)
        {
            std::cout << "ERROR: Failed to create Python tuple." << std::endl;
        }
        My_IncRef(context);
        MyTuple_SetItem(args, 0, context);  // This steals the reference
        PyObject *pFunc = static_cast<PyObject *>(MyDict_GetItemString(pDict, func_name));
        if (!pFunc)
        {
            std::cout << "ERROR: Python function not found: " << func_name << std::endl;
            My_DecRef(args);
        }
 
        if (!MyCallable_Check(pFunc)) {
        std::cerr << "[PYTHON] Error: '" << func_name << "' is not callable" << std::endl;
        My_DecRef(args);
        }
 
        PyObject* result = MyObject_CallObject(pFunc, args);
         if (MyErr_Occurred())
         {
             // Fetch the error details
             PyObject *pType, *pValue, *pTraceback;
             MyErr_Fetch(&pType, &pValue, &pTraceback);
             if (pType)
                 std::cout << "[PYTHON] " << MyUnicode_AsUTF8(MyObject_Str(pType)) << std::endl;
             if (pValue)
                 std::cout << "[PYTHON] " << MyUnicode_AsUTF8(MyObject_Str(pValue)) << std::endl;
             if (pTraceback)
                 std::cout << "[PYTHON]: " << MyUnicode_AsUTF8(MyObject_Str(pTraceback)) << std::endl;
 
             // Decrement reference counts for error objects
             My_DecRef(pType);
             My_DecRef(pValue);
             My_DecRef(pTraceback);
             exit_with_message("ERROR: Python function failed");
         }
 
        My_DecRef(args);
        check_error(__LINE__);
 
    }
 
 
    void cpp_python_finalize()
    {
        My_Finalize();
    }
    void cpp_python_execute_code(const char *code)
    {
        MyRun_SimpleString(code);
        check_error(__LINE__);
 
    }
 
    void cpp_python_initialize_global_variables()
    {
        if (!python_initialized)
        {
            return;
        }
        // initialize TIME and DT to 0
        check_error(__LINE__);
 
 
        PyObject *py_TIME = static_cast<PyObject *>(MyFloat_FromDouble(0.0));
        PyObject *py_DT = static_cast<PyObject *>(MyFloat_FromDouble(0.0));
        MyDict_SetItemString(pDict, "TIME", py_TIME);
        MyDict_SetItemString(pDict, "DT", py_DT);
 
        // loop over the set of nodes
        for (auto node_uid : nodes_uid)
        {
            std::string entity_names[] = {"C", "D", "V", "A", "VR", "AR", "DR"};
            for (auto name : entity_names)
            {
                const double x_values = static_cast<double>(1);
                const double y_values = static_cast<double>(1);
                const double z_values = static_cast<double>(1);
                PyObject *py_x_values = static_cast<PyObject *>(MyFloat_FromDouble(x_values));
                PyObject *py_y_values = static_cast<PyObject *>(MyFloat_FromDouble(y_values));
                PyObject *py_z_values = static_cast<PyObject *>(MyFloat_FromDouble(z_values));
                if (!py_x_values || !py_y_values || !py_z_values)
                {
                    std::cout << "ERROR: Failed to create Python objects from C++ doubles." << std::endl;
                    return;
                }
                std::string x_name = name + "X_" + std::to_string(node_uid);
                std::string y_name = name + "Y_" + std::to_string(node_uid);
                std::string z_name = name + "Z_" + std::to_string(node_uid);
                // std::cout<<" write to python: "<<x_name<<" "<<y_name<<" "<<z_name<<std::endl;
                MyDict_SetItemString(pDict, x_name.c_str(), py_x_values);
                MyDict_SetItemString(pDict, y_name.c_str(), py_y_values);
                MyDict_SetItemString(pDict, z_name.c_str(), py_z_values);
                // Release the Python objects
                if (py_x_values != nullptr)
                    My_DecRef(py_x_values);
                if (py_y_values != nullptr)
                    My_DecRef(py_y_values);
                if (py_z_values != nullptr)
                    My_DecRef(py_z_values);
            }
        }
        // Initialize all elements keywords to 1
        for (auto p : element_variables)
        {
            double v = static_cast<double>(1);
            PyObject *py_value = static_cast<PyObject *>(MyFloat_FromDouble(v));
            if (!py_value)
            {
                std::cout << "ERROR: Failed to create Python objects from C++ doubles." << std::endl;
            }
            // convert p.second (const char *) to std::string
            std::string keyword(p.second);
            std::string sname = keyword + "_" + std::to_string(p.first);
            MyDict_SetItemString(pDict, sname.c_str(), py_value);
            if (py_value != nullptr)
                My_DecRef(py_value);
        }
        check_error(__LINE__);
 
    }
 
    // register a function in the python dictionary
    void cpp_python_register_function(char *name, char code[], int num_lines)
    {
        std::string tmp_string;
        int current_line = 0;
        std::stringstream function_code;
 
        if (!python_initialized)
        {
            std::cout << "ERROR: Python not initialized" << std::endl;
            std::cout << "Make sure that the following python code is safe" << std::endl;
            std::cout << "and rerun the starter with the -python option." << std::endl;
        }
 
        for (int i = 0; current_line < num_lines;)
        {
            tmp_string.clear();
            // Extract characters into the temporary string until a null character is found
            while (code[i] != '\0')
            {
                tmp_string += code[i];
                i++;
            }
            if (current_line == 0)
            {
                std::string function_name = extract_function_name(tmp_string);
        if(function_name == "sync") sync_enabled = true;
                if (function_name.empty())
                {
                    std::cout << "ERROR: function name not found in function signature" << std::endl;
                    return;
                }
// copy function_name into argument name
#ifdef _WIN64
                strcpy_s(name, max_line_length, function_name.c_str());
#else
                strcpy(name, function_name.c_str());
#endif
                // add the null char at the end of the string
                name[function_name.size()] = '\0';
            }
 
            const std::string s = parenthesis_to_underscore(tmp_string);
            extract_node_uid(s);
 
            extract_element_keywords(s);
            function_code << s << std::endl; // Add the line to the function code
            i++;                             // Move past the null character
            current_line++;
        }
        if (python_initialized)
        {
            // initialize the global variables found in the python function
            cpp_python_initialize_global_variables();
            python_execute_code(function_code.str());
        }
        else
        {
            // print the python function to stdout and stderr
            std::cout << function_code.str() << std::endl;
        }
    }
 
    // works for functions with 2 arguments and 1 return value
    void cpp_python_call_function(char *name, int num_args, double *args, int num_return, double *return_values)
    {
        if (!python_initialized)
        {
            return;
        }
        //GIL
        PyGILState_STATE gstate = MyGILState_Ensure();  
        check_error(__LINE__);
        if (strcmp(name, "initialize_environment") == 0) return;
        PyObject *result = call_python_function(name, args, num_args);
        if (result)
        {
            return_values[0] = MyFloat_AsDouble(result);
            My_DecRef(result);
        } else 
        {
            exit_with_message("ERROR: Python function failed");
        }
        check_error(__LINE__);
        MyGILState_Release(gstate);
    }
 
    void cpp_python_call_function_with_state(char *name, double *return_values)
    {
        if (!python_initialized)
        {
            return;
        }
        PyGILState_STATE gstate = MyGILState_Ensure();
        check_error(__LINE__);
        PyObject *result = call_python_function_with_state(name);
        if (result)
        {
            *return_values = MyFloat_AsDouble(result);
            My_DecRef(result);
        } else {
            exit_with_message("ERROR: Python function failed");
        }
        check_error(__LINE__);
        MyGILState_Release(gstate);
    }
    // this function checks if a function exists in the python dictionary
    void cpp_python_check_function(char *name, int *error)
    {
        PyObject *pFunc;
        //        std::cout << "Checking if function exists: " << name << std::endl;
        if (python_initialized)
        {
            pFunc = static_cast<PyObject *>(MyDict_GetItemString(pDict, name));
            if (MyCallable_Check(pFunc))
            {
                *error = 0;
            }
            else
            {
                *error = 1;
            }
        }
        else
        {
            *error = 1;
        }
 
        //        std::cout << "Function exists? " << *error << std::endl;
    }
 
    void cpp_python_update_reals(char * basename, int * uid, my_real *reals, int num_reals)
    {
        // add BASENAME_$UID = reals[i] to the python dictionary
        if (!python_initialized)
        {
            return;
        }
 
        PyGILState_STATE gstate = MyGILState_Ensure();
        check_error(__LINE__);
        // Convert C++ doubles to Python objects
        for (int i = 0; i < num_reals; i++)
        {
            double value = static_cast<double>(reals[i]);
            PyObject *py_value = static_cast<PyObject *>(MyFloat_FromDouble(value));
            if (!py_value)
            {
                std::cerr << "ERROR: Failed to create Python object from C++ double." << std::endl;
                return;
            }
            // Create the key in the format BASENAME_$UID
            std::string key = std::string(basename) + "_" + std::to_string(uid[i]);
            // Set the item in the Python dictionary
            MyDict_SetItemString(pDict, key.c_str(), py_value);
            // Release the Python object
            My_DecRef(py_value);
        }
        // Release the Python object
        check_error(__LINE__);
        MyGILState_Release(gstate);
    }
 
    void cpp_python_update_time(my_real TIME, my_real DT)
    {
        if (!python_initialized)
        {
            // std::cerr << "ERROR: Python is not initialized." << std::endl;
            return;
        }
        PyGILState_STATE gstate = MyGILState_Ensure();
        check_error(__LINE__);
        if (!pDict)
        {
            std::cerr << "ERROR: Python main module dictionary not initialized." << std::endl;
            MyGILState_Release(gstate);
            return;
        }
        // donvert TIME and DT to double precision in TIME2 and DT2
        double TIME2 = static_cast<double>(TIME);
        double DT2 = static_cast<double>(DT);
        // Convert C++ doubles to Python objects
        PyObject *py_TIME = static_cast<PyObject *>(MyFloat_FromDouble(TIME2));
        PyObject *py_DT = static_cast<PyObject *>(MyFloat_FromDouble(DT2));
 
        if (!py_TIME || !py_DT)
        {
            std::cerr << "ERROR: Failed to create Python objects from C++ doubles." << std::endl;
            MyGILState_Release(gstate);
            return;
        }
 
        // Set the Python global variables in the main module's dictionary
        MyDict_SetItemString(pDict, "TIME", py_TIME);
        MyDict_SetItemString(pDict, "DT", py_DT);
 
        // Release the Python objects
        if (py_TIME != nullptr)
            My_DecRef(py_TIME);
        if (py_DT != nullptr)
            My_DecRef(py_DT);
        check_error(__LINE__);
        MyGILState_Release(gstate);
    }
    // return the number of nodes that are used in the python functions
    void cpp_python_get_number_of_nodes(int *num_nodes)
    {
        if (!python_initialized)
        {
            *num_nodes = 0;
        }
        else
        {
            *num_nodes = nodes_uid.size();
        }
 
    }
 
    // return the list of nodes (user ids) that are used in the python functions
    void cpp_python_get_nodes(int *nodes_uid_array)
    {
        if (python_initialized)
        {
            int i = 0;
            for (auto node_uid : nodes_uid)
            {
                // std::cout << "Node uid: " << node_uid << std::endl;
                nodes_uid_array[i] = node_uid;
                i++;
            }
        }
    }
    // itab(i) = uid of node local node i
    void cpp_python_create_node_mapping(int *itab, int *num_nodes)
    {
        // print number of nodes and python_initialized
        // std::cout << "Number of nodes: " << *num_nodes << " python_initialized" << python_initialized << std::endl;
        if (python_initialized)
        {
            // loop over the set
            for (auto node_uid : nodes_uid)
            {
                // find i such that itab[i] = node_uid
                bool found = false;
                for (int i = 0; i < *num_nodes; i++)
                {
                    if (itab[i] == node_uid)
                    {
                        nodes_uid_to_local_id[node_uid] = i;
                        // std::cout << "Node uid: " << node_uid << " local id: " << i << std::endl;
                        found = true;
                        break;
                    }
                }
                if (!found)
                {
                    std::cout << "Node uid: " << node_uid << " not found in itab" << std::endl;
                }
            }
            check_error(__LINE__);
        }
    }
    // update the global variable sensors from the input arrays
    void cpp_python_update_sensors(int *types, int *uids, int *statuses, double *results, int *num_sensors)
    {
        //std::cout << "[PYTHON] update sensors" << std::endl;
        constexpr int sensor_python = 40;    // PYTHON
        constexpr int sensor_energy = 14;    // ENERGY
        constexpr int sensor_time = 0;       // TIME
        constexpr int sensor_accel = 1;      // ACCE
        constexpr int sensor_dist = 2;       // DISP
        constexpr int sensor_sens = 3;       // SENS
        constexpr int sensor_and = 4;        // AND
        constexpr int sensor_or = 5;         // OR
        constexpr int sensor_inter = 6;      // INTER
        constexpr int sensor_rwall = 7;      // RWALL
        constexpr int sensor_not = 8;        // NOT
        constexpr int sensor_vel = 9;        // VEL
        constexpr int sensor_gauge = 10;     // GAUGE
        constexpr int sensor_rbody = 11;     // RBODY
        constexpr int sensor_sect = 12;      // SECT
        constexpr int sensor_work = 13;      // WORK
        constexpr int sensor_dist_surf = 15; // DIST_SURF
        constexpr int sensor_hic = 16;       // HIC
        constexpr int sensor_temp = 17;      // TEMP
        // create a python dictionary with associating type to name
        const std::map<int, std::string> sensor_type_to_name = {
            {sensor_python, "PYTHON"},
            {sensor_energy, "ENERGY"},
            {sensor_time, "TIME"},
            {sensor_accel, "ACCE"},
            {sensor_dist, "DIST"},
            {sensor_sens, "SENS"},
            {sensor_and, "AND"},
            {sensor_or, "OR"},
            {sensor_inter, "INTER"},
            {sensor_rwall, "RWALL"},
            {sensor_not, "NOT"},
            {sensor_vel, "VEL"},
            {sensor_gauge, "GAUGE"},
            {sensor_rbody, "RBODY"},
            {sensor_sect, "SECT"},
            {sensor_work, "WORK"},
            {sensor_dist_surf, "DIST_SURF"},
            {sensor_hic, "HIC"},
            {sensor_temp, "TEMP"}};
 
        if (!python_initialized)
        {
            return;
        }
        check_error(__LINE__);
        std::ostringstream oss;
        oss << std::setprecision(std::numeric_limits<double>::max_digits10) << std::hexfloat;
        oss << "sensors = { \n";
        for (int i = 0; i < *num_sensors; i++)
        {
            int type = types[i];
            int uid = uids[i];
            int status = statuses[i];
            oss << "    " << uid << " : { 'type' : '" << sensor_type_to_name.at(type) << "', 'status' : " << status;
            // depending on the type, the results are different
            if (type == sensor_energy)
            { // Eint = results[2*(i-1)], Ekin = results[2*(i-1)+1]
                oss << ", 'Eint' :  float.fromhex('" << results[2 * i] << "'), 'Ekin' : float.fromhex('" << results[2 * i + 1] << "') ";
            }
            else if (type == sensor_inter || type == sensor_rwall)
            { // Force = results[2*(i-1)]
                oss << ", 'Force' :  float.fromhex('" << results[2 * i] << "') ";
            }
            else if (type == sensor_dist || type == sensor_dist_surf)
            {
                oss << ", 'Distance' :  float.fromhex('" << results[2 * i] << "') ";
            }
            else if (type == sensor_gauge)
            {
                oss << ", 'Pressure' :  float.fromhex('" << results[2 * i] << "') ";
            }
            if (i < *num_sensors - 1)
            {
                oss << "},\n";
            }
            else
            {
                oss << "}\n";
            }
        }
        oss << "\n}";
 
        std::string code = oss.str();
        // std::cout<< "Generated code: "<<code<<std::endl;
        python_execute_code(code);
        // check for errors
        check_error(__LINE__);
 
    }
 
    // values is an array of size (3*numnod) containing the values of the nodal entities
//  call python_update_active_node_values(name_len, temp_name, val)
 
    void cpp_python_update_active_node(int name_len, char *name, double *values)
    {
        if (!python_initialized)
        {
            return;
        }
        check_error(__LINE__);
        double x_values, y_values, z_values;
        // loop over the map nodes_uid_to_local_id
        {
            x_values = static_cast<double>(values[0]);
            y_values = static_cast<double>(values[1]);
            z_values = static_cast<double>(values[2]);
            PyObject *py_x_values = static_cast<PyObject *>(MyFloat_FromDouble(x_values));
            PyObject *py_y_values = static_cast<PyObject *>(MyFloat_FromDouble(y_values));
            PyObject *py_z_values = static_cast<PyObject *>(MyFloat_FromDouble(z_values));
            if (!py_x_values || !py_y_values || !py_z_values)
            {
                std::cout << "ERROR: Failed to create Python objects from C++ doubles." << std::endl;
                return;
            }
            // Set the Python global variables in the main module's dictionary
            std::string x_name = std::string(name) + "X_ACTIVE_NODE";
            std::string y_name = std::string(name) + "Y_ACTIVE_NODE";
            std::string z_name = std::string(name) + "Z_ACTIVE_NODE";
            // std::cout<<" write to python: "<<x_name<<" "<<y_name<<" "<<z_name<<std::endl;
            MyDict_SetItemString(pDict, x_name.c_str(), py_x_values);
            MyDict_SetItemString(pDict, y_name.c_str(), py_y_values);
            MyDict_SetItemString(pDict, z_name.c_str(), py_z_values);
            // Release the Python objects
            if (py_x_values != nullptr)
                My_DecRef(py_x_values);
            if (py_y_values != nullptr)
                My_DecRef(py_y_values);
            if (py_z_values != nullptr)
                My_DecRef(py_z_values);
            check_error(__LINE__);
 
        }
    }
    void cpp_python_update_active_node_ids(int id, int uid)
    { // set ACTIVE_NODE as id, and ACTIVE_NODE_UID as uid
        if (!python_initialized)
        {
            return;
        }
        check_error(__LINE__);
        // Set the Python global variables in the main module's dictionary
        std::string id_name = "ACTIVE_NODE";
        std::string uid_name = "ACTIVE_NODE_UID";
        MyDict_SetItemString(pDict, id_name.c_str(), static_cast<PyObject *>(MyLong_FromLong(static_cast<long>(id))));
        MyDict_SetItemString(pDict, uid_name.c_str(), static_cast<PyObject *>(MyLong_FromLong(static_cast<long>(uid))));
        check_error(__LINE__);
 
    }
 
 
    // values is an array of size (3*numnod) containing the values of the nodal entities
    void cpp_python_update_nodal_entity(int numnod, int name_len, char *name, my_real *values)
    {
        if (!python_initialized)
        {
            return;
        }
 
        check_error(__LINE__);
        double x_values, y_values, z_values;
        // loop over the map nodes_uid_to_local_id
        for (auto it = nodes_uid_to_local_id.begin(); it != nodes_uid_to_local_id.end(); ++it)
        {
            int node_uid = it->first;
            int local_id = it->second;
            if(local_id > numnod-1)
            {
                std::cout << "ERROR: local_id " << local_id << " is greater than numnod " << numnod << std::endl;
                return;
            }
            x_values = static_cast<double>(values[3 * local_id]);
            y_values = static_cast<double>(values[3 * local_id + 1]);
            z_values = static_cast<double>(values[3 * local_id + 2]);
            PyObject *py_x_values = static_cast<PyObject *>(MyFloat_FromDouble(x_values));
            PyObject *py_y_values = static_cast<PyObject *>(MyFloat_FromDouble(y_values));
            PyObject *py_z_values = static_cast<PyObject *>(MyFloat_FromDouble(z_values));
            if (!py_x_values || !py_y_values || !py_z_values)
            {
                std::cout << "ERROR: Failed to create Python objects from C++ doubles." << std::endl;
                return;
            }
            // Set the Python global variables in the main module's dictionary
            std::string x_name = std::string(name) + "X_" + std::to_string(node_uid);
            std::string y_name = std::string(name) + "Y_" + std::to_string(node_uid);
            std::string z_name = std::string(name) + "Z_" + std::to_string(node_uid);
            // std::cout<<" write to python: "<<x_name<<" "<<y_name<<" "<<z_name<<std::endl;
            MyDict_SetItemString(pDict, x_name.c_str(), py_x_values);
            MyDict_SetItemString(pDict, y_name.c_str(), py_y_values);
            MyDict_SetItemString(pDict, z_name.c_str(), py_z_values);
            // Release the Python objects
            if (py_x_values != nullptr)
                My_DecRef(py_x_values);
            if (py_y_values != nullptr)
                My_DecRef(py_y_values);
            if (py_z_values != nullptr)
                My_DecRef(py_z_values);
 
            check_error(__LINE__);
        }
    }
 
    // update values for elemental entities found in the Python function
    void cpp_python_update_elemental_entity(char *name, double value, int uid)
    {
        double v = static_cast<double>(value);
        check_error(__LINE__);
        PyObject *py_value = static_cast<PyObject *>(MyFloat_FromDouble(v));
        if (!py_value)
        {
            std::cout << "ERROR: Failed to create Python objects from C++ doubles." << std::endl;
        }
        std::string sname = std::string(name) + "_" + std::to_string(uid);
        // std::cout<<"[PYTHON] update elemental entity: "<<sname<<" value: "<<v<<std::endl;
        MyDict_SetItemString(pDict, sname.c_str(), py_value);
        if (py_value != nullptr)
            My_DecRef(py_value);
        check_error(__LINE__);
    }
 
    // return the size of the KeywordPairs element_variables
    void cpp_python_get_number_elemental_entities(int *nb)
    {
        *nb = element_variables.size();
    }
 
    void cpp_python_get_elemental_entity(int nb, char *name, int *uid)
    {
        size_t n = static_cast<size_t>(nb - 1);
        KeywordPair p = get_keyword_pair(element_variables, n);
        for (int i = 0; i < max_variable_length; i++)
        {
            name[i] = '\0';
        }
        // copy user id
        *uid = p.first;
        // copy variable name
#ifdef _WIN64
        strcpy_s(name, max_variable_length, p.second);
#else
        strcpy(name, p.second);
#endif
    }
 
    void cpp_python_sample_function(char *name, double *x, double *y, int n)
    {
        //write the name
        constexpr size_t N = 10000; // Number of points
        double x_max = 1e+6;
        std::vector<double> Xtmp = initial_sampling(x_max,N);
        std::vector<double> X(2*N, 0.0);
        double scale = x_max / N;
 
        // X = -Xtmp(N) .. -Xtmp(1) Xtmp(1) .. Xtmp(N)
        for (size_t i = 0; i < N; i++)
        {
            X[i] = -scale * Xtmp[N - i - 1];
        }
        for (size_t i = 0; i < N; i++)
        {
            X[i + N] = scale * Xtmp[i];
        }
        // I would like to symmetrically sample the function around 0, so I will sample the function at -X and X
        //Y of size N, filled with 0
        std::vector<double> Y(X.size(), 0.0);
        // evaluate the function at all X values using cpp_
        call_python_function1D_vectors(name, X, Y);
        //Sample the function to get n points:
        std::vector<double>  new_x = select_points(X,Y,size_t(n));
        std::vector<double>  new_y(n, 0.0);
        call_python_function1D_vectors(name, new_x, new_y);
        //sizes:
        // copy the values to the output arrays
        for (int i = 0; i < n; i++)
        {
            x[i] = static_cast<my_real>(new_x[i]);
            y[i] = static_cast<my_real>(new_y[i]);
        }
    }
 
 
//
//          subroutine python_add_ints_to_dict(context, name, len_name, values, nvalues) &
//            bind(c, name="cpp_python_add_ints_to_dict")
//            use iso_c_binding
//            type(c_ptr), value, intent(in) :: context
//            integer(kind=c_int), value, intent(in) :: nvalues
//            character(kind=c_char), dimension(len_name), intent(in) :: name
//            integer(kind=c_int), dimension(nvalues), intent(in) :: values
//          end subroutine python_add_ints_to_dict
         //subroutine python_add_doubles_to_dict(context, name, len_name, values, nvalues) &
void cpp_python_add_ints_to_dict(void* context_ptr, const char* name, int len_name,  int* values, int nvalues)
{ // expose the array without copying
    if (!python_initialized)
    {
        return;
    }
    check_error(__LINE__);
    PyObject * context = static_cast<PyObject*>(context_ptr); 
    char ptr_key[100],size_key[100],type_key[100];
    snprintf(ptr_key, sizeof(ptr_key), "%s_ptr", name);
    snprintf(size_key, sizeof(size_key), "%s_size", name);
    snprintf(type_key, sizeof(type_key), "%s_type", name);
    PyObject* ptr_value  = MyLong_FromVoidPtr(values);
    PyObject* size_value = MyLong_FromLong(static_cast<long>(nvalues));
    PyObject* type_value = MyUnicode_FromString("int");
 
    // set the values in the context dictionary
    MyDict_SetItemString(context, ptr_key, ptr_value);
    MyDict_SetItemString(context, size_key, size_value);
    MyDict_SetItemString(context, type_key, type_value);
 
    // release the references
    My_DecRef(ptr_value);
    My_DecRef(size_value);
    My_DecRef(type_value);
    check_error(__LINE__);
 
}
 
void cpp_python_add_doubles_to_dict(void* context_ptr, const char* name, int len_name,  double* values, int nvalues)
{ // expose the array without copying
    if (!python_initialized)
    {
        return;
    }
    check_error(__LINE__);
    PyObject * context = static_cast<PyObject*>(context_ptr); 
    char ptr_key[100],size_key[100],type_key[100];
    snprintf(ptr_key, sizeof(ptr_key), "%s_ptr", name);
    snprintf(size_key, sizeof(size_key), "%s_size", name);
    snprintf(type_key, sizeof(type_key), "%s_type", name);
    PyObject* ptr_value  = MyLong_FromVoidPtr(values);
    PyObject* size_value = MyLong_FromLong(static_cast<long>(nvalues));
    PyObject* type_value = MyUnicode_FromString("double");
    // set the values in the context dictionary
    MyDict_SetItemString(context, ptr_key, ptr_value);
    MyDict_SetItemString(context, size_key, size_value);
    MyDict_SetItemString(context, type_key, type_value);
    // release the references
    My_DecRef(ptr_value);
    My_DecRef(size_value);
    My_DecRef(type_value);
    check_error(__LINE__);
}
    // set the values in the context dictionary
 
 
void* cpp_python_create_context() {
    check_error(__LINE__);
    PyObject* context = MyDict_New();
    if (!context) {
        return NULL;
    }
    return context;
    check_error(__LINE__);
}
 
void cpp_python_free_context(void* context) {
    if (context) {
        My_DecRef(static_cast<PyObject*>(context));
    }
}
PyThreadState* py_begin_allow_threads() {
    return MyEval_SaveThread();
}
 
void py_end_allow_threads(PyThreadState* saved_state) {
    MyEval_RestoreThread(saved_state);
}
} // extern "C"
 
#else
// dummy functions
extern "C"
{
    void cpp_python_initialize(int *ok)
    {
        // ok = 0; if not ok
        *ok = 0;
        //        std::cout << "ERROR: python not enabled" << std::endl;
    }
    void cpp_python_finalize()
    {
        //        std::cout << "ERROR: python not enabled" << std::endl;
    }
    void cpp_python_execute_code(const char *code)
    {
        //        std::cout << "ERROR: python not enabled" << std::endl;
    }
    void cpp_python_register_function(char *name, char code[500][1000], int num_lines)
    {
        //        std::cout << "ERROR: python not enabled" << std::endl;
    }
    void cpp_python_call_function(char *name, int num_args, double *args, int num_return, double *return_values)
    {
        std::cout << "ERROR: python not enabled" << std::endl;
    }
    void cpp_python_sample_function(char *name, double*x, double*y, int n)
    {
        std::cout << "ERROR: python not enabled" << std::endl;
    }
    void cpp_python_call_function_with_state(char *name)
    {
        std::cout << "ERROR: python not enabled" << std::endl;
    }
    void cpp_python_check_function(char *name, int *error)
    {
        //        std::cout << "ERROR: python not enabled" << std::endl;
    }
    void cpp_python_update_time(double TIME, double DT) {}
    void cpp_python_get_number_of_nodes(int *num_nodes) {}
    // return the list of nodes (user ids) that are used in the python functions
    void cpp_python_get_nodes(int *nodes_uid_array) {}
    void cpp_python_create_node_mapping(int *itab, int *num_nodes) {}
    void cpp_python_update_nodal_entity(int numnod, int name_len, char *name, my_real *values) {}
    void cpp_python_update_elemental_entity(char *name, my_real value, int uid) {}
    void cpp_python_get_number_elemental_entities(int *nb) {}
    void cpp_python_get_elemental_entity(int nb, char *name, int *uid) {}
    void cpp_python_load_environment() {}
    void cpp_python_update_sensors(int types, int *uids, int *statuses, double *results, int *num_sensors){}
    void* py_begin_allow_threads() {return nullptr;}
    void py_end_allow_threads(void* saved_state) {}
 
}
 
#endif