memory.c

Go to the documentation of this file.

#include "header.h"


void unittest_idle_start_FirmInitPostId()
{
    
    
    //return idle();
}

void unittest_idle_start_FirmLoop()
{
    
    
    //return idle();
}

void unittest_firm_init_post_id_FirmInitPostId_FirmInitEmployment()
{
    
    
    //return firm_init_post_id();
}

void unittest_firm_init_employment_FirmInitEmployment_FirmInitBalanceSheet()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_jpoffice_firm_employee, &i_jpoffice_firm_employee, &FLAME_filter_firm_firm_init_employment_FirmInitEmployment_FirmInitBalanceSheet_jpoffice_firm_employee, current_xmachine_firm);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'jpoffice_firm_employee'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'jpoffice_firm_employee' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'jpoffice_firm_employee' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return firm_init_employment();
}

void unittest_firm_init_balancesheet_FirmInitBalanceSheet_FirmLoop()
{
    
    
    //return firm_init_balancesheet();
}

void unittest_firm_iterate_FirmLoop_FirmCreditStart()
{
    
    
    //return firm_iterate();
}

void unittest_idle_FirmUpdateDeposits_FirmCreditPolicyChecks()
{
    
    
    //return idle();
}

void unittest_firm_update_bank_account_FirmUpdateDeposits_FirmCreditPolicyChecks()
{
    
    
    //return firm_update_bank_account();
}

void unittest_idle_FirmConsumptionStart_FirmHousingStart()
{
    
    
    //return idle();
}

void unittest_idle_FirmConsumptionStart_FirmConsumptionMarket()
{
    
    
    //return idle();
}

void unittest_idle_FirmConsumptionMarket_FirmHousingStart()
{
    
    
    //return idle();
}

void unittest_firm_consumption_supply_FirmConsumptionMarket_FirmReceiveSales()
{
    
    
    //return firm_consumption_supply();
}

void unittest_firm_consumption_receive_sales_FirmReceiveSales_FirmConsumptionPrice()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_sold, &i_sold, &FLAME_filter_firm_firm_consumption_receive_sales_FirmReceiveSales_FirmConsumptionPrice_sold, current_xmachine_firm);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'sold'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'sold' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'sold' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return firm_consumption_receive_sales();
}

void unittest_firm_consumption_update_market_price_FirmConsumptionPrice_FirmHousingStart()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_goods_transactions_summary, &i_goods_transactions_summary);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'goods_transactions_summary'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'goods_transactions_summary' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'goods_transactions_summary' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return firm_consumption_update_market_price();
}

void unittest_idle_FirmLabourStart_FirmConsumptionStart()
{
    
    
    //return idle();
}

void unittest_firm_labour_workforce_needed_FirmLabourStart_FirmLabourStage1()
{
    
    
    //return firm_labour_workforce_needed();
}

void unittest_idle_FirmLabourStage1_FirmLabourStage1End()
{
    
    
    //return idle();
}

void unittest_firm_labour_fire_FirmLabourStage1_FirmLabourStage1End()
{
    
    
    //return firm_labour_fire();
}

void unittest_firm_labour_job_announcement_stage1_FirmLabourStage1_FirmLabourStage1Application()
{
    
    
    //return firm_labour_job_announcement_stage1();
}

void unittest_firm_labour_job_offer_stage1_FirmLabourStage1Application_FirmLabourStage1End()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_job_match_stage1, &i_job_match_stage1, &FLAME_filter_firm_firm_labour_job_offer_stage1_FirmLabourStage1Application_FirmLabourStage1End_job_match_stage1, current_xmachine_firm);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'job_match_stage1'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'job_match_stage1' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'job_match_stage1' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return firm_labour_job_offer_stage1();
}

void unittest_firm_labour_update_FirmLabourStage1End_FirmLabourStage2()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_job_change, &i_job_change, &FLAME_filter_firm_firm_labour_update_FirmLabourStage1End_FirmLabourStage2_job_change, current_xmachine_firm);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'job_change'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'job_change' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'job_change' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return firm_labour_update();
}

void unittest_firm_labour_job_announcement_stage2_FirmLabourStage2_FirmLabourStage2End()
{
    
    
    //return firm_labour_job_announcement_stage2();
}

void unittest_idle_FirmLabourStage2_FirmConsumptionStart()
{
    
    
    //return idle();
}

void unittest_firm_labour_job_offer_stage2_FirmLabourStage2End_FirmConsumptionStart()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_job_match_stage2, &i_job_match_stage2, &FLAME_filter_firm_firm_labour_job_offer_stage2_FirmLabourStage2End_FirmConsumptionStart_job_match_stage2, current_xmachine_firm);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'job_match_stage2'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'job_match_stage2' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'job_match_stage2' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return firm_labour_job_offer_stage2();
}

void unittest_idle_FirmLabourPayWages_FirmUpdateDeposits()
{
    
    
    //return idle();
}

void unittest_firm_labour_pay_wages_FirmLabourPayWages_FirmLabourWageAdjustment()
{
    
    
    //return firm_labour_pay_wages();
}

void unittest_firm_labour_trace_wages_FirmLabourWageAdjustment_FirmUpdateDeposits()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_employment_status, &i_employment_status);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'employment_status'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'employment_status' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'employment_status' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return firm_labour_trace_wages();
}

void unittest_idle_FirmProductionStart_FirmLabourStart()
{
    
    
    //return idle();
}

void unittest_idle_FirmProductionStart_FirmProductionSkip()
{
    
    
    //return idle();
}

void unittest_firm_production_skip_FirmProductionSkip_FirmLabourStart()
{
    
    
    //return firm_production_skip();
}

void unittest_idle_FirmProductionSkip_FirmProductionRoleCheck()
{
    
    
    //return idle();
}

void unittest_idle_FirmProductionRoleCheck_FirmProductionRegular()
{
    
    
    //return idle();
}

void unittest_idle_FirmProductionRoleCheck_FirmProductionConstructor()
{
    
    
    //return idle();
}

void unittest_firm_production_produce_goods_FirmProductionRegular_FirmLabourStart()
{
    
    
    //return firm_production_produce_goods();
}

void unittest_firm_production_set_price_FirmProductionRegular_FirmProductionPlanning()
{
    
    
    //return firm_production_set_price();
}

void unittest_firm_production_plan_FirmProductionPlanning_FirmProductionLabourDemand()
{
    
    
    //return firm_production_plan();
}

void unittest_firm_production_compute_labour_demand_FirmProductionLabourDemand_FirmLabourStart()
{
    
    
    //return firm_production_compute_labour_demand();
}

void unittest_firm_production_construct_houses_FirmProductionConstructor_FirmLabourStart()
{
    
    
    //return firm_production_construct_houses();
}

void unittest_firm_production_construction_plan_FirmProductionConstructor_FirmConstructionLabourDemand()
{
    
    
    //return firm_production_construction_plan();
}

void unittest_firm_production_construction_labour_demand_FirmConstructionLabourDemand_FirmLabourStart()
{
    
    
    //return firm_production_construction_labour_demand();
}

void unittest_idle_FirmCreditStart_FirmProductionStart()
{
    
    
    //return idle();
}

void unittest_firm_credit_compute_income_statement_FirmCreditStart_FirmCreditInvestment()
{
    
    
    //return firm_credit_compute_income_statement();
}

void unittest_firm_credit_investment_decisions_FirmCreditInvestment_FirmCreditComputeDividends()
{
    
    
    //return firm_credit_investment_decisions();
}

void unittest_firm_credit_compute_dividends_FirmCreditComputeDividends_FirmCreditLiquidityNeed()
{
    
    
    //return firm_credit_compute_dividends();
}

void unittest_firm_credit_check_liquidity_need_FirmCreditLiquidityNeed_FirmCreditStatus()
{
    
    
    //return firm_credit_check_liquidity_need();
}

void unittest_idle_FirmCreditStatus_FirmCreditPayments()
{
    
    
    //return idle();
}

void unittest_firm_credit_demand_loans_1_FirmCreditStatus_FirmCreditLoanBorrow1()
{
    
    
    //return firm_credit_demand_loans_1();
}

void unittest_firm_credit_borrow_loans_1_FirmCreditLoanBorrow1_FirmCreditLoanBorrow2()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_bank_firm_loan_acknowledge_1, &i_bank_firm_loan_acknowledge_1, &FLAME_filter_firm_firm_credit_borrow_loans_1_FirmCreditLoanBorrow1_FirmCreditLoanBorrow2_bank_firm_loan_acknowledge_1, current_xmachine_firm);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'bank_firm_loan_acknowledge_1'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'bank_firm_loan_acknowledge_1' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'bank_firm_loan_acknowledge_1' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return firm_credit_borrow_loans_1();
}

void unittest_idle_FirmCreditLoanBorrow2_FirmCreditPayments()
{
    
    
    //return idle();
}

void unittest_firm_credit_borrow_loans_2_FirmCreditLoanBorrow2_FirmCreditIlliquidityStatus()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_bank_firm_loan_acknowledge_2, &i_bank_firm_loan_acknowledge_2, &FLAME_filter_firm_firm_credit_borrow_loans_2_FirmCreditLoanBorrow2_FirmCreditIlliquidityStatus_bank_firm_loan_acknowledge_2, current_xmachine_firm);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'bank_firm_loan_acknowledge_2'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'bank_firm_loan_acknowledge_2' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'bank_firm_loan_acknowledge_2' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return firm_credit_borrow_loans_2();
}

void unittest_idle_FirmCreditIlliquidityStatus_FirmCreditPayments()
{
    
    
    //return idle();
}

void unittest_firm_credit_request_equityfund_investment_FirmCreditIlliquidityStatus_FirmCreditLiquidityRecheck()
{
    
    
    //return firm_credit_request_equityfund_investment();
}

void unittest_idle_FirmCreditLiquidityRecheck_FirmCreditPayments()
{
    
    
    //return idle();
}

void unittest_firm_credit_check_equityfund_investment_FirmCreditLiquidityRecheck_FirmCreditBankruptcy()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_fund_request_ack, &i_fund_request_ack, &FLAME_filter_firm_firm_credit_check_equityfund_investment_FirmCreditLiquidityRecheck_FirmCreditBankruptcy_fund_request_ack, current_xmachine_firm);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'fund_request_ack'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'fund_request_ack' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'fund_request_ack' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return firm_credit_check_equityfund_investment();
}

void unittest_idle_FirmCreditBankruptcy_FirmCreditPayments()
{
    
    
    //return idle();
}

void unittest_firm_credit_illiquidity_bankrupt_FirmCreditBankruptcy_FirmCreditBalanceSheet()
{
    
    
    //return firm_credit_illiquidity_bankrupt();
}

void unittest_firm_credit_pay_interest_on_loans_FirmCreditPayments_FirmCreditDividendPayments()
{
    
    
    //return firm_credit_pay_interest_on_loans();
}

void unittest_firm_credit_pay_dividends_FirmCreditDividendPayments_FirmCreditBalanceSheet()
{
    
    
    //return firm_credit_pay_dividends();
}

void unittest_firm_credit_do_balance_sheet_FirmCreditBalanceSheet_FirmCreditInsolvencyCheck()
{
    
    
    //return firm_credit_do_balance_sheet();
}

void unittest_idle_FirmCreditInsolvencyCheck_FirmProductionStart()
{
    
    
    //return idle();
}

void unittest_firm_credit_insolvency_bankruptcy_FirmCreditInsolvencyCheck_FirmProductionStart()
{
    
    
    //return firm_credit_insolvency_bankruptcy();
}

void unittest_idle_FirmCreditPolicyChecks_end()
{
    
    
    //return idle();
}

void unittest_firm_credit_check_interest_rate_FirmCreditPolicyChecks_FirmCreditCheckTaxRate()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_interest_rate, &i_interest_rate);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'interest_rate'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'interest_rate' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'interest_rate' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return firm_credit_check_interest_rate();
}

void unittest_firm_credit_check_tax_rate_FirmCreditCheckTaxRate_end()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_labour_tax_rate, &i_labour_tax_rate);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'labour_tax_rate'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'labour_tax_rate' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'labour_tax_rate' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return firm_credit_check_tax_rate();
}

void unittest_idle_FirmHousingStart_FirmLabourPayWages()
{
    
    
    //return idle();
}

void unittest_idle_FirmHousingStart_FirmHousingMarket()
{
    
    
    //return idle();
}

void unittest_idle_FirmHousingMarket_FirmLabourPayWages()
{
    
    
    //return idle();
}

void unittest_firm_housing_enter_market_FirmHousingMarket_FirmHousingSell()
{
    
    
    //return firm_housing_enter_market();
}

void unittest_firm_housing_collect_sale_revenues_FirmHousingSell_FirmHousingPrice()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_sold_housing, &i_sold_housing, &FLAME_filter_firm_firm_housing_collect_sale_revenues_FirmHousingSell_FirmHousingPrice_sold_housing, current_xmachine_firm);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'sold_housing'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'sold_housing' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'sold_housing' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return firm_housing_collect_sale_revenues();
}

void unittest_firm_housing_update_market_price_FirmHousingPrice_FirmLabourPayWages()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_housing_price, &i_housing_price);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'housing_price'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'housing_price' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'housing_price' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return firm_housing_update_market_price();
}

void unittest_idle_start_HouseholdInitPostId()
{
    
    
    //return idle();
}

void unittest_idle_start_HouseholdLoop()
{
    
    
    //return idle();
}

void unittest_household_init_post_id_HouseholdInitPostId_HouseholdInitEmployment()
{
    
    
    //return household_init_post_id();
}

void unittest_household_init_employment_HouseholdInitEmployment_HouseholdInitBalanceSheet()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_jpoffice_household_employer, &i_jpoffice_household_employer, &FLAME_filter_household_household_init_employment_HouseholdInitEmployment_HouseholdInitBalanceSheet_jpoffice_household_employer, current_xmachine_household);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'jpoffice_household_employer'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'jpoffice_household_employer' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'jpoffice_household_employer' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return household_init_employment();
}

void unittest_household_init_balancesheet_HouseholdInitBalanceSheet_HouseholdLoop()
{
    
    
    //return household_init_balancesheet();
}

void unittest_household_iterate_HouseholdLoop_HHCreditStart()
{
    
    
    //return household_iterate();
}

void unittest_idle_HouseholdUpdateDeposits_HHCreditPolicyChecks()
{
    
    
    //return idle();
}

void unittest_household_update_bank_account_HouseholdUpdateDeposits_HHCreditPolicyChecks()
{
    
    
    //return household_update_bank_account();
}

void unittest_idle_HHConsumptionStart_HHConsumptionWeekly()
{
    
    
    //return idle();
}

void unittest_household_consumption_compute_budget_HHConsumptionStart_HHConsumptionWeekly()
{
    
    
    //return household_consumption_compute_budget();
}

void unittest_idle_HHConsumptionWeekly_HHConsumptionMonthly()
{
    
    
    //return idle();
}

void unittest_household_consumption_demand_HHConsumptionWeekly_HHConsumptionRecieveGoods()
{
    
    
    //return household_consumption_demand();
}

void unittest_household_consumption_recieve_goods_HHConsumptionRecieveGoods_HHConsumptionMonthly()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_bought, &i_bought, &FLAME_filter_household_household_consumption_recieve_goods_HHConsumptionRecieveGoods_HHConsumptionMonthly_bought, current_xmachine_household);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'bought'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'bought' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'bought' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return household_consumption_recieve_goods();
}

void unittest_idle_HHConsumptionMonthly_HHHousingStart()
{
    
    
    //return idle();
}

void unittest_household_consumption_trace_cpi_HHConsumptionMonthly_HHHousingStart()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_centralbank_households_quarterly_cpi, &i_centralbank_households_quarterly_cpi);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'centralbank_households_quarterly_cpi'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'centralbank_households_quarterly_cpi' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'centralbank_households_quarterly_cpi' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return household_consumption_trace_cpi();
}

void unittest_idle_HHLabourStart_HHConsumptionStart()
{
    
    
    //return idle();
}

void unittest_household_labour_check_fired_HHLabourStart_HHLabourStage1()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_fired, &i_fired, &FLAME_filter_household_household_labour_check_fired_HHLabourStart_HHLabourStage1_fired, current_xmachine_household);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'fired'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'fired' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'fired' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return household_labour_check_fired();
}

void unittest_household_labour_reemployment_application_HHLabourStage1_HHLabourStage2()
{
    
    
    //return household_labour_reemployment_application();
}

void unittest_idle_HHLabourStage1_HHLabourStage1Applications()
{
    
    
    //return idle();
}

void unittest_household_labour_turnover_HHLabourStage2_HHConsumptionStart()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_job_match_stage1, &i_job_match_stage1, &FLAME_filter_household_household_labour_turnover_HHLabourStage2_HHConsumptionStart_job_match_stage1, current_xmachine_household);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'job_match_stage1'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'job_match_stage1' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'job_match_stage1' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return household_labour_turnover();
}

void unittest_household_labour_employment_application_HHLabourStage1Applications_HHLabourStage1Placement()
{
    
    
    //return household_labour_employment_application();
}

void unittest_household_labour_employment_HHLabourStage1Placement_HHConsumptionStart()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_job_match_stage2, &i_job_match_stage2, &FLAME_filter_household_household_labour_employment_HHLabourStage1Placement_HHConsumptionStart_job_match_stage2, current_xmachine_household);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'job_match_stage2'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'job_match_stage2' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'job_match_stage2' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return household_labour_employment();
}

void unittest_idle_HHLabourPayroll_HouseholdUpdateDeposits()
{
    
    
    //return idle();
}

void unittest_household_labour_receive_wage_HHLabourPayroll_HHLabourEmploymentStatus()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_firm_household_wage_payment, &i_firm_household_wage_payment, &FLAME_filter_household_household_labour_receive_wage_HHLabourPayroll_HHLabourEmploymentStatus_firm_household_wage_payment, current_xmachine_household);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'firm_household_wage_payment'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'firm_household_wage_payment' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'firm_household_wage_payment' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return household_labour_receive_wage();
}

void unittest_household_labour_report_status_HHLabourEmploymentStatus_HouseholdUpdateDeposits()
{
    
    
    //return household_labour_report_status();
}

void unittest_idle_HHCreditStart_HHCreditMonthly()
{
    
    
    //return idle();
}

void unittest_idle_HHCreditStart_HHCreditIsCapitalist()
{
    
    
    //return idle();
}

void unittest_idle_HHCreditIsCapitalist_HHCreditBalanceSheet()
{
    
    
    //return idle();
}

void unittest_household_credit_collect_shares_HHCreditIsCapitalist_HHCreditBalanceSheet()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_household_share, &i_household_share);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'household_share'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'household_share' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'household_share' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return household_credit_collect_shares();
}

void unittest_household_credit_do_balance_sheet_HHCreditBalanceSheet_HHCreditMonthly()
{
    
    
    //return household_credit_do_balance_sheet();
}

void unittest_idle_HHCreditMonthly_HHLabourStart()
{
    
    
    //return idle();
}

void unittest_household_credit_collect_benefits_HHCreditMonthly_HHLabourStart()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_general_benefit, &i_general_benefit);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'general_benefit'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'general_benefit' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'general_benefit' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    
    rc = MB_Iterator_Create(b_unemployment_benefit, &i_unemployment_benefit);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'unemployment_benefit'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'unemployment_benefit' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'unemployment_benefit' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return household_credit_collect_benefits();
}

void unittest_idle_HHCreditPolicyChecks_end()
{
    
    
    //return idle();
}

void unittest_household_credit_check_interest_rate_HHCreditPolicyChecks_HHCreditUpdateAnnuity()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_interest_rate, &i_interest_rate);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'interest_rate'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'interest_rate' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'interest_rate' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return household_credit_check_interest_rate();
}

void unittest_household_credit_update_mortgage_rates_HHCreditUpdateAnnuity_HHCreditCheckTaxRate()
{
    
    
    //return household_credit_update_mortgage_rates();
}

void unittest_household_credit_check_tax_rate_HHCreditCheckTaxRate_end()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_labour_tax_rate, &i_labour_tax_rate);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'labour_tax_rate'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'labour_tax_rate' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'labour_tax_rate' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return household_credit_check_tax_rate();
}

void unittest_idle_HHHousingStart_HHLabourPayroll()
{
    
    
    //return idle();
}

void unittest_household_housing_market_role_HHHousingStart_HHHousingRole()
{
    
    
    //return household_housing_market_role();
}

void unittest_idle_HHHousingRole_HHHousingPrice()
{
    
    
    //return idle();
}

void unittest_household_housing_check_wealth_HHHousingRole_HHHousingCheckWealth()
{
    
    
    //return household_housing_check_wealth();
}

void unittest_household_housing_sell_HHHousingRole_HHHousingRevenue()
{
    
    
    //return household_housing_sell();
}

void unittest_household_housing_fire_sell_HHHousingRole_HHHousingRevenue()
{
    
    
    //return household_housing_fire_sell();
}

void unittest_household_housing_collect_sale_revenue_HHHousingRevenue_HHHousingPrice()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_sold_housing, &i_sold_housing, &FLAME_filter_household_household_housing_collect_sale_revenue_HHHousingRevenue_HHHousingPrice_sold_housing, current_xmachine_household);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'sold_housing'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'sold_housing' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'sold_housing' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return household_housing_collect_sale_revenue();
}

void unittest_idle_HHHousingCheckWealth_HHHousingPrice()
{
    
    
    //return idle();
}

void unittest_household_housing_enter_market_HHHousingCheckWealth_HHHousingBargain()
{
    
    
    //return household_housing_enter_market();
}

void unittest_household_housing_buy_HHHousingBargain_HHHousingPrice()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_bought_housing, &i_bought_housing, &FLAME_filter_household_household_housing_buy_HHHousingBargain_HHHousingPrice_bought_housing, current_xmachine_household);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'bought_housing'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'bought_housing' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'bought_housing' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return household_housing_buy();
}

void unittest_household_housing_update_market_price_HHHousingPrice_HHHousingPayments()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_housing_price, &i_housing_price);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'housing_price'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'housing_price' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'housing_price' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return household_housing_update_market_price();
}

void unittest_household_housing_pay_mortgages_HHHousingPayments_HHHousingWriteOff()
{
    
    
    //return household_housing_pay_mortgages();
}

void unittest_household_housing_debt_writeoff_HHHousingWriteOff_HHLabourPayroll()
{
    
    
    //return household_housing_debt_writeoff();
}

void unittest_equityfund_init_start_EquityFundLoop()
{
    
    
    //return equityfund_init();
}

void unittest_idle_start_EquityFundLoop()
{
    
    
    //return idle();
}

void unittest_equityfund_iterate_EquityFundLoop_EquityFundCredit()
{
    
    
    //return equityfund_iterate();
}

void unittest_idle_EFLabourMarket_EFCreditIncomeStatement()
{
    
    
    //return idle();
}

void unittest_equityfund_audit_dividends_EFLabourMarket_EFCreditIncomeStatement()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_employment_status, &i_employment_status);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'employment_status'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'employment_status' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'employment_status' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return equityfund_audit_dividends();
}

void unittest_idle_EquityFundCredit_EFLabourMarket()
{
    
    
    //return idle();
}

void unittest_equityfund_credit_invest_illiquids_EquityFundCredit_EFCreditShareCollectionBanks()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_fund_request, &i_fund_request);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'fund_request'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'fund_request' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'fund_request' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return equityfund_credit_invest_illiquids();
}

void unittest_equityfund_credit_collect_bank_shares_EFCreditShareCollectionBanks_EFCreditShareCollectionFirms()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_bank_net_profit, &i_bank_net_profit);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'bank_net_profit'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'bank_net_profit' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'bank_net_profit' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return equityfund_credit_collect_bank_shares();
}

void unittest_equityfund_credit_collect_firm_shares_EFCreditShareCollectionFirms_EFCreditDistributeShares()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_firm_net_profit, &i_firm_net_profit);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'firm_net_profit'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'firm_net_profit' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'firm_net_profit' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return equityfund_credit_collect_firm_shares();
}

void unittest_equityfund_credit_distribute_shares_EFCreditDistributeShares_EFLabourMarket()
{
    
    
    //return equityfund_credit_distribute_shares();
}

void unittest_idle_EFCreditIncomeStatement_end()
{
    
    
    //return idle();
}

void unittest_equityfund_credit_compute_income_statement_EFCreditIncomeStatement_EFCreditBalanceSheet()
{
    
    
    //return equityfund_credit_compute_income_statement();
}

void unittest_equityfund_credit_do_balance_sheet_EFCreditBalanceSheet_EFCreditPolicyChecks()
{
    
    
    //return equityfund_credit_do_balance_sheet();
}

void unittest_equityfund_credit_check_tax_rate_EFCreditPolicyChecks_end()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_capital_tax_rate, &i_capital_tax_rate);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'capital_tax_rate'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'capital_tax_rate' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'capital_tax_rate' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return equityfund_credit_check_tax_rate();
}

void unittest_idle_start_BankInitLoans()
{
    
    
    //return idle();
}

void unittest_idle_start_BankLoop()
{
    
    
    //return idle();
}

void unittest_bank_init_loans_BankInitLoans_BankInitMortgages()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_firm_bank_init_loans, &i_firm_bank_init_loans, &FLAME_filter_bank_bank_init_loans_BankInitLoans_BankInitMortgages_firm_bank_init_loans, current_xmachine_bank);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'firm_bank_init_loans'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'firm_bank_init_loans' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'firm_bank_init_loans' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return bank_init_loans();
}

void unittest_bank_init_mortgages_BankInitMortgages_BankInitDeposits()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_household_bank_init_mortgages, &i_household_bank_init_mortgages, &FLAME_filter_bank_bank_init_mortgages_BankInitMortgages_BankInitDeposits_household_bank_init_mortgages, current_xmachine_bank);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'household_bank_init_mortgages'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'household_bank_init_mortgages' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'household_bank_init_mortgages' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return bank_init_mortgages();
}

void unittest_bank_init_deposits_BankInitDeposits_BankInitBalanceSheet()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_household_bank_init_deposit, &i_household_bank_init_deposit, &FLAME_filter_bank_bank_init_deposits_BankInitDeposits_BankInitBalanceSheet_household_bank_init_deposit, current_xmachine_bank);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'household_bank_init_deposit'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'household_bank_init_deposit' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'household_bank_init_deposit' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    rc = MB_Iterator_CreateFiltered(b_firm_bank_init_deposit, &i_firm_bank_init_deposit, &FLAME_filter_bank_bank_init_deposits_BankInitDeposits_BankInitBalanceSheet_firm_bank_init_deposit, current_xmachine_bank);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'firm_bank_init_deposit'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'firm_bank_init_deposit' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'firm_bank_init_deposit' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return bank_init_deposits();
}

void unittest_bank_init_balancesheet_BankInitBalanceSheet_BankLoop()
{
    
    
    //return bank_init_balancesheet();
}

void unittest_bank_iterate_BankLoop_BankCreditStart()
{
    
    
    //return bank_iterate();
}

void unittest_idle_BankUpdateDeposits_BankCreditPolicyChecks()
{
    
    
    //return idle();
}

void unittest_bank_update_deposits_BankUpdateDeposits_BankCreditPolicyChecks()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_household_bank_update_deposit, &i_household_bank_update_deposit, &FLAME_filter_bank_bank_update_deposits_BankUpdateDeposits_BankCreditPolicyChecks_household_bank_update_deposit, current_xmachine_bank);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'household_bank_update_deposit'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'household_bank_update_deposit' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'household_bank_update_deposit' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    rc = MB_Iterator_CreateFiltered(b_firm_bank_update_deposit, &i_firm_bank_update_deposit, &FLAME_filter_bank_bank_update_deposits_BankUpdateDeposits_BankCreditPolicyChecks_firm_bank_update_deposit, current_xmachine_bank);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'firm_bank_update_deposit'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'firm_bank_update_deposit' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'firm_bank_update_deposit' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return bank_update_deposits();
}

void unittest_idle_BankCreditStart_BankHousingMarket()
{
    
    
    //return idle();
}

void unittest_bank_credit_compute_income_statement_BankCreditStart_BankCreditDividends()
{
    
    
    //return bank_credit_compute_income_statement();
}

void unittest_bank_credit_compute_dividends_BankCreditDividends_BankCreditBalanceSheet()
{
    
    
    //return bank_credit_compute_dividends();
}

void unittest_bank_credit_do_balance_sheet_BankCreditBalanceSheet_BankCreditRequest1()
{
    
    
    //return bank_credit_do_balance_sheet();
}

void unittest_bank_credit_process_loan_requests_1_BankCreditRequest1_BankCreditRequest2()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_firm_bank_loan_request_1, &i_firm_bank_loan_request_1, &FLAME_filter_bank_bank_credit_process_loan_requests_1_BankCreditRequest1_BankCreditRequest2_firm_bank_loan_request_1, current_xmachine_bank);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'firm_bank_loan_request_1'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'firm_bank_loan_request_1' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'firm_bank_loan_request_1' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return bank_credit_process_loan_requests_1();
}

void unittest_bank_credit_process_loan_requests_2_BankCreditRequest2_BankCreditLoanWriteOffs()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_firm_bank_loan_request_2, &i_firm_bank_loan_request_2, &FLAME_filter_bank_bank_credit_process_loan_requests_2_BankCreditRequest2_BankCreditLoanWriteOffs_firm_bank_loan_request_2, current_xmachine_bank);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'firm_bank_loan_request_2'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'firm_bank_loan_request_2' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'firm_bank_loan_request_2' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return bank_credit_process_loan_requests_2();
}

void unittest_bank_credit_recieve_loan_writeoffs_BankCreditLoanWriteOffs_BankCreditNewEntrants()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_loan_writeoff, &i_loan_writeoff, &FLAME_filter_bank_bank_credit_recieve_loan_writeoffs_BankCreditLoanWriteOffs_BankCreditNewEntrants_loan_writeoff, current_xmachine_bank);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'loan_writeoff'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'loan_writeoff' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'loan_writeoff' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    rc = MB_Iterator_CreateFiltered(b_firm_bank_insolvent_account, &i_firm_bank_insolvent_account, &FLAME_filter_bank_bank_credit_recieve_loan_writeoffs_BankCreditLoanWriteOffs_BankCreditNewEntrants_firm_bank_insolvent_account, current_xmachine_bank);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'firm_bank_insolvent_account'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'firm_bank_insolvent_account' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'firm_bank_insolvent_account' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return bank_credit_recieve_loan_writeoffs();
}

void unittest_bank_credit_recieve_new_entrant_loan_requests_BankCreditNewEntrants_BankCreditLoanInterests()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_new_entrant_loan, &i_new_entrant_loan, &FLAME_filter_bank_bank_credit_recieve_new_entrant_loan_requests_BankCreditNewEntrants_BankCreditLoanInterests_new_entrant_loan, current_xmachine_bank);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'new_entrant_loan'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'new_entrant_loan' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'new_entrant_loan' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return bank_credit_recieve_new_entrant_loan_requests();
}

void unittest_bank_credit_collect_loan_interests_BankCreditLoanInterests_BankHousingMarket()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_firm_bank_interest_on_loan, &i_firm_bank_interest_on_loan, &FLAME_filter_bank_bank_credit_collect_loan_interests_BankCreditLoanInterests_BankHousingMarket_firm_bank_interest_on_loan, current_xmachine_bank);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'firm_bank_interest_on_loan'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'firm_bank_interest_on_loan' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'firm_bank_interest_on_loan' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return bank_credit_collect_loan_interests();
}

void unittest_idle_BankCreditPolicyChecks_end()
{
    
    
    //return idle();
}

void unittest_bank_credit_check_interest_rate_BankCreditPolicyChecks_end()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_interest_rate, &i_interest_rate);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'interest_rate'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'interest_rate' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'interest_rate' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return bank_credit_check_interest_rate();
}

void unittest_idle_BankHousingMarket_BankUpdateDeposits()
{
    
    
    //return idle();
}

void unittest_bank_housing_compute_capital_status_BankHousingMarket_BankHousingCrediting()
{
    
    
    //return bank_housing_compute_capital_status();
}

void unittest_bank_housing_deliver_mortages_BankHousingCrediting_BankHousingSales()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_mortgage_requests, &i_mortgage_requests, &FLAME_filter_bank_bank_housing_deliver_mortages_BankHousingCrediting_BankHousingSales_mortgage_requests, current_xmachine_bank);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'mortgage_requests'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'mortgage_requests' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'mortgage_requests' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return bank_housing_deliver_mortages();
}

void unittest_bank_housing_recieve_mortgage_principals_BankHousingSales_BankHousingMortgages()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_mortgage_payment_from_sale, &i_mortgage_payment_from_sale, &FLAME_filter_bank_bank_housing_recieve_mortgage_principals_BankHousingSales_BankHousingMortgages_mortgage_payment_from_sale, current_xmachine_bank);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'mortgage_payment_from_sale'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'mortgage_payment_from_sale' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'mortgage_payment_from_sale' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return bank_housing_recieve_mortgage_principals();
}

void unittest_bank_housing_recieve_mortgages_BankHousingMortgages_BankHousingWriteOff()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_mortgage_payment, &i_mortgage_payment, &FLAME_filter_bank_bank_housing_recieve_mortgages_BankHousingMortgages_BankHousingWriteOff_mortgage_payment, current_xmachine_bank);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'mortgage_payment'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'mortgage_payment' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'mortgage_payment' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return bank_housing_recieve_mortgages();
}

void unittest_bank_housing_debt_writeoff_BankHousingWriteOff_BankUpdateDeposits()
{
    int rc;
    
    rc = MB_Iterator_CreateFiltered(b_mortgage_writeoff, &i_mortgage_writeoff, &FLAME_filter_bank_bank_housing_debt_writeoff_BankHousingWriteOff_BankUpdateDeposits_mortgage_writeoff, current_xmachine_bank);
    
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'mortgage_writeoff'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'mortgage_writeoff' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'mortgage_writeoff' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return bank_housing_debt_writeoff();
}

void unittest_government_init_start_GovernmentLoop()
{
    
    
    //return government_init();
}

void unittest_idle_start_GovernmentLoop()
{
    
    
    //return idle();
}

void unittest_government_iterate_GovernmentLoop_GovernmentCredit()
{
    
    
    //return government_iterate();
}

void unittest_government_trace_unemployment_status_GovernmentLabourStatus_GovernmentFiscalPolicy()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_employment_status, &i_employment_status);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'employment_status'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'employment_status' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'employment_status' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return government_trace_unemployment_status();
}

void unittest_idle_GovernmentCredit_GovernmentMonthly()
{
    
    
    //return idle();
}

void unittest_government_collect_capital_tax_GovernmentCredit_GovernmentMonthly()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_capital_tax, &i_capital_tax);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'capital_tax'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'capital_tax' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'capital_tax' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return government_collect_capital_tax();
}

void unittest_idle_GovernmentMonthly_GovernmentFiscalPolicy()
{
    
    
    //return idle();
}

void unittest_government_distribute_general_benefits_GovernmentMonthly_GovernmentUnemploymentBenefits()
{
    
    
    //return government_distribute_general_benefits();
}

void unittest_government_distribute_unemployment_benefits_GovernmentUnemploymentBenefits_GovernmentLabourTax()
{
    
    
    //return government_distribute_unemployment_benefits();
}

void unittest_government_collect_labour_tax_GovernmentLabourTax_GovernmentLabourStatus()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_labour_tax, &i_labour_tax);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'labour_tax'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'labour_tax' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'labour_tax' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return government_collect_labour_tax();
}

void unittest_idle_GovernmentFiscalPolicy_end()
{
    
    
    //return idle();
}

void unittest_government_collect_centralbank_profit_GovernmentFiscalPolicy_GovernmentIncomeStatement()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_centralbank_government_profit, &i_centralbank_government_profit);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'centralbank_government_profit'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'centralbank_government_profit' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'centralbank_government_profit' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return government_collect_centralbank_profit();
}

void unittest_government_compute_income_statement_GovernmentIncomeStatement_GovernmentBalanceSheet()
{
    
    
    //return government_compute_income_statement();
}

void unittest_government_do_balance_sheet_GovernmentBalanceSheet_GovernmentUpdatePolicy()
{
    
    
    //return government_do_balance_sheet();
}

void unittest_government_update_fiscal_policy_GovernmentUpdatePolicy_end()
{
    
    
    //return government_update_fiscal_policy();
}

void unittest_idle_start_CentralBankInitBalanceSheet()
{
    
    
    //return idle();
}

void unittest_idle_start_CentralBankLoop()
{
    
    
    //return idle();
}

void unittest_centralbank_init_balancesheet_CentralBankInitBalanceSheet_CentralBankLoop()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_bank_centralbank_init_debt, &i_bank_centralbank_init_debt);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'bank_centralbank_init_debt'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'bank_centralbank_init_debt' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'bank_centralbank_init_debt' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    
    rc = MB_Iterator_Create(b_bank_centralbank_init_deposit, &i_bank_centralbank_init_deposit);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'bank_centralbank_init_deposit'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'bank_centralbank_init_deposit' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'bank_centralbank_init_deposit' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    
    rc = MB_Iterator_Create(b_fund_centralbank_init_deposit, &i_fund_centralbank_init_deposit);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'fund_centralbank_init_deposit'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'fund_centralbank_init_deposit' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'fund_centralbank_init_deposit' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    
    rc = MB_Iterator_Create(b_gov_centralbank_init_deposit, &i_gov_centralbank_init_deposit);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'gov_centralbank_init_deposit'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'gov_centralbank_init_deposit' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'gov_centralbank_init_deposit' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return centralbank_init_balancesheet();
}

void unittest_centralbank_iterate_CentralBankLoop_CentralBankCredit()
{
    
    
    //return centralbank_iterate();
}

void unittest_idle_CentralBankConsumption_CentralBankConsumptionPrices()
{
    
    
    //return idle();
}

void unittest_centralbank_trace_goods_prices_CentralBankConsumption_CentralBankConsumptionPrices()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_goods_transactions_summary, &i_goods_transactions_summary);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'goods_transactions_summary'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'goods_transactions_summary' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'goods_transactions_summary' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return centralbank_trace_goods_prices();
}

void unittest_idle_CentralBankConsumptionPrices_CentralBankHousing()
{
    
    
    //return idle();
}

void unittest_centralbank_update_price_indices_CentralBankConsumptionPrices_CentralBankHousing()
{
    
    
    //return centralbank_update_price_indices();
}

void unittest_idle_CentralBankLabour_CentralBankPolicy()
{
    
    
    //return idle();
}

void unittest_centralbank_trace_unemployment_status_CentralBankLabour_CentralBankPolicy()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_employment_status, &i_employment_status);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'employment_status'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'employment_status' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'employment_status' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return centralbank_trace_unemployment_status();
}

void unittest_idle_CentralBankCredit_CentralBankConsumption()
{
    
    
    //return idle();
}

void unittest_centralbank_collect_interest_payments_CentralBankCredit_CentralBankDebtRequests()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_bank_centralbank_interest_payment, &i_bank_centralbank_interest_payment);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'bank_centralbank_interest_payment'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'bank_centralbank_interest_payment' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'bank_centralbank_interest_payment' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return centralbank_collect_interest_payments();
}

void unittest_centralbank_process_debt_requests_CentralBankDebtRequests_CentralBankConsumption()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_bank_centralbank_debt_request, &i_bank_centralbank_debt_request);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'bank_centralbank_debt_request'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'bank_centralbank_debt_request' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'bank_centralbank_debt_request' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    
    rc = MB_Iterator_Create(b_bank_centralbank_debt_payment, &i_bank_centralbank_debt_payment);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'bank_centralbank_debt_payment'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'bank_centralbank_debt_payment' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'bank_centralbank_debt_payment' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    
    rc = MB_Iterator_Create(b_bank_centralbank_update_deposit, &i_bank_centralbank_update_deposit);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'bank_centralbank_update_deposit'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'bank_centralbank_update_deposit' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'bank_centralbank_update_deposit' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return centralbank_process_debt_requests();
}

void unittest_idle_CentralBankPolicy_end()
{
    
    
    //return idle();
}

void unittest_centralbank_compute_income_statement_CentralBankPolicy_CentralBankGovernmentRequests()
{
    
    
    //return centralbank_compute_income_statement();
}

void unittest_centralbank_process_government_requests_CentralBankGovernmentRequests_CentralBankBalanceSheet()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_gov_centralbank_debt_request, &i_gov_centralbank_debt_request);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'gov_centralbank_debt_request'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'gov_centralbank_debt_request' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'gov_centralbank_debt_request' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    
    rc = MB_Iterator_Create(b_gov_centralbank_debt_payment, &i_gov_centralbank_debt_payment);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'gov_centralbank_debt_payment'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'gov_centralbank_debt_payment' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'gov_centralbank_debt_payment' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    
    rc = MB_Iterator_Create(b_gov_centralbank_update_deposit, &i_gov_centralbank_update_deposit);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'gov_centralbank_update_deposit'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'gov_centralbank_update_deposit' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'gov_centralbank_update_deposit' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return centralbank_process_government_requests();
}

void unittest_centralbank_do_balance_sheet_CentralBankBalanceSheet_CentralBankUpdateInterestRate()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_fund_centralbank_update_deposit, &i_fund_centralbank_update_deposit);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'fund_centralbank_update_deposit'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'fund_centralbank_update_deposit' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'fund_centralbank_update_deposit' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return centralbank_do_balance_sheet();
}

void unittest_centralbank_set_interest_rate_CentralBankUpdateInterestRate_end()
{
    
    
    //return centralbank_set_interest_rate();
}

void unittest_idle_CentralBankHousing_CentralBankLabour()
{
    
    
    //return idle();
}

void unittest_centralbank_trace_housing_prices_CentralBankHousing_CentralBankLabour()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_housing_transactions_summary, &i_housing_transactions_summary);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'housing_transactions_summary'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'housing_transactions_summary' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'housing_transactions_summary' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return centralbank_trace_housing_prices();
}

void unittest_idle_start_JPOfficeInitEmployment()
{
    
    
    //return idle();
}

void unittest_idle_start_JPOfficeLoop()
{
    
    
    //return idle();
}

void unittest_jpoffice_init_employment_JPOfficeInitEmployment_JPOfficeLoop()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_household_jpoffice_id, &i_household_jpoffice_id);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'household_jpoffice_id'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'household_jpoffice_id' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'household_jpoffice_id' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    
    rc = MB_Iterator_Create(b_firm_jpoffice_id, &i_firm_jpoffice_id);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'firm_jpoffice_id'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'firm_jpoffice_id' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'firm_jpoffice_id' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return jpoffice_init_employment();
}

void unittest_jpoffice_iterate_JPOfficeLoop_JPOLabourMarket()
{
    
    
    //return jpoffice_iterate();
}

void unittest_idle_JPOLabourMarket_end()
{
    
    
    //return idle();
}

void unittest_jpoffice_labour_stage1_JPOLabourMarket_JPOLabourStage2()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_vacancy_stage1, &i_vacancy_stage1);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'vacancy_stage1'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'vacancy_stage1' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'vacancy_stage1' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    
    rc = MB_Iterator_Create(b_job_application_stage1, &i_job_application_stage1);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'job_application_stage1'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'job_application_stage1' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'job_application_stage1' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return jpoffice_labour_stage1();
}

void unittest_jpoffice_labour_stage2_JPOLabourStage2_end()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_vacancy_stage2, &i_vacancy_stage2);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'vacancy_stage2'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'vacancy_stage2' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'vacancy_stage2' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    
    rc = MB_Iterator_Create(b_job_application_stage2, &i_job_application_stage2);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'job_application_stage2'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'job_application_stage2' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'job_application_stage2' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return jpoffice_labour_stage2();
}

void unittest_mall_init_start_MallConsumptionMarket()
{
    
    
    //return mall_init();
}

void unittest_idle_MallConsumptionMarket_end()
{
    
    
    //return idle();
}

void unittest_mall_consumption_shopping_MallConsumptionMarket_MallConsumptionSummary()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_sell, &i_sell);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'sell'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'sell' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'sell' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    
    rc = MB_Iterator_Create(b_buy, &i_buy);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'buy'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'buy' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'buy' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return mall_consumption_shopping();
}

void unittest_mall_consumption_summary_MallConsumptionSummary_end()
{
    
    
    //return mall_consumption_summary();
}

void unittest_reagency_init_start_REAgencyHousingMarket()
{
    
    
    //return reagency_init();
}

void unittest_idle_REAgencyCreditPolicyChecks_end()
{
    
    
    //return idle();
}

void unittest_reagency_check_interest_rate_REAgencyCreditPolicyChecks_end()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_interest_rate, &i_interest_rate);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'interest_rate'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'interest_rate' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'interest_rate' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return reagency_check_interest_rate();
}

void unittest_idle_REAgencyHousingMarket_REAgencyCreditPolicyChecks()
{
    
    
    //return idle();
}

void unittest_reagency_housing_process_REAgencyHousingMarket_REAgencyHousingSummary()
{
    int rc;
    
    
    rc = MB_Iterator_Create(b_buy_housing, &i_buy_housing);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'buy_housing'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'buy_housing' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'buy_housing' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    
    rc = MB_Iterator_Create(b_sell_housing, &i_sell_housing);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'sell_housing'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'sell_housing' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'sell_housing' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    
    rc = MB_Iterator_Create(b_bank_reagency_credibility, &i_bank_reagency_credibility);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not create Iterator for 'bank_reagency_credibility'\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'bank_reagency_credibility' board is invalid\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'bank_reagency_credibility' board is locked\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
       }
    }
    #endif
    
    //return reagency_housing_process();
}

void unittest_reagency_housing_summary_REAgencyHousingSummary_REAgencyCreditPolicyChecks()
{
    
    
    //return reagency_housing_summary();
}


void free_messages()
{
    int rc;
    
        rc = MB_Clear(b_firm_bank_init_loans);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'firm_bank_init_loans' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'firm_bank_init_loans' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'firm_bank_init_loans' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_firm_bank_init_deposit);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'firm_bank_init_deposit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'firm_bank_init_deposit' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'firm_bank_init_deposit' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_firm_bank_update_deposit);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'firm_bank_update_deposit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'firm_bank_update_deposit' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'firm_bank_update_deposit' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_household_bank_init_mortgages);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'household_bank_init_mortgages' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'household_bank_init_mortgages' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'household_bank_init_mortgages' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_household_bank_init_deposit);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'household_bank_init_deposit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'household_bank_init_deposit' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'household_bank_init_deposit' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_household_bank_update_deposit);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'household_bank_update_deposit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'household_bank_update_deposit' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'household_bank_update_deposit' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_bank_centralbank_init_debt);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'bank_centralbank_init_debt' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'bank_centralbank_init_debt' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'bank_centralbank_init_debt' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_bank_centralbank_init_deposit);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'bank_centralbank_init_deposit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'bank_centralbank_init_deposit' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'bank_centralbank_init_deposit' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_bank_centralbank_update_deposit);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'bank_centralbank_update_deposit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'bank_centralbank_update_deposit' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'bank_centralbank_update_deposit' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_fund_centralbank_init_deposit);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'fund_centralbank_init_deposit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'fund_centralbank_init_deposit' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'fund_centralbank_init_deposit' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_fund_centralbank_update_deposit);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'fund_centralbank_update_deposit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'fund_centralbank_update_deposit' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'fund_centralbank_update_deposit' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_gov_centralbank_init_deposit);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'gov_centralbank_init_deposit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'gov_centralbank_init_deposit' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'gov_centralbank_init_deposit' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_gov_centralbank_update_deposit);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'gov_centralbank_update_deposit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'gov_centralbank_update_deposit' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'gov_centralbank_update_deposit' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_interest_rate);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'interest_rate' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'interest_rate' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'interest_rate' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_capital_tax_rate);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'capital_tax_rate' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'capital_tax_rate' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'capital_tax_rate' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_labour_tax_rate);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'labour_tax_rate' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'labour_tax_rate' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'labour_tax_rate' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_household_jpoffice_id);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'household_jpoffice_id' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'household_jpoffice_id' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'household_jpoffice_id' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_jpoffice_household_employer);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'jpoffice_household_employer' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'jpoffice_household_employer' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'jpoffice_household_employer' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_firm_jpoffice_id);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'firm_jpoffice_id' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'firm_jpoffice_id' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'firm_jpoffice_id' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_jpoffice_firm_employee);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'jpoffice_firm_employee' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'jpoffice_firm_employee' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'jpoffice_firm_employee' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_buy);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'buy' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'buy' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'buy' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_bought);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'bought' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'bought' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'bought' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_sell);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'sell' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'sell' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'sell' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_sold);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'sold' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'sold' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'sold' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_goods_transactions_summary);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'goods_transactions_summary' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'goods_transactions_summary' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'goods_transactions_summary' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_centralbank_households_quarterly_cpi);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'centralbank_households_quarterly_cpi' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'centralbank_households_quarterly_cpi' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'centralbank_households_quarterly_cpi' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_fired);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'fired' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'fired' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'fired' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_vacancy_stage1);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'vacancy_stage1' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'vacancy_stage1' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'vacancy_stage1' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_job_application_stage2);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'job_application_stage2' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'job_application_stage2' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'job_application_stage2' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_job_application_stage1);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'job_application_stage1' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'job_application_stage1' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'job_application_stage1' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_job_match_stage1);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'job_match_stage1' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'job_match_stage1' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'job_match_stage1' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_job_change);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'job_change' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'job_change' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'job_change' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_vacancy_stage2);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'vacancy_stage2' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'vacancy_stage2' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'vacancy_stage2' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_job_match_stage2);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'job_match_stage2' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'job_match_stage2' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'job_match_stage2' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_employment_status);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'employment_status' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'employment_status' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'employment_status' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_firm_household_wage_payment);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'firm_household_wage_payment' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'firm_household_wage_payment' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'firm_household_wage_payment' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_firm_bank_loan_request_1);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'firm_bank_loan_request_1' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'firm_bank_loan_request_1' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'firm_bank_loan_request_1' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_firm_bank_loan_request_2);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'firm_bank_loan_request_2' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'firm_bank_loan_request_2' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'firm_bank_loan_request_2' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_bank_firm_loan_acknowledge_1);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'bank_firm_loan_acknowledge_1' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'bank_firm_loan_acknowledge_1' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'bank_firm_loan_acknowledge_1' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_bank_firm_loan_acknowledge_2);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'bank_firm_loan_acknowledge_2' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'bank_firm_loan_acknowledge_2' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'bank_firm_loan_acknowledge_2' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_bank_centralbank_debt_request);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'bank_centralbank_debt_request' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'bank_centralbank_debt_request' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'bank_centralbank_debt_request' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_household_share);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'household_share' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'household_share' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'household_share' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_capital_tax);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'capital_tax' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'capital_tax' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'capital_tax' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_labour_tax);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'labour_tax' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'labour_tax' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'labour_tax' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_unemployment_benefit);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'unemployment_benefit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'unemployment_benefit' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'unemployment_benefit' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_general_benefit);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'general_benefit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'general_benefit' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'general_benefit' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_fund_request);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'fund_request' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'fund_request' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'fund_request' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_fund_request_ack);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'fund_request_ack' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'fund_request_ack' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'fund_request_ack' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_new_entrant_loan);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'new_entrant_loan' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'new_entrant_loan' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'new_entrant_loan' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_firm_bank_interest_on_loan);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'firm_bank_interest_on_loan' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'firm_bank_interest_on_loan' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'firm_bank_interest_on_loan' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_loan_writeoff);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'loan_writeoff' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'loan_writeoff' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'loan_writeoff' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_firm_bank_insolvent_account);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'firm_bank_insolvent_account' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'firm_bank_insolvent_account' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'firm_bank_insolvent_account' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_firm_net_profit);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'firm_net_profit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'firm_net_profit' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'firm_net_profit' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_bank_net_profit);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'bank_net_profit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'bank_net_profit' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'bank_net_profit' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_bank_centralbank_interest_payment);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'bank_centralbank_interest_payment' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'bank_centralbank_interest_payment' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'bank_centralbank_interest_payment' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_bank_centralbank_debt_payment);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'bank_centralbank_debt_payment' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'bank_centralbank_debt_payment' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'bank_centralbank_debt_payment' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_gov_centralbank_debt_request);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'gov_centralbank_debt_request' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'gov_centralbank_debt_request' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'gov_centralbank_debt_request' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_gov_centralbank_debt_payment);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'gov_centralbank_debt_payment' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'gov_centralbank_debt_payment' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'gov_centralbank_debt_payment' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_centralbank_government_profit);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'centralbank_government_profit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'centralbank_government_profit' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'centralbank_government_profit' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_housing_price);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'housing_price' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'housing_price' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'housing_price' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_buy_housing);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'buy_housing' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'buy_housing' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'buy_housing' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_sell_housing);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'sell_housing' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'sell_housing' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'sell_housing' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_bought_housing);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'bought_housing' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'bought_housing' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'bought_housing' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_sold_housing);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'sold_housing' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'sold_housing' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'sold_housing' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_bank_reagency_credibility);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'bank_reagency_credibility' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'bank_reagency_credibility' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'bank_reagency_credibility' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_mortgage_requests);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'mortgage_requests' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'mortgage_requests' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'mortgage_requests' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_mortgage_payment_from_sale);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'mortgage_payment_from_sale' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'mortgage_payment_from_sale' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'mortgage_payment_from_sale' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_mortgage_payment);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'mortgage_payment' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'mortgage_payment' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'mortgage_payment' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_mortgage_writeoff);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'mortgage_writeoff' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'mortgage_writeoff' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'mortgage_writeoff' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
        rc = MB_Clear(b_housing_transactions_summary);
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not clear 'housing_transactions_summary' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: 'housing_transactions_summary' board is invalid\n");
                   break;
               case MB_ERR_LOCKED:
                   fprintf(stderr, "\t reason: 'housing_transactions_summary' board is locked\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Clear returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
}

void initialise_pointers()
{
int rc;

    /* Initialise message sync composite params as NULL */
    FLAME_m_firm_bank_init_loans_composite_params = NULL;

        rc = MB_Create(&b_firm_bank_init_loans, sizeof(m_firm_bank_init_loans));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'firm_bank_init_loans' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_firm_bank_init_deposit_composite_params = NULL;

        rc = MB_Create(&b_firm_bank_init_deposit, sizeof(m_firm_bank_init_deposit));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'firm_bank_init_deposit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_firm_bank_update_deposit_composite_params = NULL;

        rc = MB_Create(&b_firm_bank_update_deposit, sizeof(m_firm_bank_update_deposit));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'firm_bank_update_deposit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_household_bank_init_mortgages_composite_params = NULL;

        rc = MB_Create(&b_household_bank_init_mortgages, sizeof(m_household_bank_init_mortgages));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'household_bank_init_mortgages' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_household_bank_init_deposit_composite_params = NULL;

        rc = MB_Create(&b_household_bank_init_deposit, sizeof(m_household_bank_init_deposit));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'household_bank_init_deposit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_household_bank_update_deposit_composite_params = NULL;

        rc = MB_Create(&b_household_bank_update_deposit, sizeof(m_household_bank_update_deposit));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'household_bank_update_deposit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_bank_centralbank_init_debt_composite_params = NULL;

        rc = MB_Create(&b_bank_centralbank_init_debt, sizeof(m_bank_centralbank_init_debt));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'bank_centralbank_init_debt' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_bank_centralbank_init_deposit_composite_params = NULL;

        rc = MB_Create(&b_bank_centralbank_init_deposit, sizeof(m_bank_centralbank_init_deposit));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'bank_centralbank_init_deposit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_bank_centralbank_update_deposit_composite_params = NULL;

        rc = MB_Create(&b_bank_centralbank_update_deposit, sizeof(m_bank_centralbank_update_deposit));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'bank_centralbank_update_deposit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_fund_centralbank_init_deposit_composite_params = NULL;

        rc = MB_Create(&b_fund_centralbank_init_deposit, sizeof(m_fund_centralbank_init_deposit));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'fund_centralbank_init_deposit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_fund_centralbank_update_deposit_composite_params = NULL;

        rc = MB_Create(&b_fund_centralbank_update_deposit, sizeof(m_fund_centralbank_update_deposit));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'fund_centralbank_update_deposit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_gov_centralbank_init_deposit_composite_params = NULL;

        rc = MB_Create(&b_gov_centralbank_init_deposit, sizeof(m_gov_centralbank_init_deposit));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'gov_centralbank_init_deposit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_gov_centralbank_update_deposit_composite_params = NULL;

        rc = MB_Create(&b_gov_centralbank_update_deposit, sizeof(m_gov_centralbank_update_deposit));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'gov_centralbank_update_deposit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_interest_rate_composite_params = NULL;

        rc = MB_Create(&b_interest_rate, sizeof(m_interest_rate));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'interest_rate' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_capital_tax_rate_composite_params = NULL;

        rc = MB_Create(&b_capital_tax_rate, sizeof(m_capital_tax_rate));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'capital_tax_rate' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_labour_tax_rate_composite_params = NULL;

        rc = MB_Create(&b_labour_tax_rate, sizeof(m_labour_tax_rate));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'labour_tax_rate' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_household_jpoffice_id_composite_params = NULL;

        rc = MB_Create(&b_household_jpoffice_id, sizeof(m_household_jpoffice_id));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'household_jpoffice_id' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_jpoffice_household_employer_composite_params = NULL;

        rc = MB_Create(&b_jpoffice_household_employer, sizeof(m_jpoffice_household_employer));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'jpoffice_household_employer' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_firm_jpoffice_id_composite_params = NULL;

        rc = MB_Create(&b_firm_jpoffice_id, sizeof(m_firm_jpoffice_id));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'firm_jpoffice_id' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_jpoffice_firm_employee_composite_params = NULL;

        rc = MB_Create(&b_jpoffice_firm_employee, sizeof(m_jpoffice_firm_employee));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'jpoffice_firm_employee' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_buy_composite_params = NULL;

        rc = MB_Create(&b_buy, sizeof(m_buy));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'buy' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_bought_composite_params = NULL;

        rc = MB_Create(&b_bought, sizeof(m_bought));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'bought' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_sell_composite_params = NULL;

        rc = MB_Create(&b_sell, sizeof(m_sell));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'sell' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_sold_composite_params = NULL;

        rc = MB_Create(&b_sold, sizeof(m_sold));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'sold' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_goods_transactions_summary_composite_params = NULL;

        rc = MB_Create(&b_goods_transactions_summary, sizeof(m_goods_transactions_summary));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'goods_transactions_summary' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_centralbank_households_quarterly_cpi_composite_params = NULL;

        rc = MB_Create(&b_centralbank_households_quarterly_cpi, sizeof(m_centralbank_households_quarterly_cpi));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'centralbank_households_quarterly_cpi' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_fired_composite_params = NULL;

        rc = MB_Create(&b_fired, sizeof(m_fired));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'fired' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_vacancy_stage1_composite_params = NULL;

        rc = MB_Create(&b_vacancy_stage1, sizeof(m_vacancy_stage1));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'vacancy_stage1' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_job_application_stage2_composite_params = NULL;

        rc = MB_Create(&b_job_application_stage2, sizeof(m_job_application_stage2));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'job_application_stage2' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_job_application_stage1_composite_params = NULL;

        rc = MB_Create(&b_job_application_stage1, sizeof(m_job_application_stage1));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'job_application_stage1' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_job_match_stage1_composite_params = NULL;

        rc = MB_Create(&b_job_match_stage1, sizeof(m_job_match_stage1));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'job_match_stage1' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_job_change_composite_params = NULL;

        rc = MB_Create(&b_job_change, sizeof(m_job_change));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'job_change' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_vacancy_stage2_composite_params = NULL;

        rc = MB_Create(&b_vacancy_stage2, sizeof(m_vacancy_stage2));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'vacancy_stage2' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_job_match_stage2_composite_params = NULL;

        rc = MB_Create(&b_job_match_stage2, sizeof(m_job_match_stage2));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'job_match_stage2' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_employment_status_composite_params = NULL;

        rc = MB_Create(&b_employment_status, sizeof(m_employment_status));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'employment_status' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_firm_household_wage_payment_composite_params = NULL;

        rc = MB_Create(&b_firm_household_wage_payment, sizeof(m_firm_household_wage_payment));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'firm_household_wage_payment' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_firm_bank_loan_request_1_composite_params = NULL;

        rc = MB_Create(&b_firm_bank_loan_request_1, sizeof(m_firm_bank_loan_request_1));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'firm_bank_loan_request_1' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_firm_bank_loan_request_2_composite_params = NULL;

        rc = MB_Create(&b_firm_bank_loan_request_2, sizeof(m_firm_bank_loan_request_2));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'firm_bank_loan_request_2' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_bank_firm_loan_acknowledge_1_composite_params = NULL;

        rc = MB_Create(&b_bank_firm_loan_acknowledge_1, sizeof(m_bank_firm_loan_acknowledge_1));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'bank_firm_loan_acknowledge_1' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_bank_firm_loan_acknowledge_2_composite_params = NULL;

        rc = MB_Create(&b_bank_firm_loan_acknowledge_2, sizeof(m_bank_firm_loan_acknowledge_2));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'bank_firm_loan_acknowledge_2' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_bank_centralbank_debt_request_composite_params = NULL;

        rc = MB_Create(&b_bank_centralbank_debt_request, sizeof(m_bank_centralbank_debt_request));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'bank_centralbank_debt_request' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_household_share_composite_params = NULL;

        rc = MB_Create(&b_household_share, sizeof(m_household_share));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'household_share' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_capital_tax_composite_params = NULL;

        rc = MB_Create(&b_capital_tax, sizeof(m_capital_tax));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'capital_tax' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_labour_tax_composite_params = NULL;

        rc = MB_Create(&b_labour_tax, sizeof(m_labour_tax));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'labour_tax' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_unemployment_benefit_composite_params = NULL;

        rc = MB_Create(&b_unemployment_benefit, sizeof(m_unemployment_benefit));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'unemployment_benefit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_general_benefit_composite_params = NULL;

        rc = MB_Create(&b_general_benefit, sizeof(m_general_benefit));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'general_benefit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_fund_request_composite_params = NULL;

        rc = MB_Create(&b_fund_request, sizeof(m_fund_request));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'fund_request' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_fund_request_ack_composite_params = NULL;

        rc = MB_Create(&b_fund_request_ack, sizeof(m_fund_request_ack));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'fund_request_ack' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_new_entrant_loan_composite_params = NULL;

        rc = MB_Create(&b_new_entrant_loan, sizeof(m_new_entrant_loan));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'new_entrant_loan' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_firm_bank_interest_on_loan_composite_params = NULL;

        rc = MB_Create(&b_firm_bank_interest_on_loan, sizeof(m_firm_bank_interest_on_loan));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'firm_bank_interest_on_loan' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_loan_writeoff_composite_params = NULL;

        rc = MB_Create(&b_loan_writeoff, sizeof(m_loan_writeoff));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'loan_writeoff' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_firm_bank_insolvent_account_composite_params = NULL;

        rc = MB_Create(&b_firm_bank_insolvent_account, sizeof(m_firm_bank_insolvent_account));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'firm_bank_insolvent_account' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_firm_net_profit_composite_params = NULL;

        rc = MB_Create(&b_firm_net_profit, sizeof(m_firm_net_profit));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'firm_net_profit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_bank_net_profit_composite_params = NULL;

        rc = MB_Create(&b_bank_net_profit, sizeof(m_bank_net_profit));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'bank_net_profit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_bank_centralbank_interest_payment_composite_params = NULL;

        rc = MB_Create(&b_bank_centralbank_interest_payment, sizeof(m_bank_centralbank_interest_payment));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'bank_centralbank_interest_payment' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_bank_centralbank_debt_payment_composite_params = NULL;

        rc = MB_Create(&b_bank_centralbank_debt_payment, sizeof(m_bank_centralbank_debt_payment));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'bank_centralbank_debt_payment' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_gov_centralbank_debt_request_composite_params = NULL;

        rc = MB_Create(&b_gov_centralbank_debt_request, sizeof(m_gov_centralbank_debt_request));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'gov_centralbank_debt_request' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_gov_centralbank_debt_payment_composite_params = NULL;

        rc = MB_Create(&b_gov_centralbank_debt_payment, sizeof(m_gov_centralbank_debt_payment));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'gov_centralbank_debt_payment' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_centralbank_government_profit_composite_params = NULL;

        rc = MB_Create(&b_centralbank_government_profit, sizeof(m_centralbank_government_profit));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'centralbank_government_profit' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_housing_price_composite_params = NULL;

        rc = MB_Create(&b_housing_price, sizeof(m_housing_price));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'housing_price' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_buy_housing_composite_params = NULL;

        rc = MB_Create(&b_buy_housing, sizeof(m_buy_housing));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'buy_housing' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_sell_housing_composite_params = NULL;

        rc = MB_Create(&b_sell_housing, sizeof(m_sell_housing));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'sell_housing' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_bought_housing_composite_params = NULL;

        rc = MB_Create(&b_bought_housing, sizeof(m_bought_housing));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'bought_housing' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_sold_housing_composite_params = NULL;

        rc = MB_Create(&b_sold_housing, sizeof(m_sold_housing));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'sold_housing' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_bank_reagency_credibility_composite_params = NULL;

        rc = MB_Create(&b_bank_reagency_credibility, sizeof(m_bank_reagency_credibility));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'bank_reagency_credibility' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_mortgage_requests_composite_params = NULL;

        rc = MB_Create(&b_mortgage_requests, sizeof(m_mortgage_requests));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'mortgage_requests' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_mortgage_payment_from_sale_composite_params = NULL;

        rc = MB_Create(&b_mortgage_payment_from_sale, sizeof(m_mortgage_payment_from_sale));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'mortgage_payment_from_sale' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_mortgage_payment_composite_params = NULL;

        rc = MB_Create(&b_mortgage_payment, sizeof(m_mortgage_payment));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'mortgage_payment' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_mortgage_writeoff_composite_params = NULL;

        rc = MB_Create(&b_mortgage_writeoff, sizeof(m_mortgage_writeoff));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'mortgage_writeoff' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    /* Initialise message sync composite params as NULL */
    FLAME_m_housing_transactions_summary_composite_params = NULL;

        rc = MB_Create(&b_housing_transactions_summary, sizeof(m_housing_transactions_summary));
        #ifdef ERRCHECK
        if (rc != MB_SUCCESS)
        {
           fprintf(stderr, "ERROR: Could not create 'housing_transactions_summary' board\n");
           switch(rc) {
               case MB_ERR_INVALID:
                   fprintf(stderr, "\t reason: Invalid message size\n");
                   break;
               case MB_ERR_MEMALLOC:
                   fprintf(stderr, "\t reason: out of memory\n");
                   break;
               case MB_ERR_INTERNAL:
                   fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
                   break;
               default:
                   fprintf(stderr, "\t MB_Create returned error code: %d (see libmboard docs for details)\n", rc);
                   break;
           }

           
           exit(rc);
        }
        #endif
    
    firm_FirmHousingPrice_state = init_firm_state();

    firm_FirmHousingSell_state = init_firm_state();

    firm_FirmHousingMarket_state = init_firm_state();

    firm_FirmCreditCheckTaxRate_state = init_firm_state();

    firm_end_state = init_firm_state();

    firm_FirmCreditInsolvencyCheck_state = init_firm_state();

    firm_FirmCreditDividendPayments_state = init_firm_state();

    firm_FirmCreditBalanceSheet_state = init_firm_state();

    firm_FirmCreditBankruptcy_state = init_firm_state();

    firm_FirmCreditLiquidityRecheck_state = init_firm_state();

    firm_FirmCreditIlliquidityStatus_state = init_firm_state();

    firm_FirmCreditLoanBorrow2_state = init_firm_state();

    firm_FirmCreditLoanBorrow1_state = init_firm_state();

    firm_FirmCreditPayments_state = init_firm_state();

    firm_FirmCreditStatus_state = init_firm_state();

    firm_FirmCreditLiquidityNeed_state = init_firm_state();

    firm_FirmCreditComputeDividends_state = init_firm_state();

    firm_FirmCreditInvestment_state = init_firm_state();

    firm_FirmConstructionLabourDemand_state = init_firm_state();

    firm_FirmProductionLabourDemand_state = init_firm_state();

    firm_FirmProductionPlanning_state = init_firm_state();

    firm_FirmProductionConstructor_state = init_firm_state();

    firm_FirmProductionRegular_state = init_firm_state();

    firm_FirmProductionRoleCheck_state = init_firm_state();

    firm_FirmProductionSkip_state = init_firm_state();

    firm_FirmProductionStart_state = init_firm_state();

    firm_FirmLabourWageAdjustment_state = init_firm_state();

    firm_FirmLabourPayWages_state = init_firm_state();

    firm_FirmLabourStage2End_state = init_firm_state();

    firm_FirmLabourStage2_state = init_firm_state();

    firm_FirmLabourStage1Application_state = init_firm_state();

    firm_FirmLabourStage1End_state = init_firm_state();

    firm_FirmLabourStage1_state = init_firm_state();

    firm_FirmLabourStart_state = init_firm_state();

    firm_FirmConsumptionPrice_state = init_firm_state();

    firm_FirmReceiveSales_state = init_firm_state();

    firm_FirmConsumptionMarket_state = init_firm_state();

    firm_FirmHousingStart_state = init_firm_state();

    firm_FirmConsumptionStart_state = init_firm_state();

    firm_FirmCreditPolicyChecks_state = init_firm_state();

    firm_FirmUpdateDeposits_state = init_firm_state();

    firm_FirmCreditStart_state = init_firm_state();

    firm_FirmInitBalanceSheet_state = init_firm_state();

    firm_FirmInitEmployment_state = init_firm_state();

    firm_FirmLoop_state = init_firm_state();

    firm_FirmInitPostId_state = init_firm_state();

    firm_start_state = init_firm_state();

    household_HHHousingWriteOff_state = init_household_state();

    household_HHHousingPayments_state = init_household_state();

    household_HHHousingBargain_state = init_household_state();

    household_HHHousingRevenue_state = init_household_state();

    household_HHHousingCheckWealth_state = init_household_state();

    household_HHHousingPrice_state = init_household_state();

    household_HHHousingRole_state = init_household_state();

    household_HHCreditCheckTaxRate_state = init_household_state();

    household_HHCreditUpdateAnnuity_state = init_household_state();

    household_end_state = init_household_state();

    household_HHCreditBalanceSheet_state = init_household_state();

    household_HHCreditIsCapitalist_state = init_household_state();

    household_HHCreditMonthly_state = init_household_state();

    household_HHLabourEmploymentStatus_state = init_household_state();

    household_HHLabourPayroll_state = init_household_state();

    household_HHLabourStage1Placement_state = init_household_state();

    household_HHLabourStage1Applications_state = init_household_state();

    household_HHLabourStage2_state = init_household_state();

    household_HHLabourStage1_state = init_household_state();

    household_HHLabourStart_state = init_household_state();

    household_HHHousingStart_state = init_household_state();

    household_HHConsumptionRecieveGoods_state = init_household_state();

    household_HHConsumptionMonthly_state = init_household_state();

    household_HHConsumptionWeekly_state = init_household_state();

    household_HHConsumptionStart_state = init_household_state();

    household_HHCreditPolicyChecks_state = init_household_state();

    household_HouseholdUpdateDeposits_state = init_household_state();

    household_HHCreditStart_state = init_household_state();

    household_HouseholdInitBalanceSheet_state = init_household_state();

    household_HouseholdInitEmployment_state = init_household_state();

    household_HouseholdLoop_state = init_household_state();

    household_HouseholdInitPostId_state = init_household_state();

    household_start_state = init_household_state();

    equityfund_EFCreditPolicyChecks_state = init_equityfund_state();

    equityfund_EFCreditBalanceSheet_state = init_equityfund_state();

    equityfund_end_state = init_equityfund_state();

    equityfund_EFCreditDistributeShares_state = init_equityfund_state();

    equityfund_EFCreditShareCollectionFirms_state = init_equityfund_state();

    equityfund_EFCreditShareCollectionBanks_state = init_equityfund_state();

    equityfund_EFCreditIncomeStatement_state = init_equityfund_state();

    equityfund_EFLabourMarket_state = init_equityfund_state();

    equityfund_EquityFundCredit_state = init_equityfund_state();

    equityfund_EquityFundLoop_state = init_equityfund_state();

    equityfund_start_state = init_equityfund_state();

    bank_BankHousingWriteOff_state = init_bank_state();

    bank_BankHousingMortgages_state = init_bank_state();

    bank_BankHousingSales_state = init_bank_state();

    bank_BankHousingCrediting_state = init_bank_state();

    bank_end_state = init_bank_state();

    bank_BankCreditLoanInterests_state = init_bank_state();

    bank_BankCreditNewEntrants_state = init_bank_state();

    bank_BankCreditLoanWriteOffs_state = init_bank_state();

    bank_BankCreditRequest2_state = init_bank_state();

    bank_BankCreditRequest1_state = init_bank_state();

    bank_BankCreditBalanceSheet_state = init_bank_state();

    bank_BankCreditDividends_state = init_bank_state();

    bank_BankHousingMarket_state = init_bank_state();

    bank_BankCreditPolicyChecks_state = init_bank_state();

    bank_BankUpdateDeposits_state = init_bank_state();

    bank_BankCreditStart_state = init_bank_state();

    bank_BankInitBalanceSheet_state = init_bank_state();

    bank_BankInitDeposits_state = init_bank_state();

    bank_BankInitMortgages_state = init_bank_state();

    bank_BankLoop_state = init_bank_state();

    bank_BankInitLoans_state = init_bank_state();

    bank_start_state = init_bank_state();

    government_GovernmentUpdatePolicy_state = init_government_state();

    government_GovernmentBalanceSheet_state = init_government_state();

    government_GovernmentIncomeStatement_state = init_government_state();

    government_end_state = init_government_state();

    government_GovernmentLabourTax_state = init_government_state();

    government_GovernmentUnemploymentBenefits_state = init_government_state();

    government_GovernmentMonthly_state = init_government_state();

    government_GovernmentFiscalPolicy_state = init_government_state();

    government_GovernmentLabourStatus_state = init_government_state();

    government_GovernmentCredit_state = init_government_state();

    government_GovernmentLoop_state = init_government_state();

    government_start_state = init_government_state();

    centralbank_CentralBankUpdateInterestRate_state = init_centralbank_state();

    centralbank_CentralBankBalanceSheet_state = init_centralbank_state();

    centralbank_CentralBankGovernmentRequests_state = init_centralbank_state();

    centralbank_end_state = init_centralbank_state();

    centralbank_CentralBankDebtRequests_state = init_centralbank_state();

    centralbank_CentralBankPolicy_state = init_centralbank_state();

    centralbank_CentralBankLabour_state = init_centralbank_state();

    centralbank_CentralBankHousing_state = init_centralbank_state();

    centralbank_CentralBankConsumptionPrices_state = init_centralbank_state();

    centralbank_CentralBankConsumption_state = init_centralbank_state();

    centralbank_CentralBankCredit_state = init_centralbank_state();

    centralbank_CentralBankLoop_state = init_centralbank_state();

    centralbank_CentralBankInitBalanceSheet_state = init_centralbank_state();

    centralbank_start_state = init_centralbank_state();

    jpoffice_JPOLabourStage2_state = init_jpoffice_state();

    jpoffice_end_state = init_jpoffice_state();

    jpoffice_JPOLabourMarket_state = init_jpoffice_state();

    jpoffice_JPOfficeLoop_state = init_jpoffice_state();

    jpoffice_JPOfficeInitEmployment_state = init_jpoffice_state();

    jpoffice_start_state = init_jpoffice_state();

    mall_MallConsumptionSummary_state = init_mall_state();

    mall_end_state = init_mall_state();

    mall_MallConsumptionMarket_state = init_mall_state();

    mall_start_state = init_mall_state();

    reagency_REAgencyHousingSummary_state = init_reagency_state();

    reagency_end_state = init_reagency_state();

    reagency_REAgencyCreditPolicyChecks_state = init_reagency_state();

    reagency_REAgencyHousingMarket_state = init_reagency_state();

    reagency_start_state = init_reagency_state();

    temp_node_info = NULL;
    p_node_info = &temp_node_info;
}

void initialise_unit_testing()
{
    int rc;

    rc = MB_Env_Init();
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Failed to initialise Message Board environment\n");
       switch(rc) {
           case MB_ERR_MPI:
               fprintf(stderr, "\t reason: MPI library not initialised\n");
               break;
           case MB_ERR_MEMALLOC:
               fprintf(stderr, "\t reason: out of memory\n");
               break;
           default:
               fprintf(stderr, "\t MB_Env_Init returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);

    }
    #endif

    initialise_pointers();
}

FLAME_output * add_FLAME_output(FLAME_output ** outputs)
{
    FLAME_output * current;

    current = (FLAME_output *)malloc(sizeof(FLAME_output));
    CHECK_POINTER(current);
    current->next = *outputs;
    *outputs = current;

    current->type = -1;
    current->format = -1;
    current->location = NULL;
    current->period = -1;
    current->phase = -1;
    current->flag = 0;

    return current;
}

void free_FLAME_outputs(FLAME_output ** outputs)
{
    FLAME_output * current, * next;

    current = *outputs;
    while(current)
    {
        next = current->next;
        free(current->location);
        free(current);
        current = next;
    }
    *outputs = NULL;
}

/* add_location */
void add_location(double point, location ** p_location)
{
    location * current = *p_location;
    location * tmp = NULL;
    location * newlocation = NULL;
    int found = 0;

    while(found == 0)
    {
        if(current == NULL) found = 1;
        else if(point > current->point) found = 1;
        else
        {
            tmp = current;
            current = current->next;
        }
    }

    newlocation = (location *)malloc(sizeof(location));
    CHECK_POINTER(newlocation);
    if(tmp)
    {
        tmp->next = newlocation;
    }
    else
    {
        *p_location = newlocation;
    }

    newlocation->next = current;
    newlocation->point = point;
}

/* freelocations */
void freelocations(location ** p_location)
{
    location * head = *p_location;
    location * tmp = NULL;

    while(head)
    {
        tmp = head->next;
        free(head);
        head = tmp;
    }

    *p_location = NULL;
}

void init_int_static_array(/*@out@*/ int * array, int size)
{
    int i;

    for(i = 0; i < size; i++) array[i] = 0;
}

void init_float_static_array(/*@out@*/ float * array, int size)
{
    int i;

    for(i = 0; i < size; i++) array[i] = 0.0;
}

void init_double_static_array(/*@out@*/ double* array, int size)
{
    int i;

    for(i = 0; i < size; i++) array[i] = 0.0;
}

void init_char_static_array(/*@out@*/ char * array, int size)
{
    int i;

    for(i = 0; i < size; i++) array[i] = '\0';
}



void init_transaction(/*@out@*/ transaction * temp)
{
    (*temp).quantity = 0;
    (*temp).avg_price = 0.0;

}

void init_transaction_static_array(/*@out@*/ transaction * array, int size)
{
    int i;

    for(i = 0; i < size; i++) init_transaction(&array[i]);
}

void free_transaction(transaction * temp)
{

}

void free_transaction_static_array(transaction * array, int size)
{
    int i;

    for(i = 0; i < size; i++) free_transaction(&array[i]);
}

void copy_transaction(transaction * from, transaction * to)
{
    (*to).quantity = (*from).quantity;
    (*to).avg_price = (*from).avg_price;
}

void copy_transaction_static_array(transaction * from, transaction * to, int size)
{
    int i;

    for(i = 0; i < size; i++)
    {
        copy_transaction(&from[i], &to[i]);
    }
}


void init_buyer(/*@out@*/ buyer * temp)
{
    (*temp).id = 0;
    (*temp).budget = 0.0;

}

void init_buyer_static_array(/*@out@*/ buyer * array, int size)
{
    int i;

    for(i = 0; i < size; i++) init_buyer(&array[i]);
}

void free_buyer(buyer * temp)
{

}

void free_buyer_static_array(buyer * array, int size)
{
    int i;

    for(i = 0; i < size; i++) free_buyer(&array[i]);
}

void copy_buyer(buyer * from, buyer * to)
{
    (*to).id = (*from).id;
    (*to).budget = (*from).budget;
}

void copy_buyer_static_array(buyer * from, buyer * to, int size)
{
    int i;

    for(i = 0; i < size; i++)
    {
        copy_buyer(&from[i], &to[i]);
    }
}


void init_seller(/*@out@*/ seller * temp)
{
    (*temp).id = 0;
    (*temp).price = 0.0;
    (*temp).inventory = 0;
    (*temp).inv_price = 0.0;

}

void init_seller_static_array(/*@out@*/ seller * array, int size)
{
    int i;

    for(i = 0; i < size; i++) init_seller(&array[i]);
}

void free_seller(seller * temp)
{

}

void free_seller_static_array(seller * array, int size)
{
    int i;

    for(i = 0; i < size; i++) free_seller(&array[i]);
}

void copy_seller(seller * from, seller * to)
{
    (*to).id = (*from).id;
    (*to).price = (*from).price;
    (*to).inventory = (*from).inventory;
    (*to).inv_price = (*from).inv_price;
}

void copy_seller_static_array(seller * from, seller * to, int size)
{
    int i;

    for(i = 0; i < size; i++)
    {
        copy_seller(&from[i], &to[i]);
    }
}


void init_vacancy(/*@out@*/ vacancy * temp)
{
    (*temp).id = 0;
    (*temp).wage = 0.0;

}

void init_vacancy_static_array(/*@out@*/ vacancy * array, int size)
{
    int i;

    for(i = 0; i < size; i++) init_vacancy(&array[i]);
}

void free_vacancy(vacancy * temp)
{

}

void free_vacancy_static_array(vacancy * array, int size)
{
    int i;

    for(i = 0; i < size; i++) free_vacancy(&array[i]);
}

void copy_vacancy(vacancy * from, vacancy * to)
{
    (*to).id = (*from).id;
    (*to).wage = (*from).wage;
}

void copy_vacancy_static_array(vacancy * from, vacancy * to, int size)
{
    int i;

    for(i = 0; i < size; i++)
    {
        copy_vacancy(&from[i], &to[i]);
    }
}


void init_employee(/*@out@*/ employee * temp)
{
    (*temp).id = 0;
    (*temp).wage = 0.0;

}

void init_employee_static_array(/*@out@*/ employee * array, int size)
{
    int i;

    for(i = 0; i < size; i++) init_employee(&array[i]);
}

void free_employee(employee * temp)
{

}

void free_employee_static_array(employee * array, int size)
{
    int i;

    for(i = 0; i < size; i++) free_employee(&array[i]);
}

void copy_employee(employee * from, employee * to)
{
    (*to).id = (*from).id;
    (*to).wage = (*from).wage;
}

void copy_employee_static_array(employee * from, employee * to, int size)
{
    int i;

    for(i = 0; i < size; i++)
    {
        copy_employee(&from[i], &to[i]);
    }
}


void init_mortgage(/*@out@*/ mortgage * temp)
{
    (*temp).bank_id = 0;
    (*temp).principal = 0.0;
    (*temp).quarters_left = 0;
    (*temp).quarterly_interest = 0.0;
    (*temp).quarterly_principal = 0.0;
    (*temp).interestrate = 0.0;
    (*temp).mtype = 0;

}

void init_mortgage_static_array(/*@out@*/ mortgage * array, int size)
{
    int i;

    for(i = 0; i < size; i++) init_mortgage(&array[i]);
}

void free_mortgage(mortgage * temp)
{

}

void free_mortgage_static_array(mortgage * array, int size)
{
    int i;

    for(i = 0; i < size; i++) free_mortgage(&array[i]);
}

void copy_mortgage(mortgage * from, mortgage * to)
{
    (*to).bank_id = (*from).bank_id;
    (*to).principal = (*from).principal;
    (*to).quarters_left = (*from).quarters_left;
    (*to).quarterly_interest = (*from).quarterly_interest;
    (*to).quarterly_principal = (*from).quarterly_principal;
    (*to).interestrate = (*from).interestrate;
    (*to).mtype = (*from).mtype;
}

void copy_mortgage_static_array(mortgage * from, mortgage * to, int size)
{
    int i;

    for(i = 0; i < size; i++)
    {
        copy_mortgage(&from[i], &to[i]);
    }
}


void init_loan(/*@out@*/ loan * temp)
{
    (*temp).bank_id = 0;
    (*temp).amount = 0.0;
    (*temp).to_be_paid = 0.0;

}

void init_loan_static_array(/*@out@*/ loan * array, int size)
{
    int i;

    for(i = 0; i < size; i++) init_loan(&array[i]);
}

void free_loan(loan * temp)
{

}

void free_loan_static_array(loan * array, int size)
{
    int i;

    for(i = 0; i < size; i++) free_loan(&array[i]);
}

void copy_loan(loan * from, loan * to)
{
    (*to).bank_id = (*from).bank_id;
    (*to).amount = (*from).amount;
    (*to).to_be_paid = (*from).to_be_paid;
}

void copy_loan_static_array(loan * from, loan * to, int size)
{
    int i;

    for(i = 0; i < size; i++)
    {
        copy_loan(&from[i], &to[i]);
    }
}


void init_hbuyer(/*@out@*/ hbuyer * temp)
{
    (*temp).buyer_id = 0;
    (*temp).bank_id = 0;
    (*temp).liquidity = 0.0;
    (*temp).quarterly_income = 0.0;
    (*temp).quarterly_mortgage_paid = 0.0;
    (*temp).choice = 0;

}

void init_hbuyer_static_array(/*@out@*/ hbuyer * array, int size)
{
    int i;

    for(i = 0; i < size; i++) init_hbuyer(&array[i]);
}

void free_hbuyer(hbuyer * temp)
{

}

void free_hbuyer_static_array(hbuyer * array, int size)
{
    int i;

    for(i = 0; i < size; i++) free_hbuyer(&array[i]);
}

void copy_hbuyer(hbuyer * from, hbuyer * to)
{
    (*to).buyer_id = (*from).buyer_id;
    (*to).bank_id = (*from).bank_id;
    (*to).liquidity = (*from).liquidity;
    (*to).quarterly_income = (*from).quarterly_income;
    (*to).quarterly_mortgage_paid = (*from).quarterly_mortgage_paid;
    (*to).choice = (*from).choice;
}

void copy_hbuyer_static_array(hbuyer * from, hbuyer * to, int size)
{
    int i;

    for(i = 0; i < size; i++)
    {
        copy_hbuyer(&from[i], &to[i]);
    }
}


void init_hseller(/*@out@*/ hseller * temp)
{
    (*temp).seller_id = 0;
    (*temp).price = 0.0;
    (*temp).quantity = 0;
    (*temp).type = 0;

}

void init_hseller_static_array(/*@out@*/ hseller * array, int size)
{
    int i;

    for(i = 0; i < size; i++) init_hseller(&array[i]);
}

void free_hseller(hseller * temp)
{

}

void free_hseller_static_array(hseller * array, int size)
{
    int i;

    for(i = 0; i < size; i++) free_hseller(&array[i]);
}

void copy_hseller(hseller * from, hseller * to)
{
    (*to).seller_id = (*from).seller_id;
    (*to).price = (*from).price;
    (*to).quantity = (*from).quantity;
    (*to).type = (*from).type;
}

void copy_hseller_static_array(hseller * from, hseller * to, int size)
{
    int i;

    for(i = 0; i < size; i++)
    {
        copy_hseller(&from[i], &to[i]);
    }
}


void init_hbank(/*@out@*/ hbank * temp)
{
    (*temp).id = 0;
    (*temp).equity = 0.0;
    (*temp).risky_assets = 0.0;
    (*temp).amount_mortgaged = 0.0;

}

void init_hbank_static_array(/*@out@*/ hbank * array, int size)
{
    int i;

    for(i = 0; i < size; i++) init_hbank(&array[i]);
}

void free_hbank(hbank * temp)
{

}

void free_hbank_static_array(hbank * array, int size)
{
    int i;

    for(i = 0; i < size; i++) free_hbank(&array[i]);
}

void copy_hbank(hbank * from, hbank * to)
{
    (*to).id = (*from).id;
    (*to).equity = (*from).equity;
    (*to).risky_assets = (*from).risky_assets;
    (*to).amount_mortgaged = (*from).amount_mortgaged;
}

void copy_hbank_static_array(hbank * from, hbank * to, int size)
{
    int i;

    for(i = 0; i < size; i++)
    {
        copy_hbank(&from[i], &to[i]);
    }
}



xmachine_memory_firm_state * init_firm_state()
{
    xmachine_memory_firm_state * current = (xmachine_memory_firm_state *)malloc(sizeof(xmachine_memory_firm_state));
    CHECK_POINTER(current);

    current->agents = NULL;
    current->count = 0;

    return current;
}

xmachine_memory_firm * init_firm_agent()
{
    xmachine_memory_firm * current = (xmachine_memory_firm *)malloc(sizeof(xmachine_memory_firm));
    CHECK_POINTER(current);

    current->id = 0;
    current->bank_id = 0;
    current->isconstructor = 0;
    current->day_of_month_to_act = 0;
    current->isinsolvent = 0;
    current->it_no = 0;
    current->day_of_week_to_act = 0;
    current->average_goods_price = 0.0;
    init_int_array(&current->employees);
    current->manager = 0;
    current->wage_offer = 0.0;
    current->average_wage = 0.0;
    current->no_employees = 0;
    current->vacancies = 0;
    current->employees_needed = 0;
    current->day_of_month_wages_paid = 0;
    current->labour_productivity = 0.0;
    current->capital_productivity = 0.0;
    current->capital_goods = 0;
    current->capital_goods_price = 0.0;
    current->production_current = 0;
    current->expected_sales = 0;
    current->production_plan = 0;
    current->unit_goods_price = 0.0;
    current->unit_cost = 0.0;
    current->day_of_month_production_completed = 0;
    current->unit_house_price = 0.0;
    init_int_static_array(current->projects, 12);
    current->loans_interest_rate = 0.0;
    current->debt = 0.0;
    current->inventory = 0;
    current->sales = 0;
    current->revenues = 0.0;
    current->total_assets = 0.0;
    current->operating_costs = 0.0;
    current->labour_costs = 0.0;
    current->total_interest_payments = 0.0;
    current->dividends_paid = 0.0;
    current->dividends_to_be_paid = 0.0;
    current->retained_earnings = 0.0;
    current->net_earnings = 0.0;
    current->ebit = 0.0;
    current->equity = 0.0;
    current->liquidity = 0.0;
    current->isliquidshort = 0;
    current->hasloan = 0;
    current->hasinvestment = 0;
    current->isilliquid = 0;
    current->planned_investment_costs = 0.0;
    current->liquidity_need = 0.0;
    init_loan_static_array(current->loan_list, 2);
    current->labour_tax_rate = 0.0;
    current->delta_housing_price = 0.0;

    return current;
}

void free_firm_agent(xmachine_memory_firm_holder * tmp, xmachine_memory_firm_state * state)
{
    if(tmp->prev == NULL) state->agents = tmp->next;
    else tmp->prev->next = tmp->next;
    if(tmp->next != NULL) tmp->next->prev = tmp->prev;

    free_int_array(&tmp->agent->employees);
    free_loan_static_array(tmp->agent->loan_list, 2);
    

    free(tmp->agent);
    free(tmp);
}

void unittest_init_firm_agent()
{
    current_xmachine_firm = (xmachine_memory_firm *)malloc(sizeof(xmachine_memory_firm));
    CHECK_POINTER(current);

        current_xmachine_firm->id = 0;
        current_xmachine_firm->bank_id = 0;
        current_xmachine_firm->isconstructor = 0;
        current_xmachine_firm->day_of_month_to_act = 0;
        current_xmachine_firm->isinsolvent = 0;
        current_xmachine_firm->it_no = 0;
        current_xmachine_firm->day_of_week_to_act = 0;
        current_xmachine_firm->average_goods_price = 0.0;
        init_int_array(&current_xmachine_firm->employees);
        current_xmachine_firm->manager = 0;
        current_xmachine_firm->wage_offer = 0.0;
        current_xmachine_firm->average_wage = 0.0;
        current_xmachine_firm->no_employees = 0;
        current_xmachine_firm->vacancies = 0;
        current_xmachine_firm->employees_needed = 0;
        current_xmachine_firm->day_of_month_wages_paid = 0;
        current_xmachine_firm->labour_productivity = 0.0;
        current_xmachine_firm->capital_productivity = 0.0;
        current_xmachine_firm->capital_goods = 0;
        current_xmachine_firm->capital_goods_price = 0.0;
        current_xmachine_firm->production_current = 0;
        current_xmachine_firm->expected_sales = 0;
        current_xmachine_firm->production_plan = 0;
        current_xmachine_firm->unit_goods_price = 0.0;
        current_xmachine_firm->unit_cost = 0.0;
        current_xmachine_firm->day_of_month_production_completed = 0;
        current_xmachine_firm->unit_house_price = 0.0;
        init_int_static_array(current_xmachine_firm->projects, 12);
        current_xmachine_firm->loans_interest_rate = 0.0;
        current_xmachine_firm->debt = 0.0;
        current_xmachine_firm->inventory = 0;
        current_xmachine_firm->sales = 0;
        current_xmachine_firm->revenues = 0.0;
        current_xmachine_firm->total_assets = 0.0;
        current_xmachine_firm->operating_costs = 0.0;
        current_xmachine_firm->labour_costs = 0.0;
        current_xmachine_firm->total_interest_payments = 0.0;
        current_xmachine_firm->dividends_paid = 0.0;
        current_xmachine_firm->dividends_to_be_paid = 0.0;
        current_xmachine_firm->retained_earnings = 0.0;
        current_xmachine_firm->net_earnings = 0.0;
        current_xmachine_firm->ebit = 0.0;
        current_xmachine_firm->equity = 0.0;
        current_xmachine_firm->liquidity = 0.0;
        current_xmachine_firm->isliquidshort = 0;
        current_xmachine_firm->hasloan = 0;
        current_xmachine_firm->hasinvestment = 0;
        current_xmachine_firm->isilliquid = 0;
        current_xmachine_firm->planned_investment_costs = 0.0;
        current_xmachine_firm->liquidity_need = 0.0;
        init_loan_static_array(current_xmachine_firm->loan_list, 2);
        current_xmachine_firm->labour_tax_rate = 0.0;
        current_xmachine_firm->delta_housing_price = 0.0;
    
}

void unittest_free_firm_agent()
{
    free_int_array(&current_xmachine_firm->employees);
    free_loan_static_array(current_xmachine_firm->loan_list, 2);
    
    free(current_xmachine_firm);
}

void free_firm_agents()
{
    current_xmachine_firm_holder = firm_FirmHousingPrice_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmHousingPrice_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmHousingPrice_state->count = 0;
    current_xmachine_firm_holder = firm_FirmHousingSell_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmHousingSell_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmHousingSell_state->count = 0;
    current_xmachine_firm_holder = firm_FirmHousingMarket_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmHousingMarket_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmHousingMarket_state->count = 0;
    current_xmachine_firm_holder = firm_FirmCreditCheckTaxRate_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmCreditCheckTaxRate_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmCreditCheckTaxRate_state->count = 0;
    current_xmachine_firm_holder = firm_end_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_end_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_end_state->count = 0;
    current_xmachine_firm_holder = firm_FirmCreditInsolvencyCheck_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmCreditInsolvencyCheck_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmCreditInsolvencyCheck_state->count = 0;
    current_xmachine_firm_holder = firm_FirmCreditDividendPayments_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmCreditDividendPayments_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmCreditDividendPayments_state->count = 0;
    current_xmachine_firm_holder = firm_FirmCreditBalanceSheet_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmCreditBalanceSheet_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmCreditBalanceSheet_state->count = 0;
    current_xmachine_firm_holder = firm_FirmCreditBankruptcy_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmCreditBankruptcy_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmCreditBankruptcy_state->count = 0;
    current_xmachine_firm_holder = firm_FirmCreditLiquidityRecheck_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmCreditLiquidityRecheck_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmCreditLiquidityRecheck_state->count = 0;
    current_xmachine_firm_holder = firm_FirmCreditIlliquidityStatus_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmCreditIlliquidityStatus_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmCreditIlliquidityStatus_state->count = 0;
    current_xmachine_firm_holder = firm_FirmCreditLoanBorrow2_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmCreditLoanBorrow2_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmCreditLoanBorrow2_state->count = 0;
    current_xmachine_firm_holder = firm_FirmCreditLoanBorrow1_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmCreditLoanBorrow1_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmCreditLoanBorrow1_state->count = 0;
    current_xmachine_firm_holder = firm_FirmCreditPayments_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmCreditPayments_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmCreditPayments_state->count = 0;
    current_xmachine_firm_holder = firm_FirmCreditStatus_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmCreditStatus_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmCreditStatus_state->count = 0;
    current_xmachine_firm_holder = firm_FirmCreditLiquidityNeed_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmCreditLiquidityNeed_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmCreditLiquidityNeed_state->count = 0;
    current_xmachine_firm_holder = firm_FirmCreditComputeDividends_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmCreditComputeDividends_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmCreditComputeDividends_state->count = 0;
    current_xmachine_firm_holder = firm_FirmCreditInvestment_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmCreditInvestment_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmCreditInvestment_state->count = 0;
    current_xmachine_firm_holder = firm_FirmConstructionLabourDemand_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmConstructionLabourDemand_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmConstructionLabourDemand_state->count = 0;
    current_xmachine_firm_holder = firm_FirmProductionLabourDemand_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmProductionLabourDemand_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmProductionLabourDemand_state->count = 0;
    current_xmachine_firm_holder = firm_FirmProductionPlanning_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmProductionPlanning_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmProductionPlanning_state->count = 0;
    current_xmachine_firm_holder = firm_FirmProductionConstructor_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmProductionConstructor_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmProductionConstructor_state->count = 0;
    current_xmachine_firm_holder = firm_FirmProductionRegular_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmProductionRegular_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmProductionRegular_state->count = 0;
    current_xmachine_firm_holder = firm_FirmProductionRoleCheck_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmProductionRoleCheck_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmProductionRoleCheck_state->count = 0;
    current_xmachine_firm_holder = firm_FirmProductionSkip_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmProductionSkip_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmProductionSkip_state->count = 0;
    current_xmachine_firm_holder = firm_FirmProductionStart_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmProductionStart_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmProductionStart_state->count = 0;
    current_xmachine_firm_holder = firm_FirmLabourWageAdjustment_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmLabourWageAdjustment_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmLabourWageAdjustment_state->count = 0;
    current_xmachine_firm_holder = firm_FirmLabourPayWages_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmLabourPayWages_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmLabourPayWages_state->count = 0;
    current_xmachine_firm_holder = firm_FirmLabourStage2End_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmLabourStage2End_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmLabourStage2End_state->count = 0;
    current_xmachine_firm_holder = firm_FirmLabourStage2_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmLabourStage2_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmLabourStage2_state->count = 0;
    current_xmachine_firm_holder = firm_FirmLabourStage1Application_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmLabourStage1Application_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmLabourStage1Application_state->count = 0;
    current_xmachine_firm_holder = firm_FirmLabourStage1End_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmLabourStage1End_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmLabourStage1End_state->count = 0;
    current_xmachine_firm_holder = firm_FirmLabourStage1_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmLabourStage1_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmLabourStage1_state->count = 0;
    current_xmachine_firm_holder = firm_FirmLabourStart_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmLabourStart_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmLabourStart_state->count = 0;
    current_xmachine_firm_holder = firm_FirmConsumptionPrice_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmConsumptionPrice_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmConsumptionPrice_state->count = 0;
    current_xmachine_firm_holder = firm_FirmReceiveSales_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmReceiveSales_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmReceiveSales_state->count = 0;
    current_xmachine_firm_holder = firm_FirmConsumptionMarket_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmConsumptionMarket_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmConsumptionMarket_state->count = 0;
    current_xmachine_firm_holder = firm_FirmHousingStart_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmHousingStart_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmHousingStart_state->count = 0;
    current_xmachine_firm_holder = firm_FirmConsumptionStart_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmConsumptionStart_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmConsumptionStart_state->count = 0;
    current_xmachine_firm_holder = firm_FirmCreditPolicyChecks_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmCreditPolicyChecks_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmCreditPolicyChecks_state->count = 0;
    current_xmachine_firm_holder = firm_FirmUpdateDeposits_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmUpdateDeposits_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmUpdateDeposits_state->count = 0;
    current_xmachine_firm_holder = firm_FirmCreditStart_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmCreditStart_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmCreditStart_state->count = 0;
    current_xmachine_firm_holder = firm_FirmInitBalanceSheet_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmInitBalanceSheet_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmInitBalanceSheet_state->count = 0;
    current_xmachine_firm_holder = firm_FirmInitEmployment_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmInitEmployment_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmInitEmployment_state->count = 0;
    current_xmachine_firm_holder = firm_FirmLoop_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmLoop_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmLoop_state->count = 0;
    current_xmachine_firm_holder = firm_FirmInitPostId_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_FirmInitPostId_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_FirmInitPostId_state->count = 0;
    current_xmachine_firm_holder = firm_start_state->agents;
    while(current_xmachine_firm_holder)
    {
        temp_xmachine_firm_holder = current_xmachine_firm_holder->next;
        free_firm_agent(current_xmachine_firm_holder, firm_start_state);
        current_xmachine_firm_holder = temp_xmachine_firm_holder;
    }
    firm_start_state->count = 0;
}

void free_firm_states()
{
    free(firm_FirmHousingPrice_state);
    free(firm_FirmHousingSell_state);
    free(firm_FirmHousingMarket_state);
    free(firm_FirmCreditCheckTaxRate_state);
    free(firm_end_state);
    free(firm_FirmCreditInsolvencyCheck_state);
    free(firm_FirmCreditDividendPayments_state);
    free(firm_FirmCreditBalanceSheet_state);
    free(firm_FirmCreditBankruptcy_state);
    free(firm_FirmCreditLiquidityRecheck_state);
    free(firm_FirmCreditIlliquidityStatus_state);
    free(firm_FirmCreditLoanBorrow2_state);
    free(firm_FirmCreditLoanBorrow1_state);
    free(firm_FirmCreditPayments_state);
    free(firm_FirmCreditStatus_state);
    free(firm_FirmCreditLiquidityNeed_state);
    free(firm_FirmCreditComputeDividends_state);
    free(firm_FirmCreditInvestment_state);
    free(firm_FirmConstructionLabourDemand_state);
    free(firm_FirmProductionLabourDemand_state);
    free(firm_FirmProductionPlanning_state);
    free(firm_FirmProductionConstructor_state);
    free(firm_FirmProductionRegular_state);
    free(firm_FirmProductionRoleCheck_state);
    free(firm_FirmProductionSkip_state);
    free(firm_FirmProductionStart_state);
    free(firm_FirmLabourWageAdjustment_state);
    free(firm_FirmLabourPayWages_state);
    free(firm_FirmLabourStage2End_state);
    free(firm_FirmLabourStage2_state);
    free(firm_FirmLabourStage1Application_state);
    free(firm_FirmLabourStage1End_state);
    free(firm_FirmLabourStage1_state);
    free(firm_FirmLabourStart_state);
    free(firm_FirmConsumptionPrice_state);
    free(firm_FirmReceiveSales_state);
    free(firm_FirmConsumptionMarket_state);
    free(firm_FirmHousingStart_state);
    free(firm_FirmConsumptionStart_state);
    free(firm_FirmCreditPolicyChecks_state);
    free(firm_FirmUpdateDeposits_state);
    free(firm_FirmCreditStart_state);
    free(firm_FirmInitBalanceSheet_state);
    free(firm_FirmInitEmployment_state);
    free(firm_FirmLoop_state);
    free(firm_FirmInitPostId_state);
    free(firm_start_state);
}

void transition_firm_agent(xmachine_memory_firm_holder * tmp, xmachine_memory_firm_state * from_state, xmachine_memory_firm_state * to_state)
{
    if(tmp->prev == NULL) from_state->agents = tmp->next;
    else tmp->prev->next = tmp->next;
    if(tmp->next != NULL) tmp->next->prev = tmp->prev;

    add_firm_agent_internal(tmp->agent, to_state);
    free(tmp);
}

void add_firm_agent_internal(xmachine_memory_firm * agent, xmachine_memory_firm_state * state)
{
    xmachine_memory_firm_holder * current = (xmachine_memory_firm_holder *)malloc(sizeof(xmachine_memory_firm_holder));
    CHECK_POINTER(current);

    current->next = state->agents;
    current->prev = NULL;
    state->agents = current;
    if(current->next != NULL) current->next->prev = current;
    current->agent = agent;

    state->count++;

}

void add_firm_agent(int id, int bank_id, int isconstructor, int day_of_month_to_act, int isinsolvent, int it_no, int day_of_week_to_act, double average_goods_price, int_array * employees, int manager, double wage_offer, double average_wage, int no_employees, int vacancies, int employees_needed, int day_of_month_wages_paid, double labour_productivity, double capital_productivity, int capital_goods, double capital_goods_price, int production_current, int expected_sales, int production_plan, double unit_goods_price, double unit_cost, int day_of_month_production_completed, double unit_house_price, int projects[], double loans_interest_rate, double debt, int inventory, int sales, double revenues, double total_assets, double operating_costs, double labour_costs, double total_interest_payments, double dividends_paid, double dividends_to_be_paid, double retained_earnings, double net_earnings, double ebit, double equity, double liquidity, int isliquidshort, int hasloan, int hasinvestment, int isilliquid, double planned_investment_costs, double liquidity_need, loan loan_list[], double labour_tax_rate, double delta_housing_price)
{
    xmachine_memory_firm * current;

    current = init_firm_agent();
    /* new line added to handle dynamic agent creation*/
    current_xmachine_firm_next_state = firm_start_state;
    add_firm_agent_internal(current, current_xmachine_firm_next_state);

    current->id = id;
    current->bank_id = bank_id;
    current->isconstructor = isconstructor;
    current->day_of_month_to_act = day_of_month_to_act;
    current->isinsolvent = isinsolvent;
    current->it_no = it_no;
    current->day_of_week_to_act = day_of_week_to_act;
    current->average_goods_price = average_goods_price;
    copy_int_array(employees, &current->employees);
    current->manager = manager;
    current->wage_offer = wage_offer;
    current->average_wage = average_wage;
    current->no_employees = no_employees;
    current->vacancies = vacancies;
    current->employees_needed = employees_needed;
    current->day_of_month_wages_paid = day_of_month_wages_paid;
    current->labour_productivity = labour_productivity;
    current->capital_productivity = capital_productivity;
    current->capital_goods = capital_goods;
    current->capital_goods_price = capital_goods_price;
    current->production_current = production_current;
    current->expected_sales = expected_sales;
    current->production_plan = production_plan;
    current->unit_goods_price = unit_goods_price;
    current->unit_cost = unit_cost;
    current->day_of_month_production_completed = day_of_month_production_completed;
    current->unit_house_price = unit_house_price;
    memcpy(current->projects, projects, 12*sizeof(int));
    current->loans_interest_rate = loans_interest_rate;
    current->debt = debt;
    current->inventory = inventory;
    current->sales = sales;
    current->revenues = revenues;
    current->total_assets = total_assets;
    current->operating_costs = operating_costs;
    current->labour_costs = labour_costs;
    current->total_interest_payments = total_interest_payments;
    current->dividends_paid = dividends_paid;
    current->dividends_to_be_paid = dividends_to_be_paid;
    current->retained_earnings = retained_earnings;
    current->net_earnings = net_earnings;
    current->ebit = ebit;
    current->equity = equity;
    current->liquidity = liquidity;
    current->isliquidshort = isliquidshort;
    current->hasloan = hasloan;
    current->hasinvestment = hasinvestment;
    current->isilliquid = isilliquid;
    current->planned_investment_costs = planned_investment_costs;
    current->liquidity_need = liquidity_need;
    copy_loan_static_array(loan_list, current->loan_list, 2);
    current->labour_tax_rate = labour_tax_rate;
    current->delta_housing_price = delta_housing_price;
}

xmachine_memory_household_state * init_household_state()
{
    xmachine_memory_household_state * current = (xmachine_memory_household_state *)malloc(sizeof(xmachine_memory_household_state));
    CHECK_POINTER(current);

    current->agents = NULL;
    current->count = 0;

    return current;
}

xmachine_memory_household * init_household_agent()
{
    xmachine_memory_household * current = (xmachine_memory_household *)malloc(sizeof(xmachine_memory_household));
    CHECK_POINTER(current);

    current->id = 0;
    current->bank_id = 0;
    current->it_no = 0;
    current->day_of_week_to_act = 0;
    current->weekly_consumption_budget = 0.0;
    current->mall_budget = 0.0;
    current->quarterly_price_change = 0.0;
    current->my_employer_id = 0;
    current->wage = 0.0;
    current->ismanager = 0;
    current->government_benefits = 0.0;
    current->day_of_month_to_act = 0;
    current->day_of_month_wage_recieved = 0;
    current->mortgages_interest_rate = 0.0;
    current->labour_tax_rate = 0.0;
    init_mortgage_array(&current->mortgages_list);
    current->mortgages = 0.0;
    current->housing_payment = 0.0;
    current->equity = 0.0;
    current->housing_price = 0.0;
    current->housing_units = 0;
    current->n_shares = 0;
    current->liquidity = 0.0;
    current->capital_income = 0.0;
    init_double_static_array(current->previous_wages, 3);
    init_double_static_array(current->previous_benefits, 3);
    current->labour_income = 0.0;
    current->total_assets = 0.0;
    current->housing_value = 0.0;
    current->expected_housing_payment = 0.0;
    current->hmarket_role = 0;
    current->equity_ratio = 0.0;
    current->minimum_equity_ratio = 0.0;
    init_double_static_array(current->mortgage_costs, 3);
    current->delta_housing_value = 0.0;
    current->mortgage_choice = 0;

    return current;
}

void free_household_agent(xmachine_memory_household_holder * tmp, xmachine_memory_household_state * state)
{
    if(tmp->prev == NULL) state->agents = tmp->next;
    else tmp->prev->next = tmp->next;
    if(tmp->next != NULL) tmp->next->prev = tmp->prev;

    free_mortgage_array(&tmp->agent->mortgages_list);
    

    free(tmp->agent);
    free(tmp);
}

void unittest_init_household_agent()
{
    current_xmachine_household = (xmachine_memory_household *)malloc(sizeof(xmachine_memory_household));
    CHECK_POINTER(current);

        current_xmachine_household->id = 0;
        current_xmachine_household->bank_id = 0;
        current_xmachine_household->it_no = 0;
        current_xmachine_household->day_of_week_to_act = 0;
        current_xmachine_household->weekly_consumption_budget = 0.0;
        current_xmachine_household->mall_budget = 0.0;
        current_xmachine_household->quarterly_price_change = 0.0;
        current_xmachine_household->my_employer_id = 0;
        current_xmachine_household->wage = 0.0;
        current_xmachine_household->ismanager = 0;
        current_xmachine_household->government_benefits = 0.0;
        current_xmachine_household->day_of_month_to_act = 0;
        current_xmachine_household->day_of_month_wage_recieved = 0;
        current_xmachine_household->mortgages_interest_rate = 0.0;
        current_xmachine_household->labour_tax_rate = 0.0;
        init_mortgage_array(&current_xmachine_household->mortgages_list);
        current_xmachine_household->mortgages = 0.0;
        current_xmachine_household->housing_payment = 0.0;
        current_xmachine_household->equity = 0.0;
        current_xmachine_household->housing_price = 0.0;
        current_xmachine_household->housing_units = 0;
        current_xmachine_household->n_shares = 0;
        current_xmachine_household->liquidity = 0.0;
        current_xmachine_household->capital_income = 0.0;
        init_double_static_array(current_xmachine_household->previous_wages, 3);
        init_double_static_array(current_xmachine_household->previous_benefits, 3);
        current_xmachine_household->labour_income = 0.0;
        current_xmachine_household->total_assets = 0.0;
        current_xmachine_household->housing_value = 0.0;
        current_xmachine_household->expected_housing_payment = 0.0;
        current_xmachine_household->hmarket_role = 0;
        current_xmachine_household->equity_ratio = 0.0;
        current_xmachine_household->minimum_equity_ratio = 0.0;
        init_double_static_array(current_xmachine_household->mortgage_costs, 3);
        current_xmachine_household->delta_housing_value = 0.0;
        current_xmachine_household->mortgage_choice = 0;
    
}

void unittest_free_household_agent()
{
    free_mortgage_array(&current_xmachine_household->mortgages_list);
    
    free(current_xmachine_household);
}

void free_household_agents()
{
    current_xmachine_household_holder = household_HHHousingWriteOff_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HHHousingWriteOff_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HHHousingWriteOff_state->count = 0;
    current_xmachine_household_holder = household_HHHousingPayments_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HHHousingPayments_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HHHousingPayments_state->count = 0;
    current_xmachine_household_holder = household_HHHousingBargain_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HHHousingBargain_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HHHousingBargain_state->count = 0;
    current_xmachine_household_holder = household_HHHousingRevenue_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HHHousingRevenue_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HHHousingRevenue_state->count = 0;
    current_xmachine_household_holder = household_HHHousingCheckWealth_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HHHousingCheckWealth_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HHHousingCheckWealth_state->count = 0;
    current_xmachine_household_holder = household_HHHousingPrice_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HHHousingPrice_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HHHousingPrice_state->count = 0;
    current_xmachine_household_holder = household_HHHousingRole_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HHHousingRole_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HHHousingRole_state->count = 0;
    current_xmachine_household_holder = household_HHCreditCheckTaxRate_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HHCreditCheckTaxRate_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HHCreditCheckTaxRate_state->count = 0;
    current_xmachine_household_holder = household_HHCreditUpdateAnnuity_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HHCreditUpdateAnnuity_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HHCreditUpdateAnnuity_state->count = 0;
    current_xmachine_household_holder = household_end_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_end_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_end_state->count = 0;
    current_xmachine_household_holder = household_HHCreditBalanceSheet_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HHCreditBalanceSheet_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HHCreditBalanceSheet_state->count = 0;
    current_xmachine_household_holder = household_HHCreditIsCapitalist_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HHCreditIsCapitalist_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HHCreditIsCapitalist_state->count = 0;
    current_xmachine_household_holder = household_HHCreditMonthly_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HHCreditMonthly_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HHCreditMonthly_state->count = 0;
    current_xmachine_household_holder = household_HHLabourEmploymentStatus_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HHLabourEmploymentStatus_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HHLabourEmploymentStatus_state->count = 0;
    current_xmachine_household_holder = household_HHLabourPayroll_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HHLabourPayroll_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HHLabourPayroll_state->count = 0;
    current_xmachine_household_holder = household_HHLabourStage1Placement_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HHLabourStage1Placement_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HHLabourStage1Placement_state->count = 0;
    current_xmachine_household_holder = household_HHLabourStage1Applications_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HHLabourStage1Applications_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HHLabourStage1Applications_state->count = 0;
    current_xmachine_household_holder = household_HHLabourStage2_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HHLabourStage2_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HHLabourStage2_state->count = 0;
    current_xmachine_household_holder = household_HHLabourStage1_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HHLabourStage1_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HHLabourStage1_state->count = 0;
    current_xmachine_household_holder = household_HHLabourStart_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HHLabourStart_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HHLabourStart_state->count = 0;
    current_xmachine_household_holder = household_HHHousingStart_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HHHousingStart_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HHHousingStart_state->count = 0;
    current_xmachine_household_holder = household_HHConsumptionRecieveGoods_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HHConsumptionRecieveGoods_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HHConsumptionRecieveGoods_state->count = 0;
    current_xmachine_household_holder = household_HHConsumptionMonthly_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HHConsumptionMonthly_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HHConsumptionMonthly_state->count = 0;
    current_xmachine_household_holder = household_HHConsumptionWeekly_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HHConsumptionWeekly_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HHConsumptionWeekly_state->count = 0;
    current_xmachine_household_holder = household_HHConsumptionStart_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HHConsumptionStart_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HHConsumptionStart_state->count = 0;
    current_xmachine_household_holder = household_HHCreditPolicyChecks_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HHCreditPolicyChecks_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HHCreditPolicyChecks_state->count = 0;
    current_xmachine_household_holder = household_HouseholdUpdateDeposits_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HouseholdUpdateDeposits_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HouseholdUpdateDeposits_state->count = 0;
    current_xmachine_household_holder = household_HHCreditStart_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HHCreditStart_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HHCreditStart_state->count = 0;
    current_xmachine_household_holder = household_HouseholdInitBalanceSheet_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HouseholdInitBalanceSheet_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HouseholdInitBalanceSheet_state->count = 0;
    current_xmachine_household_holder = household_HouseholdInitEmployment_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HouseholdInitEmployment_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HouseholdInitEmployment_state->count = 0;
    current_xmachine_household_holder = household_HouseholdLoop_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HouseholdLoop_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HouseholdLoop_state->count = 0;
    current_xmachine_household_holder = household_HouseholdInitPostId_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_HouseholdInitPostId_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_HouseholdInitPostId_state->count = 0;
    current_xmachine_household_holder = household_start_state->agents;
    while(current_xmachine_household_holder)
    {
        temp_xmachine_household_holder = current_xmachine_household_holder->next;
        free_household_agent(current_xmachine_household_holder, household_start_state);
        current_xmachine_household_holder = temp_xmachine_household_holder;
    }
    household_start_state->count = 0;
}

void free_household_states()
{
    free(household_HHHousingWriteOff_state);
    free(household_HHHousingPayments_state);
    free(household_HHHousingBargain_state);
    free(household_HHHousingRevenue_state);
    free(household_HHHousingCheckWealth_state);
    free(household_HHHousingPrice_state);
    free(household_HHHousingRole_state);
    free(household_HHCreditCheckTaxRate_state);
    free(household_HHCreditUpdateAnnuity_state);
    free(household_end_state);
    free(household_HHCreditBalanceSheet_state);
    free(household_HHCreditIsCapitalist_state);
    free(household_HHCreditMonthly_state);
    free(household_HHLabourEmploymentStatus_state);
    free(household_HHLabourPayroll_state);
    free(household_HHLabourStage1Placement_state);
    free(household_HHLabourStage1Applications_state);
    free(household_HHLabourStage2_state);
    free(household_HHLabourStage1_state);
    free(household_HHLabourStart_state);
    free(household_HHHousingStart_state);
    free(household_HHConsumptionRecieveGoods_state);
    free(household_HHConsumptionMonthly_state);
    free(household_HHConsumptionWeekly_state);
    free(household_HHConsumptionStart_state);
    free(household_HHCreditPolicyChecks_state);
    free(household_HouseholdUpdateDeposits_state);
    free(household_HHCreditStart_state);
    free(household_HouseholdInitBalanceSheet_state);
    free(household_HouseholdInitEmployment_state);
    free(household_HouseholdLoop_state);
    free(household_HouseholdInitPostId_state);
    free(household_start_state);
}

void transition_household_agent(xmachine_memory_household_holder * tmp, xmachine_memory_household_state * from_state, xmachine_memory_household_state * to_state)
{
    if(tmp->prev == NULL) from_state->agents = tmp->next;
    else tmp->prev->next = tmp->next;
    if(tmp->next != NULL) tmp->next->prev = tmp->prev;

    add_household_agent_internal(tmp->agent, to_state);
    free(tmp);
}

void add_household_agent_internal(xmachine_memory_household * agent, xmachine_memory_household_state * state)
{
    xmachine_memory_household_holder * current = (xmachine_memory_household_holder *)malloc(sizeof(xmachine_memory_household_holder));
    CHECK_POINTER(current);

    current->next = state->agents;
    current->prev = NULL;
    state->agents = current;
    if(current->next != NULL) current->next->prev = current;
    current->agent = agent;

    state->count++;

}

void add_household_agent(int id, int bank_id, int it_no, int day_of_week_to_act, double weekly_consumption_budget, double mall_budget, double quarterly_price_change, int my_employer_id, double wage, int ismanager, double government_benefits, int day_of_month_to_act, int day_of_month_wage_recieved, double mortgages_interest_rate, double labour_tax_rate, mortgage_array * mortgages_list, double mortgages, double housing_payment, double equity, double housing_price, int housing_units, int n_shares, double liquidity, double capital_income, double previous_wages[], double previous_benefits[], double labour_income, double total_assets, double housing_value, double expected_housing_payment, int hmarket_role, double equity_ratio, double minimum_equity_ratio, double mortgage_costs[], double delta_housing_value, int mortgage_choice)
{
    xmachine_memory_household * current;

    current = init_household_agent();
    /* new line added to handle dynamic agent creation*/
    current_xmachine_household_next_state = household_start_state;
    add_household_agent_internal(current, current_xmachine_household_next_state);

    current->id = id;
    current->bank_id = bank_id;
    current->it_no = it_no;
    current->day_of_week_to_act = day_of_week_to_act;
    current->weekly_consumption_budget = weekly_consumption_budget;
    current->mall_budget = mall_budget;
    current->quarterly_price_change = quarterly_price_change;
    current->my_employer_id = my_employer_id;
    current->wage = wage;
    current->ismanager = ismanager;
    current->government_benefits = government_benefits;
    current->day_of_month_to_act = day_of_month_to_act;
    current->day_of_month_wage_recieved = day_of_month_wage_recieved;
    current->mortgages_interest_rate = mortgages_interest_rate;
    current->labour_tax_rate = labour_tax_rate;
    copy_mortgage_array(mortgages_list, &current->mortgages_list);
    current->mortgages = mortgages;
    current->housing_payment = housing_payment;
    current->equity = equity;
    current->housing_price = housing_price;
    current->housing_units = housing_units;
    current->n_shares = n_shares;
    current->liquidity = liquidity;
    current->capital_income = capital_income;
    memcpy(current->previous_wages, previous_wages, 3*sizeof(double));
    memcpy(current->previous_benefits, previous_benefits, 3*sizeof(double));
    current->labour_income = labour_income;
    current->total_assets = total_assets;
    current->housing_value = housing_value;
    current->expected_housing_payment = expected_housing_payment;
    current->hmarket_role = hmarket_role;
    current->equity_ratio = equity_ratio;
    current->minimum_equity_ratio = minimum_equity_ratio;
    memcpy(current->mortgage_costs, mortgage_costs, 3*sizeof(double));
    current->delta_housing_value = delta_housing_value;
    current->mortgage_choice = mortgage_choice;
}

xmachine_memory_equityfund_state * init_equityfund_state()
{
    xmachine_memory_equityfund_state * current = (xmachine_memory_equityfund_state *)malloc(sizeof(xmachine_memory_equityfund_state));
    CHECK_POINTER(current);

    current->agents = NULL;
    current->count = 0;

    return current;
}

xmachine_memory_equityfund * init_equityfund_agent()
{
    xmachine_memory_equityfund * current = (xmachine_memory_equityfund *)malloc(sizeof(xmachine_memory_equityfund));
    CHECK_POINTER(current);

    current->id = 0;
    current->it_no = 0;
    current->day_of_month_to_act = 0;
    current->day_of_month_wages_paid = 0;
    current->share_firms = 0.0;
    current->share_construction_firms = 0.0;
    current->share_banks = 0.0;
    current->equity = 0.0;
    current->liquidity = 0.0;
    current->n_shares = 0;
    current->dividends_recieved = 0.0;
    current->dividends_retained = 0.0;
    current->dividends_paid = 0.0;
    current->firm_investment = 0.0;
    current->capital_tax_rate = 0.0;

    return current;
}

void free_equityfund_agent(xmachine_memory_equityfund_holder * tmp, xmachine_memory_equityfund_state * state)
{
    if(tmp->prev == NULL) state->agents = tmp->next;
    else tmp->prev->next = tmp->next;
    if(tmp->next != NULL) tmp->next->prev = tmp->prev;

    

    free(tmp->agent);
    free(tmp);
}

void unittest_init_equityfund_agent()
{
    current_xmachine_equityfund = (xmachine_memory_equityfund *)malloc(sizeof(xmachine_memory_equityfund));
    CHECK_POINTER(current);

        current_xmachine_equityfund->id = 0;
        current_xmachine_equityfund->it_no = 0;
        current_xmachine_equityfund->day_of_month_to_act = 0;
        current_xmachine_equityfund->day_of_month_wages_paid = 0;
        current_xmachine_equityfund->share_firms = 0.0;
        current_xmachine_equityfund->share_construction_firms = 0.0;
        current_xmachine_equityfund->share_banks = 0.0;
        current_xmachine_equityfund->equity = 0.0;
        current_xmachine_equityfund->liquidity = 0.0;
        current_xmachine_equityfund->n_shares = 0;
        current_xmachine_equityfund->dividends_recieved = 0.0;
        current_xmachine_equityfund->dividends_retained = 0.0;
        current_xmachine_equityfund->dividends_paid = 0.0;
        current_xmachine_equityfund->firm_investment = 0.0;
        current_xmachine_equityfund->capital_tax_rate = 0.0;
    
}

void unittest_free_equityfund_agent()
{
    
    free(current_xmachine_equityfund);
}

void free_equityfund_agents()
{
    current_xmachine_equityfund_holder = equityfund_EFCreditPolicyChecks_state->agents;
    while(current_xmachine_equityfund_holder)
    {
        temp_xmachine_equityfund_holder = current_xmachine_equityfund_holder->next;
        free_equityfund_agent(current_xmachine_equityfund_holder, equityfund_EFCreditPolicyChecks_state);
        current_xmachine_equityfund_holder = temp_xmachine_equityfund_holder;
    }
    equityfund_EFCreditPolicyChecks_state->count = 0;
    current_xmachine_equityfund_holder = equityfund_EFCreditBalanceSheet_state->agents;
    while(current_xmachine_equityfund_holder)
    {
        temp_xmachine_equityfund_holder = current_xmachine_equityfund_holder->next;
        free_equityfund_agent(current_xmachine_equityfund_holder, equityfund_EFCreditBalanceSheet_state);
        current_xmachine_equityfund_holder = temp_xmachine_equityfund_holder;
    }
    equityfund_EFCreditBalanceSheet_state->count = 0;
    current_xmachine_equityfund_holder = equityfund_end_state->agents;
    while(current_xmachine_equityfund_holder)
    {
        temp_xmachine_equityfund_holder = current_xmachine_equityfund_holder->next;
        free_equityfund_agent(current_xmachine_equityfund_holder, equityfund_end_state);
        current_xmachine_equityfund_holder = temp_xmachine_equityfund_holder;
    }
    equityfund_end_state->count = 0;
    current_xmachine_equityfund_holder = equityfund_EFCreditDistributeShares_state->agents;
    while(current_xmachine_equityfund_holder)
    {
        temp_xmachine_equityfund_holder = current_xmachine_equityfund_holder->next;
        free_equityfund_agent(current_xmachine_equityfund_holder, equityfund_EFCreditDistributeShares_state);
        current_xmachine_equityfund_holder = temp_xmachine_equityfund_holder;
    }
    equityfund_EFCreditDistributeShares_state->count = 0;
    current_xmachine_equityfund_holder = equityfund_EFCreditShareCollectionFirms_state->agents;
    while(current_xmachine_equityfund_holder)
    {
        temp_xmachine_equityfund_holder = current_xmachine_equityfund_holder->next;
        free_equityfund_agent(current_xmachine_equityfund_holder, equityfund_EFCreditShareCollectionFirms_state);
        current_xmachine_equityfund_holder = temp_xmachine_equityfund_holder;
    }
    equityfund_EFCreditShareCollectionFirms_state->count = 0;
    current_xmachine_equityfund_holder = equityfund_EFCreditShareCollectionBanks_state->agents;
    while(current_xmachine_equityfund_holder)
    {
        temp_xmachine_equityfund_holder = current_xmachine_equityfund_holder->next;
        free_equityfund_agent(current_xmachine_equityfund_holder, equityfund_EFCreditShareCollectionBanks_state);
        current_xmachine_equityfund_holder = temp_xmachine_equityfund_holder;
    }
    equityfund_EFCreditShareCollectionBanks_state->count = 0;
    current_xmachine_equityfund_holder = equityfund_EFCreditIncomeStatement_state->agents;
    while(current_xmachine_equityfund_holder)
    {
        temp_xmachine_equityfund_holder = current_xmachine_equityfund_holder->next;
        free_equityfund_agent(current_xmachine_equityfund_holder, equityfund_EFCreditIncomeStatement_state);
        current_xmachine_equityfund_holder = temp_xmachine_equityfund_holder;
    }
    equityfund_EFCreditIncomeStatement_state->count = 0;
    current_xmachine_equityfund_holder = equityfund_EFLabourMarket_state->agents;
    while(current_xmachine_equityfund_holder)
    {
        temp_xmachine_equityfund_holder = current_xmachine_equityfund_holder->next;
        free_equityfund_agent(current_xmachine_equityfund_holder, equityfund_EFLabourMarket_state);
        current_xmachine_equityfund_holder = temp_xmachine_equityfund_holder;
    }
    equityfund_EFLabourMarket_state->count = 0;
    current_xmachine_equityfund_holder = equityfund_EquityFundCredit_state->agents;
    while(current_xmachine_equityfund_holder)
    {
        temp_xmachine_equityfund_holder = current_xmachine_equityfund_holder->next;
        free_equityfund_agent(current_xmachine_equityfund_holder, equityfund_EquityFundCredit_state);
        current_xmachine_equityfund_holder = temp_xmachine_equityfund_holder;
    }
    equityfund_EquityFundCredit_state->count = 0;
    current_xmachine_equityfund_holder = equityfund_EquityFundLoop_state->agents;
    while(current_xmachine_equityfund_holder)
    {
        temp_xmachine_equityfund_holder = current_xmachine_equityfund_holder->next;
        free_equityfund_agent(current_xmachine_equityfund_holder, equityfund_EquityFundLoop_state);
        current_xmachine_equityfund_holder = temp_xmachine_equityfund_holder;
    }
    equityfund_EquityFundLoop_state->count = 0;
    current_xmachine_equityfund_holder = equityfund_start_state->agents;
    while(current_xmachine_equityfund_holder)
    {
        temp_xmachine_equityfund_holder = current_xmachine_equityfund_holder->next;
        free_equityfund_agent(current_xmachine_equityfund_holder, equityfund_start_state);
        current_xmachine_equityfund_holder = temp_xmachine_equityfund_holder;
    }
    equityfund_start_state->count = 0;
}

void free_equityfund_states()
{
    free(equityfund_EFCreditPolicyChecks_state);
    free(equityfund_EFCreditBalanceSheet_state);
    free(equityfund_end_state);
    free(equityfund_EFCreditDistributeShares_state);
    free(equityfund_EFCreditShareCollectionFirms_state);
    free(equityfund_EFCreditShareCollectionBanks_state);
    free(equityfund_EFCreditIncomeStatement_state);
    free(equityfund_EFLabourMarket_state);
    free(equityfund_EquityFundCredit_state);
    free(equityfund_EquityFundLoop_state);
    free(equityfund_start_state);
}

void transition_equityfund_agent(xmachine_memory_equityfund_holder * tmp, xmachine_memory_equityfund_state * from_state, xmachine_memory_equityfund_state * to_state)
{
    if(tmp->prev == NULL) from_state->agents = tmp->next;
    else tmp->prev->next = tmp->next;
    if(tmp->next != NULL) tmp->next->prev = tmp->prev;

    add_equityfund_agent_internal(tmp->agent, to_state);
    free(tmp);
}

void add_equityfund_agent_internal(xmachine_memory_equityfund * agent, xmachine_memory_equityfund_state * state)
{
    xmachine_memory_equityfund_holder * current = (xmachine_memory_equityfund_holder *)malloc(sizeof(xmachine_memory_equityfund_holder));
    CHECK_POINTER(current);

    current->next = state->agents;
    current->prev = NULL;
    state->agents = current;
    if(current->next != NULL) current->next->prev = current;
    current->agent = agent;

    state->count++;

}

void add_equityfund_agent(int id, int it_no, int day_of_month_to_act, int day_of_month_wages_paid, double share_firms, double share_construction_firms, double share_banks, double equity, double liquidity, int n_shares, double dividends_recieved, double dividends_retained, double dividends_paid, double firm_investment, double capital_tax_rate)
{
    xmachine_memory_equityfund * current;

    current = init_equityfund_agent();
    /* new line added to handle dynamic agent creation*/
    current_xmachine_equityfund_next_state = equityfund_start_state;
    add_equityfund_agent_internal(current, current_xmachine_equityfund_next_state);

    current->id = id;
    current->it_no = it_no;
    current->day_of_month_to_act = day_of_month_to_act;
    current->day_of_month_wages_paid = day_of_month_wages_paid;
    current->share_firms = share_firms;
    current->share_construction_firms = share_construction_firms;
    current->share_banks = share_banks;
    current->equity = equity;
    current->liquidity = liquidity;
    current->n_shares = n_shares;
    current->dividends_recieved = dividends_recieved;
    current->dividends_retained = dividends_retained;
    current->dividends_paid = dividends_paid;
    current->firm_investment = firm_investment;
    current->capital_tax_rate = capital_tax_rate;
}

xmachine_memory_bank_state * init_bank_state()
{
    xmachine_memory_bank_state * current = (xmachine_memory_bank_state *)malloc(sizeof(xmachine_memory_bank_state));
    CHECK_POINTER(current);

    current->agents = NULL;
    current->count = 0;

    return current;
}

xmachine_memory_bank * init_bank_agent()
{
    xmachine_memory_bank * current = (xmachine_memory_bank *)malloc(sizeof(xmachine_memory_bank));
    CHECK_POINTER(current);

    current->id = 0;
    current->day_of_month_to_act = 0;
    current->day_of_week_to_act = 0;
    current->it_no = 0;
    current->total_assets = 0.0;
    current->loans = 0.0;
    current->loans_start = 0.0;
    current->mortgages = 0.0;
    current->deposits = 0.0;
    current->centralbank_debt = 0.0;
    current->equity = 0.0;
    current->liquidity = 0.0;
    current->revenues = 0.0;
    current->total_writeoffs = 0.0;
    current->interest_rate = 0.0;
    current->interests_accrued = 0.0;
    current->interests_paid = 0.0;
    current->dividends_paid = 0.0;
    current->total_dividends = 0.0;
    current->retained_earnings = 0.0;
    current->net_earnings = 0.0;
    current->total_costs = 0.0;

    return current;
}

void free_bank_agent(xmachine_memory_bank_holder * tmp, xmachine_memory_bank_state * state)
{
    if(tmp->prev == NULL) state->agents = tmp->next;
    else tmp->prev->next = tmp->next;
    if(tmp->next != NULL) tmp->next->prev = tmp->prev;

    

    free(tmp->agent);
    free(tmp);
}

void unittest_init_bank_agent()
{
    current_xmachine_bank = (xmachine_memory_bank *)malloc(sizeof(xmachine_memory_bank));
    CHECK_POINTER(current);

        current_xmachine_bank->id = 0;
        current_xmachine_bank->day_of_month_to_act = 0;
        current_xmachine_bank->day_of_week_to_act = 0;
        current_xmachine_bank->it_no = 0;
        current_xmachine_bank->total_assets = 0.0;
        current_xmachine_bank->loans = 0.0;
        current_xmachine_bank->loans_start = 0.0;
        current_xmachine_bank->mortgages = 0.0;
        current_xmachine_bank->deposits = 0.0;
        current_xmachine_bank->centralbank_debt = 0.0;
        current_xmachine_bank->equity = 0.0;
        current_xmachine_bank->liquidity = 0.0;
        current_xmachine_bank->revenues = 0.0;
        current_xmachine_bank->total_writeoffs = 0.0;
        current_xmachine_bank->interest_rate = 0.0;
        current_xmachine_bank->interests_accrued = 0.0;
        current_xmachine_bank->interests_paid = 0.0;
        current_xmachine_bank->dividends_paid = 0.0;
        current_xmachine_bank->total_dividends = 0.0;
        current_xmachine_bank->retained_earnings = 0.0;
        current_xmachine_bank->net_earnings = 0.0;
        current_xmachine_bank->total_costs = 0.0;
    
}

void unittest_free_bank_agent()
{
    
    free(current_xmachine_bank);
}

void free_bank_agents()
{
    current_xmachine_bank_holder = bank_BankHousingWriteOff_state->agents;
    while(current_xmachine_bank_holder)
    {
        temp_xmachine_bank_holder = current_xmachine_bank_holder->next;
        free_bank_agent(current_xmachine_bank_holder, bank_BankHousingWriteOff_state);
        current_xmachine_bank_holder = temp_xmachine_bank_holder;
    }
    bank_BankHousingWriteOff_state->count = 0;
    current_xmachine_bank_holder = bank_BankHousingMortgages_state->agents;
    while(current_xmachine_bank_holder)
    {
        temp_xmachine_bank_holder = current_xmachine_bank_holder->next;
        free_bank_agent(current_xmachine_bank_holder, bank_BankHousingMortgages_state);
        current_xmachine_bank_holder = temp_xmachine_bank_holder;
    }
    bank_BankHousingMortgages_state->count = 0;
    current_xmachine_bank_holder = bank_BankHousingSales_state->agents;
    while(current_xmachine_bank_holder)
    {
        temp_xmachine_bank_holder = current_xmachine_bank_holder->next;
        free_bank_agent(current_xmachine_bank_holder, bank_BankHousingSales_state);
        current_xmachine_bank_holder = temp_xmachine_bank_holder;
    }
    bank_BankHousingSales_state->count = 0;
    current_xmachine_bank_holder = bank_BankHousingCrediting_state->agents;
    while(current_xmachine_bank_holder)
    {
        temp_xmachine_bank_holder = current_xmachine_bank_holder->next;
        free_bank_agent(current_xmachine_bank_holder, bank_BankHousingCrediting_state);
        current_xmachine_bank_holder = temp_xmachine_bank_holder;
    }
    bank_BankHousingCrediting_state->count = 0;
    current_xmachine_bank_holder = bank_end_state->agents;
    while(current_xmachine_bank_holder)
    {
        temp_xmachine_bank_holder = current_xmachine_bank_holder->next;
        free_bank_agent(current_xmachine_bank_holder, bank_end_state);
        current_xmachine_bank_holder = temp_xmachine_bank_holder;
    }
    bank_end_state->count = 0;
    current_xmachine_bank_holder = bank_BankCreditLoanInterests_state->agents;
    while(current_xmachine_bank_holder)
    {
        temp_xmachine_bank_holder = current_xmachine_bank_holder->next;
        free_bank_agent(current_xmachine_bank_holder, bank_BankCreditLoanInterests_state);
        current_xmachine_bank_holder = temp_xmachine_bank_holder;
    }
    bank_BankCreditLoanInterests_state->count = 0;
    current_xmachine_bank_holder = bank_BankCreditNewEntrants_state->agents;
    while(current_xmachine_bank_holder)
    {
        temp_xmachine_bank_holder = current_xmachine_bank_holder->next;
        free_bank_agent(current_xmachine_bank_holder, bank_BankCreditNewEntrants_state);
        current_xmachine_bank_holder = temp_xmachine_bank_holder;
    }
    bank_BankCreditNewEntrants_state->count = 0;
    current_xmachine_bank_holder = bank_BankCreditLoanWriteOffs_state->agents;
    while(current_xmachine_bank_holder)
    {
        temp_xmachine_bank_holder = current_xmachine_bank_holder->next;
        free_bank_agent(current_xmachine_bank_holder, bank_BankCreditLoanWriteOffs_state);
        current_xmachine_bank_holder = temp_xmachine_bank_holder;
    }
    bank_BankCreditLoanWriteOffs_state->count = 0;
    current_xmachine_bank_holder = bank_BankCreditRequest2_state->agents;
    while(current_xmachine_bank_holder)
    {
        temp_xmachine_bank_holder = current_xmachine_bank_holder->next;
        free_bank_agent(current_xmachine_bank_holder, bank_BankCreditRequest2_state);
        current_xmachine_bank_holder = temp_xmachine_bank_holder;
    }
    bank_BankCreditRequest2_state->count = 0;
    current_xmachine_bank_holder = bank_BankCreditRequest1_state->agents;
    while(current_xmachine_bank_holder)
    {
        temp_xmachine_bank_holder = current_xmachine_bank_holder->next;
        free_bank_agent(current_xmachine_bank_holder, bank_BankCreditRequest1_state);
        current_xmachine_bank_holder = temp_xmachine_bank_holder;
    }
    bank_BankCreditRequest1_state->count = 0;
    current_xmachine_bank_holder = bank_BankCreditBalanceSheet_state->agents;
    while(current_xmachine_bank_holder)
    {
        temp_xmachine_bank_holder = current_xmachine_bank_holder->next;
        free_bank_agent(current_xmachine_bank_holder, bank_BankCreditBalanceSheet_state);
        current_xmachine_bank_holder = temp_xmachine_bank_holder;
    }
    bank_BankCreditBalanceSheet_state->count = 0;
    current_xmachine_bank_holder = bank_BankCreditDividends_state->agents;
    while(current_xmachine_bank_holder)
    {
        temp_xmachine_bank_holder = current_xmachine_bank_holder->next;
        free_bank_agent(current_xmachine_bank_holder, bank_BankCreditDividends_state);
        current_xmachine_bank_holder = temp_xmachine_bank_holder;
    }
    bank_BankCreditDividends_state->count = 0;
    current_xmachine_bank_holder = bank_BankHousingMarket_state->agents;
    while(current_xmachine_bank_holder)
    {
        temp_xmachine_bank_holder = current_xmachine_bank_holder->next;
        free_bank_agent(current_xmachine_bank_holder, bank_BankHousingMarket_state);
        current_xmachine_bank_holder = temp_xmachine_bank_holder;
    }
    bank_BankHousingMarket_state->count = 0;
    current_xmachine_bank_holder = bank_BankCreditPolicyChecks_state->agents;
    while(current_xmachine_bank_holder)
    {
        temp_xmachine_bank_holder = current_xmachine_bank_holder->next;
        free_bank_agent(current_xmachine_bank_holder, bank_BankCreditPolicyChecks_state);
        current_xmachine_bank_holder = temp_xmachine_bank_holder;
    }
    bank_BankCreditPolicyChecks_state->count = 0;
    current_xmachine_bank_holder = bank_BankUpdateDeposits_state->agents;
    while(current_xmachine_bank_holder)
    {
        temp_xmachine_bank_holder = current_xmachine_bank_holder->next;
        free_bank_agent(current_xmachine_bank_holder, bank_BankUpdateDeposits_state);
        current_xmachine_bank_holder = temp_xmachine_bank_holder;
    }
    bank_BankUpdateDeposits_state->count = 0;
    current_xmachine_bank_holder = bank_BankCreditStart_state->agents;
    while(current_xmachine_bank_holder)
    {
        temp_xmachine_bank_holder = current_xmachine_bank_holder->next;
        free_bank_agent(current_xmachine_bank_holder, bank_BankCreditStart_state);
        current_xmachine_bank_holder = temp_xmachine_bank_holder;
    }
    bank_BankCreditStart_state->count = 0;
    current_xmachine_bank_holder = bank_BankInitBalanceSheet_state->agents;
    while(current_xmachine_bank_holder)
    {
        temp_xmachine_bank_holder = current_xmachine_bank_holder->next;
        free_bank_agent(current_xmachine_bank_holder, bank_BankInitBalanceSheet_state);
        current_xmachine_bank_holder = temp_xmachine_bank_holder;
    }
    bank_BankInitBalanceSheet_state->count = 0;
    current_xmachine_bank_holder = bank_BankInitDeposits_state->agents;
    while(current_xmachine_bank_holder)
    {
        temp_xmachine_bank_holder = current_xmachine_bank_holder->next;
        free_bank_agent(current_xmachine_bank_holder, bank_BankInitDeposits_state);
        current_xmachine_bank_holder = temp_xmachine_bank_holder;
    }
    bank_BankInitDeposits_state->count = 0;
    current_xmachine_bank_holder = bank_BankInitMortgages_state->agents;
    while(current_xmachine_bank_holder)
    {
        temp_xmachine_bank_holder = current_xmachine_bank_holder->next;
        free_bank_agent(current_xmachine_bank_holder, bank_BankInitMortgages_state);
        current_xmachine_bank_holder = temp_xmachine_bank_holder;
    }
    bank_BankInitMortgages_state->count = 0;
    current_xmachine_bank_holder = bank_BankLoop_state->agents;
    while(current_xmachine_bank_holder)
    {
        temp_xmachine_bank_holder = current_xmachine_bank_holder->next;
        free_bank_agent(current_xmachine_bank_holder, bank_BankLoop_state);
        current_xmachine_bank_holder = temp_xmachine_bank_holder;
    }
    bank_BankLoop_state->count = 0;
    current_xmachine_bank_holder = bank_BankInitLoans_state->agents;
    while(current_xmachine_bank_holder)
    {
        temp_xmachine_bank_holder = current_xmachine_bank_holder->next;
        free_bank_agent(current_xmachine_bank_holder, bank_BankInitLoans_state);
        current_xmachine_bank_holder = temp_xmachine_bank_holder;
    }
    bank_BankInitLoans_state->count = 0;
    current_xmachine_bank_holder = bank_start_state->agents;
    while(current_xmachine_bank_holder)
    {
        temp_xmachine_bank_holder = current_xmachine_bank_holder->next;
        free_bank_agent(current_xmachine_bank_holder, bank_start_state);
        current_xmachine_bank_holder = temp_xmachine_bank_holder;
    }
    bank_start_state->count = 0;
}

void free_bank_states()
{
    free(bank_BankHousingWriteOff_state);
    free(bank_BankHousingMortgages_state);
    free(bank_BankHousingSales_state);
    free(bank_BankHousingCrediting_state);
    free(bank_end_state);
    free(bank_BankCreditLoanInterests_state);
    free(bank_BankCreditNewEntrants_state);
    free(bank_BankCreditLoanWriteOffs_state);
    free(bank_BankCreditRequest2_state);
    free(bank_BankCreditRequest1_state);
    free(bank_BankCreditBalanceSheet_state);
    free(bank_BankCreditDividends_state);
    free(bank_BankHousingMarket_state);
    free(bank_BankCreditPolicyChecks_state);
    free(bank_BankUpdateDeposits_state);
    free(bank_BankCreditStart_state);
    free(bank_BankInitBalanceSheet_state);
    free(bank_BankInitDeposits_state);
    free(bank_BankInitMortgages_state);
    free(bank_BankLoop_state);
    free(bank_BankInitLoans_state);
    free(bank_start_state);
}

void transition_bank_agent(xmachine_memory_bank_holder * tmp, xmachine_memory_bank_state * from_state, xmachine_memory_bank_state * to_state)
{
    if(tmp->prev == NULL) from_state->agents = tmp->next;
    else tmp->prev->next = tmp->next;
    if(tmp->next != NULL) tmp->next->prev = tmp->prev;

    add_bank_agent_internal(tmp->agent, to_state);
    free(tmp);
}

void add_bank_agent_internal(xmachine_memory_bank * agent, xmachine_memory_bank_state * state)
{
    xmachine_memory_bank_holder * current = (xmachine_memory_bank_holder *)malloc(sizeof(xmachine_memory_bank_holder));
    CHECK_POINTER(current);

    current->next = state->agents;
    current->prev = NULL;
    state->agents = current;
    if(current->next != NULL) current->next->prev = current;
    current->agent = agent;

    state->count++;

}

void add_bank_agent(int id, int day_of_month_to_act, int day_of_week_to_act, int it_no, double total_assets, double loans, double loans_start, double mortgages, double deposits, double centralbank_debt, double equity, double liquidity, double revenues, double total_writeoffs, double interest_rate, double interests_accrued, double interests_paid, double dividends_paid, double total_dividends, double retained_earnings, double net_earnings, double total_costs)
{
    xmachine_memory_bank * current;

    current = init_bank_agent();
    /* new line added to handle dynamic agent creation*/
    current_xmachine_bank_next_state = bank_start_state;
    add_bank_agent_internal(current, current_xmachine_bank_next_state);

    current->id = id;
    current->day_of_month_to_act = day_of_month_to_act;
    current->day_of_week_to_act = day_of_week_to_act;
    current->it_no = it_no;
    current->total_assets = total_assets;
    current->loans = loans;
    current->loans_start = loans_start;
    current->mortgages = mortgages;
    current->deposits = deposits;
    current->centralbank_debt = centralbank_debt;
    current->equity = equity;
    current->liquidity = liquidity;
    current->revenues = revenues;
    current->total_writeoffs = total_writeoffs;
    current->interest_rate = interest_rate;
    current->interests_accrued = interests_accrued;
    current->interests_paid = interests_paid;
    current->dividends_paid = dividends_paid;
    current->total_dividends = total_dividends;
    current->retained_earnings = retained_earnings;
    current->net_earnings = net_earnings;
    current->total_costs = total_costs;
}

xmachine_memory_government_state * init_government_state()
{
    xmachine_memory_government_state * current = (xmachine_memory_government_state *)malloc(sizeof(xmachine_memory_government_state));
    CHECK_POINTER(current);

    current->agents = NULL;
    current->count = 0;

    return current;
}

xmachine_memory_government * init_government_agent()
{
    xmachine_memory_government * current = (xmachine_memory_government *)malloc(sizeof(xmachine_memory_government));
    CHECK_POINTER(current);

    current->id = 0;
    current->it_no = 0;
    current->average_wage = 0.0;
    current->unemployment_rate = 0.0;
    current->population_size = 0;
    current->debt = 0.0;
    current->equity = 0.0;
    current->liquidity = 0.0;
    current->day_of_month_to_act = 0;
    current->day_of_month_wages_paid = 0;
    current->capital_tax_rate = 0.0;
    current->labour_tax_rate = 0.0;
    current->labour_tax_income = 0.0;
    current->capital_tax_income = 0.0;
    current->gov_general_benefit_rate = 0.0;
    current->gov_unemployment_rate = 0.0;
    current->general_benefits = 0.0;
    current->unemployment_benefits = 0.0;
    current->earnings = 0.0;
    current->centralbank_income = 0.0;
    current->expenditures = 0.0;

    return current;
}

void free_government_agent(xmachine_memory_government_holder * tmp, xmachine_memory_government_state * state)
{
    if(tmp->prev == NULL) state->agents = tmp->next;
    else tmp->prev->next = tmp->next;
    if(tmp->next != NULL) tmp->next->prev = tmp->prev;

    

    free(tmp->agent);
    free(tmp);
}

void unittest_init_government_agent()
{
    current_xmachine_government = (xmachine_memory_government *)malloc(sizeof(xmachine_memory_government));
    CHECK_POINTER(current);

        current_xmachine_government->id = 0;
        current_xmachine_government->it_no = 0;
        current_xmachine_government->average_wage = 0.0;
        current_xmachine_government->unemployment_rate = 0.0;
        current_xmachine_government->population_size = 0;
        current_xmachine_government->debt = 0.0;
        current_xmachine_government->equity = 0.0;
        current_xmachine_government->liquidity = 0.0;
        current_xmachine_government->day_of_month_to_act = 0;
        current_xmachine_government->day_of_month_wages_paid = 0;
        current_xmachine_government->capital_tax_rate = 0.0;
        current_xmachine_government->labour_tax_rate = 0.0;
        current_xmachine_government->labour_tax_income = 0.0;
        current_xmachine_government->capital_tax_income = 0.0;
        current_xmachine_government->gov_general_benefit_rate = 0.0;
        current_xmachine_government->gov_unemployment_rate = 0.0;
        current_xmachine_government->general_benefits = 0.0;
        current_xmachine_government->unemployment_benefits = 0.0;
        current_xmachine_government->earnings = 0.0;
        current_xmachine_government->centralbank_income = 0.0;
        current_xmachine_government->expenditures = 0.0;
    
}

void unittest_free_government_agent()
{
    
    free(current_xmachine_government);
}

void free_government_agents()
{
    current_xmachine_government_holder = government_GovernmentUpdatePolicy_state->agents;
    while(current_xmachine_government_holder)
    {
        temp_xmachine_government_holder = current_xmachine_government_holder->next;
        free_government_agent(current_xmachine_government_holder, government_GovernmentUpdatePolicy_state);
        current_xmachine_government_holder = temp_xmachine_government_holder;
    }
    government_GovernmentUpdatePolicy_state->count = 0;
    current_xmachine_government_holder = government_GovernmentBalanceSheet_state->agents;
    while(current_xmachine_government_holder)
    {
        temp_xmachine_government_holder = current_xmachine_government_holder->next;
        free_government_agent(current_xmachine_government_holder, government_GovernmentBalanceSheet_state);
        current_xmachine_government_holder = temp_xmachine_government_holder;
    }
    government_GovernmentBalanceSheet_state->count = 0;
    current_xmachine_government_holder = government_GovernmentIncomeStatement_state->agents;
    while(current_xmachine_government_holder)
    {
        temp_xmachine_government_holder = current_xmachine_government_holder->next;
        free_government_agent(current_xmachine_government_holder, government_GovernmentIncomeStatement_state);
        current_xmachine_government_holder = temp_xmachine_government_holder;
    }
    government_GovernmentIncomeStatement_state->count = 0;
    current_xmachine_government_holder = government_end_state->agents;
    while(current_xmachine_government_holder)
    {
        temp_xmachine_government_holder = current_xmachine_government_holder->next;
        free_government_agent(current_xmachine_government_holder, government_end_state);
        current_xmachine_government_holder = temp_xmachine_government_holder;
    }
    government_end_state->count = 0;
    current_xmachine_government_holder = government_GovernmentLabourTax_state->agents;
    while(current_xmachine_government_holder)
    {
        temp_xmachine_government_holder = current_xmachine_government_holder->next;
        free_government_agent(current_xmachine_government_holder, government_GovernmentLabourTax_state);
        current_xmachine_government_holder = temp_xmachine_government_holder;
    }
    government_GovernmentLabourTax_state->count = 0;
    current_xmachine_government_holder = government_GovernmentUnemploymentBenefits_state->agents;
    while(current_xmachine_government_holder)
    {
        temp_xmachine_government_holder = current_xmachine_government_holder->next;
        free_government_agent(current_xmachine_government_holder, government_GovernmentUnemploymentBenefits_state);
        current_xmachine_government_holder = temp_xmachine_government_holder;
    }
    government_GovernmentUnemploymentBenefits_state->count = 0;
    current_xmachine_government_holder = government_GovernmentMonthly_state->agents;
    while(current_xmachine_government_holder)
    {
        temp_xmachine_government_holder = current_xmachine_government_holder->next;
        free_government_agent(current_xmachine_government_holder, government_GovernmentMonthly_state);
        current_xmachine_government_holder = temp_xmachine_government_holder;
    }
    government_GovernmentMonthly_state->count = 0;
    current_xmachine_government_holder = government_GovernmentFiscalPolicy_state->agents;
    while(current_xmachine_government_holder)
    {
        temp_xmachine_government_holder = current_xmachine_government_holder->next;
        free_government_agent(current_xmachine_government_holder, government_GovernmentFiscalPolicy_state);
        current_xmachine_government_holder = temp_xmachine_government_holder;
    }
    government_GovernmentFiscalPolicy_state->count = 0;
    current_xmachine_government_holder = government_GovernmentLabourStatus_state->agents;
    while(current_xmachine_government_holder)
    {
        temp_xmachine_government_holder = current_xmachine_government_holder->next;
        free_government_agent(current_xmachine_government_holder, government_GovernmentLabourStatus_state);
        current_xmachine_government_holder = temp_xmachine_government_holder;
    }
    government_GovernmentLabourStatus_state->count = 0;
    current_xmachine_government_holder = government_GovernmentCredit_state->agents;
    while(current_xmachine_government_holder)
    {
        temp_xmachine_government_holder = current_xmachine_government_holder->next;
        free_government_agent(current_xmachine_government_holder, government_GovernmentCredit_state);
        current_xmachine_government_holder = temp_xmachine_government_holder;
    }
    government_GovernmentCredit_state->count = 0;
    current_xmachine_government_holder = government_GovernmentLoop_state->agents;
    while(current_xmachine_government_holder)
    {
        temp_xmachine_government_holder = current_xmachine_government_holder->next;
        free_government_agent(current_xmachine_government_holder, government_GovernmentLoop_state);
        current_xmachine_government_holder = temp_xmachine_government_holder;
    }
    government_GovernmentLoop_state->count = 0;
    current_xmachine_government_holder = government_start_state->agents;
    while(current_xmachine_government_holder)
    {
        temp_xmachine_government_holder = current_xmachine_government_holder->next;
        free_government_agent(current_xmachine_government_holder, government_start_state);
        current_xmachine_government_holder = temp_xmachine_government_holder;
    }
    government_start_state->count = 0;
}

void free_government_states()
{
    free(government_GovernmentUpdatePolicy_state);
    free(government_GovernmentBalanceSheet_state);
    free(government_GovernmentIncomeStatement_state);
    free(government_end_state);
    free(government_GovernmentLabourTax_state);
    free(government_GovernmentUnemploymentBenefits_state);
    free(government_GovernmentMonthly_state);
    free(government_GovernmentFiscalPolicy_state);
    free(government_GovernmentLabourStatus_state);
    free(government_GovernmentCredit_state);
    free(government_GovernmentLoop_state);
    free(government_start_state);
}

void transition_government_agent(xmachine_memory_government_holder * tmp, xmachine_memory_government_state * from_state, xmachine_memory_government_state * to_state)
{
    if(tmp->prev == NULL) from_state->agents = tmp->next;
    else tmp->prev->next = tmp->next;
    if(tmp->next != NULL) tmp->next->prev = tmp->prev;

    add_government_agent_internal(tmp->agent, to_state);
    free(tmp);
}

void add_government_agent_internal(xmachine_memory_government * agent, xmachine_memory_government_state * state)
{
    xmachine_memory_government_holder * current = (xmachine_memory_government_holder *)malloc(sizeof(xmachine_memory_government_holder));
    CHECK_POINTER(current);

    current->next = state->agents;
    current->prev = NULL;
    state->agents = current;
    if(current->next != NULL) current->next->prev = current;
    current->agent = agent;

    state->count++;

}

void add_government_agent(int id, int it_no, double average_wage, double unemployment_rate, int population_size, double debt, double equity, double liquidity, int day_of_month_to_act, int day_of_month_wages_paid, double capital_tax_rate, double labour_tax_rate, double labour_tax_income, double capital_tax_income, double gov_general_benefit_rate, double gov_unemployment_rate, double general_benefits, double unemployment_benefits, double earnings, double centralbank_income, double expenditures)
{
    xmachine_memory_government * current;

    current = init_government_agent();
    /* new line added to handle dynamic agent creation*/
    current_xmachine_government_next_state = government_start_state;
    add_government_agent_internal(current, current_xmachine_government_next_state);

    current->id = id;
    current->it_no = it_no;
    current->average_wage = average_wage;
    current->unemployment_rate = unemployment_rate;
    current->population_size = population_size;
    current->debt = debt;
    current->equity = equity;
    current->liquidity = liquidity;
    current->day_of_month_to_act = day_of_month_to_act;
    current->day_of_month_wages_paid = day_of_month_wages_paid;
    current->capital_tax_rate = capital_tax_rate;
    current->labour_tax_rate = labour_tax_rate;
    current->labour_tax_income = labour_tax_income;
    current->capital_tax_income = capital_tax_income;
    current->gov_general_benefit_rate = gov_general_benefit_rate;
    current->gov_unemployment_rate = gov_unemployment_rate;
    current->general_benefits = general_benefits;
    current->unemployment_benefits = unemployment_benefits;
    current->earnings = earnings;
    current->centralbank_income = centralbank_income;
    current->expenditures = expenditures;
}

xmachine_memory_centralbank_state * init_centralbank_state()
{
    xmachine_memory_centralbank_state * current = (xmachine_memory_centralbank_state *)malloc(sizeof(xmachine_memory_centralbank_state));
    CHECK_POINTER(current);

    current->agents = NULL;
    current->count = 0;

    return current;
}

xmachine_memory_centralbank * init_centralbank_agent()
{
    xmachine_memory_centralbank * current = (xmachine_memory_centralbank *)malloc(sizeof(xmachine_memory_centralbank));
    CHECK_POINTER(current);

    current->id = 0;
    current->day_of_month_to_act = 0;
    current->unemployment_rate = 0.0;
    current->inflation_rate = 0.0;
    init_double_static_array(current->consumption_goods_prices, 12);
    current->it_no = 0;
    current->day_of_week_to_act = 0;
    init_transaction(&current->goods);
    init_double_static_array(current->weekly_price_averages, 4);
    current->day_of_month_wages_paid = 0;
    current->interest_rate = 0.0;
    current->liquidity = 0.0;
    current->loans_banks = 0.0;
    current->loans_government = 0.0;
    current->fiat_money = 0.0;
    current->equity = 0.0;
    current->liquidity_banks = 0.0;
    current->liquidity_government = 0.0;
    current->liquidity_equityfund = 0.0;
    current->total_assets = 0.0;
    current->total_writeoffs = 0.0;
    current->interests_accrued = 0.0;
    current->revenues = 0.0;
    current->net_earnings = 0.0;
    current->total_costs = 0.0;
    init_transaction(&current->houses);

    return current;
}

void free_centralbank_agent(xmachine_memory_centralbank_holder * tmp, xmachine_memory_centralbank_state * state)
{
    if(tmp->prev == NULL) state->agents = tmp->next;
    else tmp->prev->next = tmp->next;
    if(tmp->next != NULL) tmp->next->prev = tmp->prev;

    free_transaction(&tmp->agent->goods);
    free_transaction(&tmp->agent->houses);
    

    free(tmp->agent);
    free(tmp);
}

void unittest_init_centralbank_agent()
{
    current_xmachine_centralbank = (xmachine_memory_centralbank *)malloc(sizeof(xmachine_memory_centralbank));
    CHECK_POINTER(current);

        current_xmachine_centralbank->id = 0;
        current_xmachine_centralbank->day_of_month_to_act = 0;
        current_xmachine_centralbank->unemployment_rate = 0.0;
        current_xmachine_centralbank->inflation_rate = 0.0;
        init_double_static_array(current_xmachine_centralbank->consumption_goods_prices, 12);
        current_xmachine_centralbank->it_no = 0;
        current_xmachine_centralbank->day_of_week_to_act = 0;
        init_transaction(&current_xmachine_centralbank->goods);
        init_double_static_array(current_xmachine_centralbank->weekly_price_averages, 4);
        current_xmachine_centralbank->day_of_month_wages_paid = 0;
        current_xmachine_centralbank->interest_rate = 0.0;
        current_xmachine_centralbank->liquidity = 0.0;
        current_xmachine_centralbank->loans_banks = 0.0;
        current_xmachine_centralbank->loans_government = 0.0;
        current_xmachine_centralbank->fiat_money = 0.0;
        current_xmachine_centralbank->equity = 0.0;
        current_xmachine_centralbank->liquidity_banks = 0.0;
        current_xmachine_centralbank->liquidity_government = 0.0;
        current_xmachine_centralbank->liquidity_equityfund = 0.0;
        current_xmachine_centralbank->total_assets = 0.0;
        current_xmachine_centralbank->total_writeoffs = 0.0;
        current_xmachine_centralbank->interests_accrued = 0.0;
        current_xmachine_centralbank->revenues = 0.0;
        current_xmachine_centralbank->net_earnings = 0.0;
        current_xmachine_centralbank->total_costs = 0.0;
        init_transaction(&current_xmachine_centralbank->houses);
    
}

void unittest_free_centralbank_agent()
{
    free_transaction(&current_xmachine_centralbank->goods);
    free_transaction(&current_xmachine_centralbank->houses);
    
    free(current_xmachine_centralbank);
}

void free_centralbank_agents()
{
    current_xmachine_centralbank_holder = centralbank_CentralBankUpdateInterestRate_state->agents;
    while(current_xmachine_centralbank_holder)
    {
        temp_xmachine_centralbank_holder = current_xmachine_centralbank_holder->next;
        free_centralbank_agent(current_xmachine_centralbank_holder, centralbank_CentralBankUpdateInterestRate_state);
        current_xmachine_centralbank_holder = temp_xmachine_centralbank_holder;
    }
    centralbank_CentralBankUpdateInterestRate_state->count = 0;
    current_xmachine_centralbank_holder = centralbank_CentralBankBalanceSheet_state->agents;
    while(current_xmachine_centralbank_holder)
    {
        temp_xmachine_centralbank_holder = current_xmachine_centralbank_holder->next;
        free_centralbank_agent(current_xmachine_centralbank_holder, centralbank_CentralBankBalanceSheet_state);
        current_xmachine_centralbank_holder = temp_xmachine_centralbank_holder;
    }
    centralbank_CentralBankBalanceSheet_state->count = 0;
    current_xmachine_centralbank_holder = centralbank_CentralBankGovernmentRequests_state->agents;
    while(current_xmachine_centralbank_holder)
    {
        temp_xmachine_centralbank_holder = current_xmachine_centralbank_holder->next;
        free_centralbank_agent(current_xmachine_centralbank_holder, centralbank_CentralBankGovernmentRequests_state);
        current_xmachine_centralbank_holder = temp_xmachine_centralbank_holder;
    }
    centralbank_CentralBankGovernmentRequests_state->count = 0;
    current_xmachine_centralbank_holder = centralbank_end_state->agents;
    while(current_xmachine_centralbank_holder)
    {
        temp_xmachine_centralbank_holder = current_xmachine_centralbank_holder->next;
        free_centralbank_agent(current_xmachine_centralbank_holder, centralbank_end_state);
        current_xmachine_centralbank_holder = temp_xmachine_centralbank_holder;
    }
    centralbank_end_state->count = 0;
    current_xmachine_centralbank_holder = centralbank_CentralBankDebtRequests_state->agents;
    while(current_xmachine_centralbank_holder)
    {
        temp_xmachine_centralbank_holder = current_xmachine_centralbank_holder->next;
        free_centralbank_agent(current_xmachine_centralbank_holder, centralbank_CentralBankDebtRequests_state);
        current_xmachine_centralbank_holder = temp_xmachine_centralbank_holder;
    }
    centralbank_CentralBankDebtRequests_state->count = 0;
    current_xmachine_centralbank_holder = centralbank_CentralBankPolicy_state->agents;
    while(current_xmachine_centralbank_holder)
    {
        temp_xmachine_centralbank_holder = current_xmachine_centralbank_holder->next;
        free_centralbank_agent(current_xmachine_centralbank_holder, centralbank_CentralBankPolicy_state);
        current_xmachine_centralbank_holder = temp_xmachine_centralbank_holder;
    }
    centralbank_CentralBankPolicy_state->count = 0;
    current_xmachine_centralbank_holder = centralbank_CentralBankLabour_state->agents;
    while(current_xmachine_centralbank_holder)
    {
        temp_xmachine_centralbank_holder = current_xmachine_centralbank_holder->next;
        free_centralbank_agent(current_xmachine_centralbank_holder, centralbank_CentralBankLabour_state);
        current_xmachine_centralbank_holder = temp_xmachine_centralbank_holder;
    }
    centralbank_CentralBankLabour_state->count = 0;
    current_xmachine_centralbank_holder = centralbank_CentralBankHousing_state->agents;
    while(current_xmachine_centralbank_holder)
    {
        temp_xmachine_centralbank_holder = current_xmachine_centralbank_holder->next;
        free_centralbank_agent(current_xmachine_centralbank_holder, centralbank_CentralBankHousing_state);
        current_xmachine_centralbank_holder = temp_xmachine_centralbank_holder;
    }
    centralbank_CentralBankHousing_state->count = 0;
    current_xmachine_centralbank_holder = centralbank_CentralBankConsumptionPrices_state->agents;
    while(current_xmachine_centralbank_holder)
    {
        temp_xmachine_centralbank_holder = current_xmachine_centralbank_holder->next;
        free_centralbank_agent(current_xmachine_centralbank_holder, centralbank_CentralBankConsumptionPrices_state);
        current_xmachine_centralbank_holder = temp_xmachine_centralbank_holder;
    }
    centralbank_CentralBankConsumptionPrices_state->count = 0;
    current_xmachine_centralbank_holder = centralbank_CentralBankConsumption_state->agents;
    while(current_xmachine_centralbank_holder)
    {
        temp_xmachine_centralbank_holder = current_xmachine_centralbank_holder->next;
        free_centralbank_agent(current_xmachine_centralbank_holder, centralbank_CentralBankConsumption_state);
        current_xmachine_centralbank_holder = temp_xmachine_centralbank_holder;
    }
    centralbank_CentralBankConsumption_state->count = 0;
    current_xmachine_centralbank_holder = centralbank_CentralBankCredit_state->agents;
    while(current_xmachine_centralbank_holder)
    {
        temp_xmachine_centralbank_holder = current_xmachine_centralbank_holder->next;
        free_centralbank_agent(current_xmachine_centralbank_holder, centralbank_CentralBankCredit_state);
        current_xmachine_centralbank_holder = temp_xmachine_centralbank_holder;
    }
    centralbank_CentralBankCredit_state->count = 0;
    current_xmachine_centralbank_holder = centralbank_CentralBankLoop_state->agents;
    while(current_xmachine_centralbank_holder)
    {
        temp_xmachine_centralbank_holder = current_xmachine_centralbank_holder->next;
        free_centralbank_agent(current_xmachine_centralbank_holder, centralbank_CentralBankLoop_state);
        current_xmachine_centralbank_holder = temp_xmachine_centralbank_holder;
    }
    centralbank_CentralBankLoop_state->count = 0;
    current_xmachine_centralbank_holder = centralbank_CentralBankInitBalanceSheet_state->agents;
    while(current_xmachine_centralbank_holder)
    {
        temp_xmachine_centralbank_holder = current_xmachine_centralbank_holder->next;
        free_centralbank_agent(current_xmachine_centralbank_holder, centralbank_CentralBankInitBalanceSheet_state);
        current_xmachine_centralbank_holder = temp_xmachine_centralbank_holder;
    }
    centralbank_CentralBankInitBalanceSheet_state->count = 0;
    current_xmachine_centralbank_holder = centralbank_start_state->agents;
    while(current_xmachine_centralbank_holder)
    {
        temp_xmachine_centralbank_holder = current_xmachine_centralbank_holder->next;
        free_centralbank_agent(current_xmachine_centralbank_holder, centralbank_start_state);
        current_xmachine_centralbank_holder = temp_xmachine_centralbank_holder;
    }
    centralbank_start_state->count = 0;
}

void free_centralbank_states()
{
    free(centralbank_CentralBankUpdateInterestRate_state);
    free(centralbank_CentralBankBalanceSheet_state);
    free(centralbank_CentralBankGovernmentRequests_state);
    free(centralbank_end_state);
    free(centralbank_CentralBankDebtRequests_state);
    free(centralbank_CentralBankPolicy_state);
    free(centralbank_CentralBankLabour_state);
    free(centralbank_CentralBankHousing_state);
    free(centralbank_CentralBankConsumptionPrices_state);
    free(centralbank_CentralBankConsumption_state);
    free(centralbank_CentralBankCredit_state);
    free(centralbank_CentralBankLoop_state);
    free(centralbank_CentralBankInitBalanceSheet_state);
    free(centralbank_start_state);
}

void transition_centralbank_agent(xmachine_memory_centralbank_holder * tmp, xmachine_memory_centralbank_state * from_state, xmachine_memory_centralbank_state * to_state)
{
    if(tmp->prev == NULL) from_state->agents = tmp->next;
    else tmp->prev->next = tmp->next;
    if(tmp->next != NULL) tmp->next->prev = tmp->prev;

    add_centralbank_agent_internal(tmp->agent, to_state);
    free(tmp);
}

void add_centralbank_agent_internal(xmachine_memory_centralbank * agent, xmachine_memory_centralbank_state * state)
{
    xmachine_memory_centralbank_holder * current = (xmachine_memory_centralbank_holder *)malloc(sizeof(xmachine_memory_centralbank_holder));
    CHECK_POINTER(current);

    current->next = state->agents;
    current->prev = NULL;
    state->agents = current;
    if(current->next != NULL) current->next->prev = current;
    current->agent = agent;

    state->count++;

}

void add_centralbank_agent(int id, int day_of_month_to_act, double unemployment_rate, double inflation_rate, double consumption_goods_prices[], int it_no, int day_of_week_to_act, transaction goods, double weekly_price_averages[], int day_of_month_wages_paid, double interest_rate, double liquidity, double loans_banks, double loans_government, double fiat_money, double equity, double liquidity_banks, double liquidity_government, double liquidity_equityfund, double total_assets, double total_writeoffs, double interests_accrued, double revenues, double net_earnings, double total_costs, transaction houses)
{
    xmachine_memory_centralbank * current;

    current = init_centralbank_agent();
    /* new line added to handle dynamic agent creation*/
    current_xmachine_centralbank_next_state = centralbank_start_state;
    add_centralbank_agent_internal(current, current_xmachine_centralbank_next_state);

    current->id = id;
    current->day_of_month_to_act = day_of_month_to_act;
    current->unemployment_rate = unemployment_rate;
    current->inflation_rate = inflation_rate;
    memcpy(current->consumption_goods_prices, consumption_goods_prices, 12*sizeof(double));
    current->it_no = it_no;
    current->day_of_week_to_act = day_of_week_to_act;
    copy_transaction(&goods, &current->goods);
    memcpy(current->weekly_price_averages, weekly_price_averages, 4*sizeof(double));
    current->day_of_month_wages_paid = day_of_month_wages_paid;
    current->interest_rate = interest_rate;
    current->liquidity = liquidity;
    current->loans_banks = loans_banks;
    current->loans_government = loans_government;
    current->fiat_money = fiat_money;
    current->equity = equity;
    current->liquidity_banks = liquidity_banks;
    current->liquidity_government = liquidity_government;
    current->liquidity_equityfund = liquidity_equityfund;
    current->total_assets = total_assets;
    current->total_writeoffs = total_writeoffs;
    current->interests_accrued = interests_accrued;
    current->revenues = revenues;
    current->net_earnings = net_earnings;
    current->total_costs = total_costs;
    copy_transaction(&houses, &current->houses);
}

xmachine_memory_jpoffice_state * init_jpoffice_state()
{
    xmachine_memory_jpoffice_state * current = (xmachine_memory_jpoffice_state *)malloc(sizeof(xmachine_memory_jpoffice_state));
    CHECK_POINTER(current);

    current->agents = NULL;
    current->count = 0;

    return current;
}

xmachine_memory_jpoffice * init_jpoffice_agent()
{
    xmachine_memory_jpoffice * current = (xmachine_memory_jpoffice *)malloc(sizeof(xmachine_memory_jpoffice));
    CHECK_POINTER(current);

    current->id = 0;
    current->it_no = 0;
    current->day_of_month_to_act = 0;

    return current;
}

void free_jpoffice_agent(xmachine_memory_jpoffice_holder * tmp, xmachine_memory_jpoffice_state * state)
{
    if(tmp->prev == NULL) state->agents = tmp->next;
    else tmp->prev->next = tmp->next;
    if(tmp->next != NULL) tmp->next->prev = tmp->prev;

    

    free(tmp->agent);
    free(tmp);
}

void unittest_init_jpoffice_agent()
{
    current_xmachine_jpoffice = (xmachine_memory_jpoffice *)malloc(sizeof(xmachine_memory_jpoffice));
    CHECK_POINTER(current);

        current_xmachine_jpoffice->id = 0;
        current_xmachine_jpoffice->it_no = 0;
        current_xmachine_jpoffice->day_of_month_to_act = 0;
    
}

void unittest_free_jpoffice_agent()
{
    
    free(current_xmachine_jpoffice);
}

void free_jpoffice_agents()
{
    current_xmachine_jpoffice_holder = jpoffice_JPOLabourStage2_state->agents;
    while(current_xmachine_jpoffice_holder)
    {
        temp_xmachine_jpoffice_holder = current_xmachine_jpoffice_holder->next;
        free_jpoffice_agent(current_xmachine_jpoffice_holder, jpoffice_JPOLabourStage2_state);
        current_xmachine_jpoffice_holder = temp_xmachine_jpoffice_holder;
    }
    jpoffice_JPOLabourStage2_state->count = 0;
    current_xmachine_jpoffice_holder = jpoffice_end_state->agents;
    while(current_xmachine_jpoffice_holder)
    {
        temp_xmachine_jpoffice_holder = current_xmachine_jpoffice_holder->next;
        free_jpoffice_agent(current_xmachine_jpoffice_holder, jpoffice_end_state);
        current_xmachine_jpoffice_holder = temp_xmachine_jpoffice_holder;
    }
    jpoffice_end_state->count = 0;
    current_xmachine_jpoffice_holder = jpoffice_JPOLabourMarket_state->agents;
    while(current_xmachine_jpoffice_holder)
    {
        temp_xmachine_jpoffice_holder = current_xmachine_jpoffice_holder->next;
        free_jpoffice_agent(current_xmachine_jpoffice_holder, jpoffice_JPOLabourMarket_state);
        current_xmachine_jpoffice_holder = temp_xmachine_jpoffice_holder;
    }
    jpoffice_JPOLabourMarket_state->count = 0;
    current_xmachine_jpoffice_holder = jpoffice_JPOfficeLoop_state->agents;
    while(current_xmachine_jpoffice_holder)
    {
        temp_xmachine_jpoffice_holder = current_xmachine_jpoffice_holder->next;
        free_jpoffice_agent(current_xmachine_jpoffice_holder, jpoffice_JPOfficeLoop_state);
        current_xmachine_jpoffice_holder = temp_xmachine_jpoffice_holder;
    }
    jpoffice_JPOfficeLoop_state->count = 0;
    current_xmachine_jpoffice_holder = jpoffice_JPOfficeInitEmployment_state->agents;
    while(current_xmachine_jpoffice_holder)
    {
        temp_xmachine_jpoffice_holder = current_xmachine_jpoffice_holder->next;
        free_jpoffice_agent(current_xmachine_jpoffice_holder, jpoffice_JPOfficeInitEmployment_state);
        current_xmachine_jpoffice_holder = temp_xmachine_jpoffice_holder;
    }
    jpoffice_JPOfficeInitEmployment_state->count = 0;
    current_xmachine_jpoffice_holder = jpoffice_start_state->agents;
    while(current_xmachine_jpoffice_holder)
    {
        temp_xmachine_jpoffice_holder = current_xmachine_jpoffice_holder->next;
        free_jpoffice_agent(current_xmachine_jpoffice_holder, jpoffice_start_state);
        current_xmachine_jpoffice_holder = temp_xmachine_jpoffice_holder;
    }
    jpoffice_start_state->count = 0;
}

void free_jpoffice_states()
{
    free(jpoffice_JPOLabourStage2_state);
    free(jpoffice_end_state);
    free(jpoffice_JPOLabourMarket_state);
    free(jpoffice_JPOfficeLoop_state);
    free(jpoffice_JPOfficeInitEmployment_state);
    free(jpoffice_start_state);
}

void transition_jpoffice_agent(xmachine_memory_jpoffice_holder * tmp, xmachine_memory_jpoffice_state * from_state, xmachine_memory_jpoffice_state * to_state)
{
    if(tmp->prev == NULL) from_state->agents = tmp->next;
    else tmp->prev->next = tmp->next;
    if(tmp->next != NULL) tmp->next->prev = tmp->prev;

    add_jpoffice_agent_internal(tmp->agent, to_state);
    free(tmp);
}

void add_jpoffice_agent_internal(xmachine_memory_jpoffice * agent, xmachine_memory_jpoffice_state * state)
{
    xmachine_memory_jpoffice_holder * current = (xmachine_memory_jpoffice_holder *)malloc(sizeof(xmachine_memory_jpoffice_holder));
    CHECK_POINTER(current);

    current->next = state->agents;
    current->prev = NULL;
    state->agents = current;
    if(current->next != NULL) current->next->prev = current;
    current->agent = agent;

    state->count++;

}

void add_jpoffice_agent(int id, int it_no, int day_of_month_to_act)
{
    xmachine_memory_jpoffice * current;

    current = init_jpoffice_agent();
    /* new line added to handle dynamic agent creation*/
    current_xmachine_jpoffice_next_state = jpoffice_start_state;
    add_jpoffice_agent_internal(current, current_xmachine_jpoffice_next_state);

    current->id = id;
    current->it_no = it_no;
    current->day_of_month_to_act = day_of_month_to_act;
}

xmachine_memory_mall_state * init_mall_state()
{
    xmachine_memory_mall_state * current = (xmachine_memory_mall_state *)malloc(sizeof(xmachine_memory_mall_state));
    CHECK_POINTER(current);

    current->agents = NULL;
    current->count = 0;

    return current;
}

xmachine_memory_mall * init_mall_agent()
{
    xmachine_memory_mall * current = (xmachine_memory_mall *)malloc(sizeof(xmachine_memory_mall));
    CHECK_POINTER(current);

    current->id = 0;
    current->it_no = 0;
    current->day_of_week_to_act = 0;
    init_transaction(&current->goods_transactions);

    return current;
}

void free_mall_agent(xmachine_memory_mall_holder * tmp, xmachine_memory_mall_state * state)
{
    if(tmp->prev == NULL) state->agents = tmp->next;
    else tmp->prev->next = tmp->next;
    if(tmp->next != NULL) tmp->next->prev = tmp->prev;

    free_transaction(&tmp->agent->goods_transactions);
    

    free(tmp->agent);
    free(tmp);
}

void unittest_init_mall_agent()
{
    current_xmachine_mall = (xmachine_memory_mall *)malloc(sizeof(xmachine_memory_mall));
    CHECK_POINTER(current);

        current_xmachine_mall->id = 0;
        current_xmachine_mall->it_no = 0;
        current_xmachine_mall->day_of_week_to_act = 0;
        init_transaction(&current_xmachine_mall->goods_transactions);
    
}

void unittest_free_mall_agent()
{
    free_transaction(&current_xmachine_mall->goods_transactions);
    
    free(current_xmachine_mall);
}

void free_mall_agents()
{
    current_xmachine_mall_holder = mall_MallConsumptionSummary_state->agents;
    while(current_xmachine_mall_holder)
    {
        temp_xmachine_mall_holder = current_xmachine_mall_holder->next;
        free_mall_agent(current_xmachine_mall_holder, mall_MallConsumptionSummary_state);
        current_xmachine_mall_holder = temp_xmachine_mall_holder;
    }
    mall_MallConsumptionSummary_state->count = 0;
    current_xmachine_mall_holder = mall_end_state->agents;
    while(current_xmachine_mall_holder)
    {
        temp_xmachine_mall_holder = current_xmachine_mall_holder->next;
        free_mall_agent(current_xmachine_mall_holder, mall_end_state);
        current_xmachine_mall_holder = temp_xmachine_mall_holder;
    }
    mall_end_state->count = 0;
    current_xmachine_mall_holder = mall_MallConsumptionMarket_state->agents;
    while(current_xmachine_mall_holder)
    {
        temp_xmachine_mall_holder = current_xmachine_mall_holder->next;
        free_mall_agent(current_xmachine_mall_holder, mall_MallConsumptionMarket_state);
        current_xmachine_mall_holder = temp_xmachine_mall_holder;
    }
    mall_MallConsumptionMarket_state->count = 0;
    current_xmachine_mall_holder = mall_start_state->agents;
    while(current_xmachine_mall_holder)
    {
        temp_xmachine_mall_holder = current_xmachine_mall_holder->next;
        free_mall_agent(current_xmachine_mall_holder, mall_start_state);
        current_xmachine_mall_holder = temp_xmachine_mall_holder;
    }
    mall_start_state->count = 0;
}

void free_mall_states()
{
    free(mall_MallConsumptionSummary_state);
    free(mall_end_state);
    free(mall_MallConsumptionMarket_state);
    free(mall_start_state);
}

void transition_mall_agent(xmachine_memory_mall_holder * tmp, xmachine_memory_mall_state * from_state, xmachine_memory_mall_state * to_state)
{
    if(tmp->prev == NULL) from_state->agents = tmp->next;
    else tmp->prev->next = tmp->next;
    if(tmp->next != NULL) tmp->next->prev = tmp->prev;

    add_mall_agent_internal(tmp->agent, to_state);
    free(tmp);
}

void add_mall_agent_internal(xmachine_memory_mall * agent, xmachine_memory_mall_state * state)
{
    xmachine_memory_mall_holder * current = (xmachine_memory_mall_holder *)malloc(sizeof(xmachine_memory_mall_holder));
    CHECK_POINTER(current);

    current->next = state->agents;
    current->prev = NULL;
    state->agents = current;
    if(current->next != NULL) current->next->prev = current;
    current->agent = agent;

    state->count++;

}

void add_mall_agent(int id, int it_no, int day_of_week_to_act, transaction goods_transactions)
{
    xmachine_memory_mall * current;

    current = init_mall_agent();
    /* new line added to handle dynamic agent creation*/
    current_xmachine_mall_next_state = mall_start_state;
    add_mall_agent_internal(current, current_xmachine_mall_next_state);

    current->id = id;
    current->it_no = it_no;
    current->day_of_week_to_act = day_of_week_to_act;
    copy_transaction(&goods_transactions, &current->goods_transactions);
}

xmachine_memory_reagency_state * init_reagency_state()
{
    xmachine_memory_reagency_state * current = (xmachine_memory_reagency_state *)malloc(sizeof(xmachine_memory_reagency_state));
    CHECK_POINTER(current);

    current->agents = NULL;
    current->count = 0;

    return current;
}

xmachine_memory_reagency * init_reagency_agent()
{
    xmachine_memory_reagency * current = (xmachine_memory_reagency *)malloc(sizeof(xmachine_memory_reagency));
    CHECK_POINTER(current);

    current->id = 0;
    current->day_of_month_to_act = 0;
    current->it_no = 0;
    current->mortgages_interest_rate = 0.0;
    init_transaction(&current->housing_transactions);

    return current;
}

void free_reagency_agent(xmachine_memory_reagency_holder * tmp, xmachine_memory_reagency_state * state)
{
    if(tmp->prev == NULL) state->agents = tmp->next;
    else tmp->prev->next = tmp->next;
    if(tmp->next != NULL) tmp->next->prev = tmp->prev;

    free_transaction(&tmp->agent->housing_transactions);
    

    free(tmp->agent);
    free(tmp);
}

void unittest_init_reagency_agent()
{
    current_xmachine_reagency = (xmachine_memory_reagency *)malloc(sizeof(xmachine_memory_reagency));
    CHECK_POINTER(current);

        current_xmachine_reagency->id = 0;
        current_xmachine_reagency->day_of_month_to_act = 0;
        current_xmachine_reagency->it_no = 0;
        current_xmachine_reagency->mortgages_interest_rate = 0.0;
        init_transaction(&current_xmachine_reagency->housing_transactions);
    
}

void unittest_free_reagency_agent()
{
    free_transaction(&current_xmachine_reagency->housing_transactions);
    
    free(current_xmachine_reagency);
}

void free_reagency_agents()
{
    current_xmachine_reagency_holder = reagency_REAgencyHousingSummary_state->agents;
    while(current_xmachine_reagency_holder)
    {
        temp_xmachine_reagency_holder = current_xmachine_reagency_holder->next;
        free_reagency_agent(current_xmachine_reagency_holder, reagency_REAgencyHousingSummary_state);
        current_xmachine_reagency_holder = temp_xmachine_reagency_holder;
    }
    reagency_REAgencyHousingSummary_state->count = 0;
    current_xmachine_reagency_holder = reagency_end_state->agents;
    while(current_xmachine_reagency_holder)
    {
        temp_xmachine_reagency_holder = current_xmachine_reagency_holder->next;
        free_reagency_agent(current_xmachine_reagency_holder, reagency_end_state);
        current_xmachine_reagency_holder = temp_xmachine_reagency_holder;
    }
    reagency_end_state->count = 0;
    current_xmachine_reagency_holder = reagency_REAgencyCreditPolicyChecks_state->agents;
    while(current_xmachine_reagency_holder)
    {
        temp_xmachine_reagency_holder = current_xmachine_reagency_holder->next;
        free_reagency_agent(current_xmachine_reagency_holder, reagency_REAgencyCreditPolicyChecks_state);
        current_xmachine_reagency_holder = temp_xmachine_reagency_holder;
    }
    reagency_REAgencyCreditPolicyChecks_state->count = 0;
    current_xmachine_reagency_holder = reagency_REAgencyHousingMarket_state->agents;
    while(current_xmachine_reagency_holder)
    {
        temp_xmachine_reagency_holder = current_xmachine_reagency_holder->next;
        free_reagency_agent(current_xmachine_reagency_holder, reagency_REAgencyHousingMarket_state);
        current_xmachine_reagency_holder = temp_xmachine_reagency_holder;
    }
    reagency_REAgencyHousingMarket_state->count = 0;
    current_xmachine_reagency_holder = reagency_start_state->agents;
    while(current_xmachine_reagency_holder)
    {
        temp_xmachine_reagency_holder = current_xmachine_reagency_holder->next;
        free_reagency_agent(current_xmachine_reagency_holder, reagency_start_state);
        current_xmachine_reagency_holder = temp_xmachine_reagency_holder;
    }
    reagency_start_state->count = 0;
}

void free_reagency_states()
{
    free(reagency_REAgencyHousingSummary_state);
    free(reagency_end_state);
    free(reagency_REAgencyCreditPolicyChecks_state);
    free(reagency_REAgencyHousingMarket_state);
    free(reagency_start_state);
}

void transition_reagency_agent(xmachine_memory_reagency_holder * tmp, xmachine_memory_reagency_state * from_state, xmachine_memory_reagency_state * to_state)
{
    if(tmp->prev == NULL) from_state->agents = tmp->next;
    else tmp->prev->next = tmp->next;
    if(tmp->next != NULL) tmp->next->prev = tmp->prev;

    add_reagency_agent_internal(tmp->agent, to_state);
    free(tmp);
}

void add_reagency_agent_internal(xmachine_memory_reagency * agent, xmachine_memory_reagency_state * state)
{
    xmachine_memory_reagency_holder * current = (xmachine_memory_reagency_holder *)malloc(sizeof(xmachine_memory_reagency_holder));
    CHECK_POINTER(current);

    current->next = state->agents;
    current->prev = NULL;
    state->agents = current;
    if(current->next != NULL) current->next->prev = current;
    current->agent = agent;

    state->count++;

}

void add_reagency_agent(int id, int day_of_month_to_act, int it_no, double mortgages_interest_rate, transaction housing_transactions)
{
    xmachine_memory_reagency * current;

    current = init_reagency_agent();
    /* new line added to handle dynamic agent creation*/
    current_xmachine_reagency_next_state = reagency_start_state;
    add_reagency_agent_internal(current, current_xmachine_reagency_next_state);

    current->id = id;
    current->day_of_month_to_act = day_of_month_to_act;
    current->it_no = it_no;
    current->mortgages_interest_rate = mortgages_interest_rate;
    copy_transaction(&housing_transactions, &current->housing_transactions);
}


/* freexmachines */
void freexmachines()
{
    free_firm_agents();
    free_household_agents();
    free_equityfund_agents();
    free_bank_agents();
    free_government_agents();
    free_centralbank_agents();
    free_jpoffice_agents();
    free_mall_agents();
    free_reagency_agents();
    
}


void set_id(int id)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).id = id;
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).id = id;
    if(current_xmachine->xmachine_equityfund) (*current_xmachine->xmachine_equityfund).id = id;
    if(current_xmachine->xmachine_bank) (*current_xmachine->xmachine_bank).id = id;
    if(current_xmachine->xmachine_government) (*current_xmachine->xmachine_government).id = id;
    if(current_xmachine->xmachine_centralbank) (*current_xmachine->xmachine_centralbank).id = id;
    if(current_xmachine->xmachine_jpoffice) (*current_xmachine->xmachine_jpoffice).id = id;
    if(current_xmachine->xmachine_mall) (*current_xmachine->xmachine_mall).id = id;
    if(current_xmachine->xmachine_reagency) (*current_xmachine->xmachine_reagency).id = id;
}

int get_id()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).id;
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).id;
    if(current_xmachine->xmachine_equityfund) return (*current_xmachine->xmachine_equityfund).id;
    if(current_xmachine->xmachine_bank) return (*current_xmachine->xmachine_bank).id;
    if(current_xmachine->xmachine_government) return (*current_xmachine->xmachine_government).id;
    if(current_xmachine->xmachine_centralbank) return (*current_xmachine->xmachine_centralbank).id;
    if(current_xmachine->xmachine_jpoffice) return (*current_xmachine->xmachine_jpoffice).id;
    if(current_xmachine->xmachine_mall) return (*current_xmachine->xmachine_mall).id;
    if(current_xmachine->xmachine_reagency) return (*current_xmachine->xmachine_reagency).id;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_bank_id(int bank_id)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).bank_id = bank_id;
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).bank_id = bank_id;
}

int get_bank_id()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).bank_id;
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).bank_id;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_isconstructor(int isconstructor)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).isconstructor = isconstructor;
}

int get_isconstructor()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).isconstructor;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_day_of_month_to_act(int day_of_month_to_act)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).day_of_month_to_act = day_of_month_to_act;
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).day_of_month_to_act = day_of_month_to_act;
    if(current_xmachine->xmachine_equityfund) (*current_xmachine->xmachine_equityfund).day_of_month_to_act = day_of_month_to_act;
    if(current_xmachine->xmachine_bank) (*current_xmachine->xmachine_bank).day_of_month_to_act = day_of_month_to_act;
    if(current_xmachine->xmachine_government) (*current_xmachine->xmachine_government).day_of_month_to_act = day_of_month_to_act;
    if(current_xmachine->xmachine_centralbank) (*current_xmachine->xmachine_centralbank).day_of_month_to_act = day_of_month_to_act;
    if(current_xmachine->xmachine_jpoffice) (*current_xmachine->xmachine_jpoffice).day_of_month_to_act = day_of_month_to_act;
    if(current_xmachine->xmachine_reagency) (*current_xmachine->xmachine_reagency).day_of_month_to_act = day_of_month_to_act;
}

int get_day_of_month_to_act()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).day_of_month_to_act;
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).day_of_month_to_act;
    if(current_xmachine->xmachine_equityfund) return (*current_xmachine->xmachine_equityfund).day_of_month_to_act;
    if(current_xmachine->xmachine_bank) return (*current_xmachine->xmachine_bank).day_of_month_to_act;
    if(current_xmachine->xmachine_government) return (*current_xmachine->xmachine_government).day_of_month_to_act;
    if(current_xmachine->xmachine_centralbank) return (*current_xmachine->xmachine_centralbank).day_of_month_to_act;
    if(current_xmachine->xmachine_jpoffice) return (*current_xmachine->xmachine_jpoffice).day_of_month_to_act;
    if(current_xmachine->xmachine_reagency) return (*current_xmachine->xmachine_reagency).day_of_month_to_act;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_isinsolvent(int isinsolvent)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).isinsolvent = isinsolvent;
}

int get_isinsolvent()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).isinsolvent;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_it_no(int it_no)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).it_no = it_no;
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).it_no = it_no;
    if(current_xmachine->xmachine_equityfund) (*current_xmachine->xmachine_equityfund).it_no = it_no;
    if(current_xmachine->xmachine_bank) (*current_xmachine->xmachine_bank).it_no = it_no;
    if(current_xmachine->xmachine_government) (*current_xmachine->xmachine_government).it_no = it_no;
    if(current_xmachine->xmachine_centralbank) (*current_xmachine->xmachine_centralbank).it_no = it_no;
    if(current_xmachine->xmachine_jpoffice) (*current_xmachine->xmachine_jpoffice).it_no = it_no;
    if(current_xmachine->xmachine_mall) (*current_xmachine->xmachine_mall).it_no = it_no;
    if(current_xmachine->xmachine_reagency) (*current_xmachine->xmachine_reagency).it_no = it_no;
}

int get_it_no()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).it_no;
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).it_no;
    if(current_xmachine->xmachine_equityfund) return (*current_xmachine->xmachine_equityfund).it_no;
    if(current_xmachine->xmachine_bank) return (*current_xmachine->xmachine_bank).it_no;
    if(current_xmachine->xmachine_government) return (*current_xmachine->xmachine_government).it_no;
    if(current_xmachine->xmachine_centralbank) return (*current_xmachine->xmachine_centralbank).it_no;
    if(current_xmachine->xmachine_jpoffice) return (*current_xmachine->xmachine_jpoffice).it_no;
    if(current_xmachine->xmachine_mall) return (*current_xmachine->xmachine_mall).it_no;
    if(current_xmachine->xmachine_reagency) return (*current_xmachine->xmachine_reagency).it_no;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_day_of_week_to_act(int day_of_week_to_act)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).day_of_week_to_act = day_of_week_to_act;
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).day_of_week_to_act = day_of_week_to_act;
    if(current_xmachine->xmachine_bank) (*current_xmachine->xmachine_bank).day_of_week_to_act = day_of_week_to_act;
    if(current_xmachine->xmachine_centralbank) (*current_xmachine->xmachine_centralbank).day_of_week_to_act = day_of_week_to_act;
    if(current_xmachine->xmachine_mall) (*current_xmachine->xmachine_mall).day_of_week_to_act = day_of_week_to_act;
}

int get_day_of_week_to_act()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).day_of_week_to_act;
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).day_of_week_to_act;
    if(current_xmachine->xmachine_bank) return (*current_xmachine->xmachine_bank).day_of_week_to_act;
    if(current_xmachine->xmachine_centralbank) return (*current_xmachine->xmachine_centralbank).day_of_week_to_act;
    if(current_xmachine->xmachine_mall) return (*current_xmachine->xmachine_mall).day_of_week_to_act;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_average_goods_price(double average_goods_price)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).average_goods_price = average_goods_price;
}

double get_average_goods_price()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).average_goods_price;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

int_array * get_employees()
{
    if(current_xmachine->xmachine_firm) return &(*current_xmachine->xmachine_firm).employees;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return NULL;
}

void set_manager(int manager)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).manager = manager;
}

int get_manager()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).manager;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_wage_offer(double wage_offer)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).wage_offer = wage_offer;
}

double get_wage_offer()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).wage_offer;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_average_wage(double average_wage)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).average_wage = average_wage;
    if(current_xmachine->xmachine_government) (*current_xmachine->xmachine_government).average_wage = average_wage;
}

double get_average_wage()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).average_wage;
    if(current_xmachine->xmachine_government) return (*current_xmachine->xmachine_government).average_wage;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_no_employees(int no_employees)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).no_employees = no_employees;
}

int get_no_employees()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).no_employees;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_vacancies(int vacancies)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).vacancies = vacancies;
}

int get_vacancies()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).vacancies;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_employees_needed(int employees_needed)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).employees_needed = employees_needed;
}

int get_employees_needed()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).employees_needed;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_day_of_month_wages_paid(int day_of_month_wages_paid)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).day_of_month_wages_paid = day_of_month_wages_paid;
    if(current_xmachine->xmachine_equityfund) (*current_xmachine->xmachine_equityfund).day_of_month_wages_paid = day_of_month_wages_paid;
    if(current_xmachine->xmachine_government) (*current_xmachine->xmachine_government).day_of_month_wages_paid = day_of_month_wages_paid;
    if(current_xmachine->xmachine_centralbank) (*current_xmachine->xmachine_centralbank).day_of_month_wages_paid = day_of_month_wages_paid;
}

int get_day_of_month_wages_paid()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).day_of_month_wages_paid;
    if(current_xmachine->xmachine_equityfund) return (*current_xmachine->xmachine_equityfund).day_of_month_wages_paid;
    if(current_xmachine->xmachine_government) return (*current_xmachine->xmachine_government).day_of_month_wages_paid;
    if(current_xmachine->xmachine_centralbank) return (*current_xmachine->xmachine_centralbank).day_of_month_wages_paid;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_labour_productivity(double labour_productivity)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).labour_productivity = labour_productivity;
}

double get_labour_productivity()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).labour_productivity;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_capital_productivity(double capital_productivity)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).capital_productivity = capital_productivity;
}

double get_capital_productivity()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).capital_productivity;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_capital_goods(int capital_goods)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).capital_goods = capital_goods;
}

int get_capital_goods()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).capital_goods;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_capital_goods_price(double capital_goods_price)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).capital_goods_price = capital_goods_price;
}

double get_capital_goods_price()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).capital_goods_price;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_production_current(int production_current)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).production_current = production_current;
}

int get_production_current()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).production_current;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_expected_sales(int expected_sales)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).expected_sales = expected_sales;
}

int get_expected_sales()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).expected_sales;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_production_plan(int production_plan)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).production_plan = production_plan;
}

int get_production_plan()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).production_plan;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_unit_goods_price(double unit_goods_price)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).unit_goods_price = unit_goods_price;
}

double get_unit_goods_price()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).unit_goods_price;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_unit_cost(double unit_cost)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).unit_cost = unit_cost;
}

double get_unit_cost()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).unit_cost;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_day_of_month_production_completed(int day_of_month_production_completed)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).day_of_month_production_completed = day_of_month_production_completed;
}

int get_day_of_month_production_completed()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).day_of_month_production_completed;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_unit_house_price(double unit_house_price)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).unit_house_price = unit_house_price;
}

double get_unit_house_price()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).unit_house_price;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

int * get_projects()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).projects;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return NULL;
}

void set_loans_interest_rate(double loans_interest_rate)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).loans_interest_rate = loans_interest_rate;
}

double get_loans_interest_rate()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).loans_interest_rate;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_debt(double debt)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).debt = debt;
    if(current_xmachine->xmachine_government) (*current_xmachine->xmachine_government).debt = debt;
}

double get_debt()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).debt;
    if(current_xmachine->xmachine_government) return (*current_xmachine->xmachine_government).debt;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_inventory(int inventory)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).inventory = inventory;
}

int get_inventory()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).inventory;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_sales(int sales)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).sales = sales;
}

int get_sales()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).sales;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_revenues(double revenues)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).revenues = revenues;
    if(current_xmachine->xmachine_bank) (*current_xmachine->xmachine_bank).revenues = revenues;
    if(current_xmachine->xmachine_centralbank) (*current_xmachine->xmachine_centralbank).revenues = revenues;
}

double get_revenues()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).revenues;
    if(current_xmachine->xmachine_bank) return (*current_xmachine->xmachine_bank).revenues;
    if(current_xmachine->xmachine_centralbank) return (*current_xmachine->xmachine_centralbank).revenues;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_total_assets(double total_assets)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).total_assets = total_assets;
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).total_assets = total_assets;
    if(current_xmachine->xmachine_bank) (*current_xmachine->xmachine_bank).total_assets = total_assets;
    if(current_xmachine->xmachine_centralbank) (*current_xmachine->xmachine_centralbank).total_assets = total_assets;
}

double get_total_assets()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).total_assets;
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).total_assets;
    if(current_xmachine->xmachine_bank) return (*current_xmachine->xmachine_bank).total_assets;
    if(current_xmachine->xmachine_centralbank) return (*current_xmachine->xmachine_centralbank).total_assets;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_operating_costs(double operating_costs)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).operating_costs = operating_costs;
}

double get_operating_costs()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).operating_costs;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_labour_costs(double labour_costs)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).labour_costs = labour_costs;
}

double get_labour_costs()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).labour_costs;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_total_interest_payments(double total_interest_payments)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).total_interest_payments = total_interest_payments;
}

double get_total_interest_payments()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).total_interest_payments;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_dividends_paid(double dividends_paid)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).dividends_paid = dividends_paid;
    if(current_xmachine->xmachine_equityfund) (*current_xmachine->xmachine_equityfund).dividends_paid = dividends_paid;
    if(current_xmachine->xmachine_bank) (*current_xmachine->xmachine_bank).dividends_paid = dividends_paid;
}

double get_dividends_paid()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).dividends_paid;
    if(current_xmachine->xmachine_equityfund) return (*current_xmachine->xmachine_equityfund).dividends_paid;
    if(current_xmachine->xmachine_bank) return (*current_xmachine->xmachine_bank).dividends_paid;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_dividends_to_be_paid(double dividends_to_be_paid)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).dividends_to_be_paid = dividends_to_be_paid;
}

double get_dividends_to_be_paid()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).dividends_to_be_paid;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_retained_earnings(double retained_earnings)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).retained_earnings = retained_earnings;
    if(current_xmachine->xmachine_bank) (*current_xmachine->xmachine_bank).retained_earnings = retained_earnings;
}

double get_retained_earnings()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).retained_earnings;
    if(current_xmachine->xmachine_bank) return (*current_xmachine->xmachine_bank).retained_earnings;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_net_earnings(double net_earnings)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).net_earnings = net_earnings;
    if(current_xmachine->xmachine_bank) (*current_xmachine->xmachine_bank).net_earnings = net_earnings;
    if(current_xmachine->xmachine_centralbank) (*current_xmachine->xmachine_centralbank).net_earnings = net_earnings;
}

double get_net_earnings()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).net_earnings;
    if(current_xmachine->xmachine_bank) return (*current_xmachine->xmachine_bank).net_earnings;
    if(current_xmachine->xmachine_centralbank) return (*current_xmachine->xmachine_centralbank).net_earnings;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_ebit(double ebit)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).ebit = ebit;
}

double get_ebit()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).ebit;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_equity(double equity)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).equity = equity;
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).equity = equity;
    if(current_xmachine->xmachine_equityfund) (*current_xmachine->xmachine_equityfund).equity = equity;
    if(current_xmachine->xmachine_bank) (*current_xmachine->xmachine_bank).equity = equity;
    if(current_xmachine->xmachine_government) (*current_xmachine->xmachine_government).equity = equity;
    if(current_xmachine->xmachine_centralbank) (*current_xmachine->xmachine_centralbank).equity = equity;
}

double get_equity()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).equity;
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).equity;
    if(current_xmachine->xmachine_equityfund) return (*current_xmachine->xmachine_equityfund).equity;
    if(current_xmachine->xmachine_bank) return (*current_xmachine->xmachine_bank).equity;
    if(current_xmachine->xmachine_government) return (*current_xmachine->xmachine_government).equity;
    if(current_xmachine->xmachine_centralbank) return (*current_xmachine->xmachine_centralbank).equity;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_liquidity(double liquidity)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).liquidity = liquidity;
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).liquidity = liquidity;
    if(current_xmachine->xmachine_equityfund) (*current_xmachine->xmachine_equityfund).liquidity = liquidity;
    if(current_xmachine->xmachine_bank) (*current_xmachine->xmachine_bank).liquidity = liquidity;
    if(current_xmachine->xmachine_government) (*current_xmachine->xmachine_government).liquidity = liquidity;
    if(current_xmachine->xmachine_centralbank) (*current_xmachine->xmachine_centralbank).liquidity = liquidity;
}

double get_liquidity()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).liquidity;
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).liquidity;
    if(current_xmachine->xmachine_equityfund) return (*current_xmachine->xmachine_equityfund).liquidity;
    if(current_xmachine->xmachine_bank) return (*current_xmachine->xmachine_bank).liquidity;
    if(current_xmachine->xmachine_government) return (*current_xmachine->xmachine_government).liquidity;
    if(current_xmachine->xmachine_centralbank) return (*current_xmachine->xmachine_centralbank).liquidity;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_isliquidshort(int isliquidshort)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).isliquidshort = isliquidshort;
}

int get_isliquidshort()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).isliquidshort;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_hasloan(int hasloan)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).hasloan = hasloan;
}

int get_hasloan()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).hasloan;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_hasinvestment(int hasinvestment)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).hasinvestment = hasinvestment;
}

int get_hasinvestment()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).hasinvestment;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_isilliquid(int isilliquid)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).isilliquid = isilliquid;
}

int get_isilliquid()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).isilliquid;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_planned_investment_costs(double planned_investment_costs)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).planned_investment_costs = planned_investment_costs;
}

double get_planned_investment_costs()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).planned_investment_costs;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_liquidity_need(double liquidity_need)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).liquidity_need = liquidity_need;
}

double get_liquidity_need()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).liquidity_need;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

loan * get_loan_list()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).loan_list;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return NULL;
}

void set_labour_tax_rate(double labour_tax_rate)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).labour_tax_rate = labour_tax_rate;
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).labour_tax_rate = labour_tax_rate;
    if(current_xmachine->xmachine_government) (*current_xmachine->xmachine_government).labour_tax_rate = labour_tax_rate;
}

double get_labour_tax_rate()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).labour_tax_rate;
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).labour_tax_rate;
    if(current_xmachine->xmachine_government) return (*current_xmachine->xmachine_government).labour_tax_rate;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_delta_housing_price(double delta_housing_price)
{
    if(current_xmachine->xmachine_firm) (*current_xmachine->xmachine_firm).delta_housing_price = delta_housing_price;
}

double get_delta_housing_price()
{
    if(current_xmachine->xmachine_firm) return (*current_xmachine->xmachine_firm).delta_housing_price;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_weekly_consumption_budget(double weekly_consumption_budget)
{
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).weekly_consumption_budget = weekly_consumption_budget;
}

double get_weekly_consumption_budget()
{
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).weekly_consumption_budget;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_mall_budget(double mall_budget)
{
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).mall_budget = mall_budget;
}

double get_mall_budget()
{
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).mall_budget;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_quarterly_price_change(double quarterly_price_change)
{
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).quarterly_price_change = quarterly_price_change;
}

double get_quarterly_price_change()
{
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).quarterly_price_change;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_my_employer_id(int my_employer_id)
{
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).my_employer_id = my_employer_id;
}

int get_my_employer_id()
{
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).my_employer_id;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_wage(double wage)
{
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).wage = wage;
}

double get_wage()
{
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).wage;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_ismanager(int ismanager)
{
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).ismanager = ismanager;
}

int get_ismanager()
{
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).ismanager;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_government_benefits(double government_benefits)
{
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).government_benefits = government_benefits;
}

double get_government_benefits()
{
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).government_benefits;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_day_of_month_wage_recieved(int day_of_month_wage_recieved)
{
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).day_of_month_wage_recieved = day_of_month_wage_recieved;
}

int get_day_of_month_wage_recieved()
{
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).day_of_month_wage_recieved;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_mortgages_interest_rate(double mortgages_interest_rate)
{
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).mortgages_interest_rate = mortgages_interest_rate;
    if(current_xmachine->xmachine_reagency) (*current_xmachine->xmachine_reagency).mortgages_interest_rate = mortgages_interest_rate;
}

double get_mortgages_interest_rate()
{
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).mortgages_interest_rate;
    if(current_xmachine->xmachine_reagency) return (*current_xmachine->xmachine_reagency).mortgages_interest_rate;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

mortgage_array * get_mortgages_list()
{
    if(current_xmachine->xmachine_household) return &(*current_xmachine->xmachine_household).mortgages_list;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return NULL;
}

void set_mortgages(double mortgages)
{
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).mortgages = mortgages;
    if(current_xmachine->xmachine_bank) (*current_xmachine->xmachine_bank).mortgages = mortgages;
}

double get_mortgages()
{
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).mortgages;
    if(current_xmachine->xmachine_bank) return (*current_xmachine->xmachine_bank).mortgages;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_housing_payment(double housing_payment)
{
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).housing_payment = housing_payment;
}

double get_housing_payment()
{
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).housing_payment;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_housing_price(double housing_price)
{
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).housing_price = housing_price;
}

double get_housing_price()
{
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).housing_price;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_housing_units(int housing_units)
{
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).housing_units = housing_units;
}

int get_housing_units()
{
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).housing_units;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_n_shares(int n_shares)
{
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).n_shares = n_shares;
    if(current_xmachine->xmachine_equityfund) (*current_xmachine->xmachine_equityfund).n_shares = n_shares;
}

int get_n_shares()
{
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).n_shares;
    if(current_xmachine->xmachine_equityfund) return (*current_xmachine->xmachine_equityfund).n_shares;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_capital_income(double capital_income)
{
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).capital_income = capital_income;
}

double get_capital_income()
{
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).capital_income;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

double * get_previous_wages()
{
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).previous_wages;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return NULL;
}

double * get_previous_benefits()
{
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).previous_benefits;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return NULL;
}

void set_labour_income(double labour_income)
{
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).labour_income = labour_income;
}

double get_labour_income()
{
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).labour_income;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_housing_value(double housing_value)
{
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).housing_value = housing_value;
}

double get_housing_value()
{
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).housing_value;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_expected_housing_payment(double expected_housing_payment)
{
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).expected_housing_payment = expected_housing_payment;
}

double get_expected_housing_payment()
{
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).expected_housing_payment;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_hmarket_role(int hmarket_role)
{
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).hmarket_role = hmarket_role;
}

int get_hmarket_role()
{
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).hmarket_role;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_equity_ratio(double equity_ratio)
{
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).equity_ratio = equity_ratio;
}

double get_equity_ratio()
{
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).equity_ratio;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_minimum_equity_ratio(double minimum_equity_ratio)
{
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).minimum_equity_ratio = minimum_equity_ratio;
}

double get_minimum_equity_ratio()
{
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).minimum_equity_ratio;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

double * get_mortgage_costs()
{
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).mortgage_costs;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return NULL;
}

void set_delta_housing_value(double delta_housing_value)
{
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).delta_housing_value = delta_housing_value;
}

double get_delta_housing_value()
{
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).delta_housing_value;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_mortgage_choice(int mortgage_choice)
{
    if(current_xmachine->xmachine_household) (*current_xmachine->xmachine_household).mortgage_choice = mortgage_choice;
}

int get_mortgage_choice()
{
    if(current_xmachine->xmachine_household) return (*current_xmachine->xmachine_household).mortgage_choice;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_share_firms(double share_firms)
{
    if(current_xmachine->xmachine_equityfund) (*current_xmachine->xmachine_equityfund).share_firms = share_firms;
}

double get_share_firms()
{
    if(current_xmachine->xmachine_equityfund) return (*current_xmachine->xmachine_equityfund).share_firms;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_share_construction_firms(double share_construction_firms)
{
    if(current_xmachine->xmachine_equityfund) (*current_xmachine->xmachine_equityfund).share_construction_firms = share_construction_firms;
}

double get_share_construction_firms()
{
    if(current_xmachine->xmachine_equityfund) return (*current_xmachine->xmachine_equityfund).share_construction_firms;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_share_banks(double share_banks)
{
    if(current_xmachine->xmachine_equityfund) (*current_xmachine->xmachine_equityfund).share_banks = share_banks;
}

double get_share_banks()
{
    if(current_xmachine->xmachine_equityfund) return (*current_xmachine->xmachine_equityfund).share_banks;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_dividends_recieved(double dividends_recieved)
{
    if(current_xmachine->xmachine_equityfund) (*current_xmachine->xmachine_equityfund).dividends_recieved = dividends_recieved;
}

double get_dividends_recieved()
{
    if(current_xmachine->xmachine_equityfund) return (*current_xmachine->xmachine_equityfund).dividends_recieved;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_dividends_retained(double dividends_retained)
{
    if(current_xmachine->xmachine_equityfund) (*current_xmachine->xmachine_equityfund).dividends_retained = dividends_retained;
}

double get_dividends_retained()
{
    if(current_xmachine->xmachine_equityfund) return (*current_xmachine->xmachine_equityfund).dividends_retained;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_firm_investment(double firm_investment)
{
    if(current_xmachine->xmachine_equityfund) (*current_xmachine->xmachine_equityfund).firm_investment = firm_investment;
}

double get_firm_investment()
{
    if(current_xmachine->xmachine_equityfund) return (*current_xmachine->xmachine_equityfund).firm_investment;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_capital_tax_rate(double capital_tax_rate)
{
    if(current_xmachine->xmachine_equityfund) (*current_xmachine->xmachine_equityfund).capital_tax_rate = capital_tax_rate;
    if(current_xmachine->xmachine_government) (*current_xmachine->xmachine_government).capital_tax_rate = capital_tax_rate;
}

double get_capital_tax_rate()
{
    if(current_xmachine->xmachine_equityfund) return (*current_xmachine->xmachine_equityfund).capital_tax_rate;
    if(current_xmachine->xmachine_government) return (*current_xmachine->xmachine_government).capital_tax_rate;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_loans(double loans)
{
    if(current_xmachine->xmachine_bank) (*current_xmachine->xmachine_bank).loans = loans;
}

double get_loans()
{
    if(current_xmachine->xmachine_bank) return (*current_xmachine->xmachine_bank).loans;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_loans_start(double loans_start)
{
    if(current_xmachine->xmachine_bank) (*current_xmachine->xmachine_bank).loans_start = loans_start;
}

double get_loans_start()
{
    if(current_xmachine->xmachine_bank) return (*current_xmachine->xmachine_bank).loans_start;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_deposits(double deposits)
{
    if(current_xmachine->xmachine_bank) (*current_xmachine->xmachine_bank).deposits = deposits;
}

double get_deposits()
{
    if(current_xmachine->xmachine_bank) return (*current_xmachine->xmachine_bank).deposits;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_centralbank_debt(double centralbank_debt)
{
    if(current_xmachine->xmachine_bank) (*current_xmachine->xmachine_bank).centralbank_debt = centralbank_debt;
}

double get_centralbank_debt()
{
    if(current_xmachine->xmachine_bank) return (*current_xmachine->xmachine_bank).centralbank_debt;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_total_writeoffs(double total_writeoffs)
{
    if(current_xmachine->xmachine_bank) (*current_xmachine->xmachine_bank).total_writeoffs = total_writeoffs;
    if(current_xmachine->xmachine_centralbank) (*current_xmachine->xmachine_centralbank).total_writeoffs = total_writeoffs;
}

double get_total_writeoffs()
{
    if(current_xmachine->xmachine_bank) return (*current_xmachine->xmachine_bank).total_writeoffs;
    if(current_xmachine->xmachine_centralbank) return (*current_xmachine->xmachine_centralbank).total_writeoffs;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_interest_rate(double interest_rate)
{
    if(current_xmachine->xmachine_bank) (*current_xmachine->xmachine_bank).interest_rate = interest_rate;
    if(current_xmachine->xmachine_centralbank) (*current_xmachine->xmachine_centralbank).interest_rate = interest_rate;
}

double get_interest_rate()
{
    if(current_xmachine->xmachine_bank) return (*current_xmachine->xmachine_bank).interest_rate;
    if(current_xmachine->xmachine_centralbank) return (*current_xmachine->xmachine_centralbank).interest_rate;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_interests_accrued(double interests_accrued)
{
    if(current_xmachine->xmachine_bank) (*current_xmachine->xmachine_bank).interests_accrued = interests_accrued;
    if(current_xmachine->xmachine_centralbank) (*current_xmachine->xmachine_centralbank).interests_accrued = interests_accrued;
}

double get_interests_accrued()
{
    if(current_xmachine->xmachine_bank) return (*current_xmachine->xmachine_bank).interests_accrued;
    if(current_xmachine->xmachine_centralbank) return (*current_xmachine->xmachine_centralbank).interests_accrued;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_interests_paid(double interests_paid)
{
    if(current_xmachine->xmachine_bank) (*current_xmachine->xmachine_bank).interests_paid = interests_paid;
}

double get_interests_paid()
{
    if(current_xmachine->xmachine_bank) return (*current_xmachine->xmachine_bank).interests_paid;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_total_dividends(double total_dividends)
{
    if(current_xmachine->xmachine_bank) (*current_xmachine->xmachine_bank).total_dividends = total_dividends;
}

double get_total_dividends()
{
    if(current_xmachine->xmachine_bank) return (*current_xmachine->xmachine_bank).total_dividends;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_total_costs(double total_costs)
{
    if(current_xmachine->xmachine_bank) (*current_xmachine->xmachine_bank).total_costs = total_costs;
    if(current_xmachine->xmachine_centralbank) (*current_xmachine->xmachine_centralbank).total_costs = total_costs;
}

double get_total_costs()
{
    if(current_xmachine->xmachine_bank) return (*current_xmachine->xmachine_bank).total_costs;
    if(current_xmachine->xmachine_centralbank) return (*current_xmachine->xmachine_centralbank).total_costs;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_unemployment_rate(double unemployment_rate)
{
    if(current_xmachine->xmachine_government) (*current_xmachine->xmachine_government).unemployment_rate = unemployment_rate;
    if(current_xmachine->xmachine_centralbank) (*current_xmachine->xmachine_centralbank).unemployment_rate = unemployment_rate;
}

double get_unemployment_rate()
{
    if(current_xmachine->xmachine_government) return (*current_xmachine->xmachine_government).unemployment_rate;
    if(current_xmachine->xmachine_centralbank) return (*current_xmachine->xmachine_centralbank).unemployment_rate;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_population_size(int population_size)
{
    if(current_xmachine->xmachine_government) (*current_xmachine->xmachine_government).population_size = population_size;
}

int get_population_size()
{
    if(current_xmachine->xmachine_government) return (*current_xmachine->xmachine_government).population_size;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (int)0;
}

void set_labour_tax_income(double labour_tax_income)
{
    if(current_xmachine->xmachine_government) (*current_xmachine->xmachine_government).labour_tax_income = labour_tax_income;
}

double get_labour_tax_income()
{
    if(current_xmachine->xmachine_government) return (*current_xmachine->xmachine_government).labour_tax_income;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_capital_tax_income(double capital_tax_income)
{
    if(current_xmachine->xmachine_government) (*current_xmachine->xmachine_government).capital_tax_income = capital_tax_income;
}

double get_capital_tax_income()
{
    if(current_xmachine->xmachine_government) return (*current_xmachine->xmachine_government).capital_tax_income;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_gov_general_benefit_rate(double gov_general_benefit_rate)
{
    if(current_xmachine->xmachine_government) (*current_xmachine->xmachine_government).gov_general_benefit_rate = gov_general_benefit_rate;
}

double get_gov_general_benefit_rate()
{
    if(current_xmachine->xmachine_government) return (*current_xmachine->xmachine_government).gov_general_benefit_rate;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_gov_unemployment_rate(double gov_unemployment_rate)
{
    if(current_xmachine->xmachine_government) (*current_xmachine->xmachine_government).gov_unemployment_rate = gov_unemployment_rate;
}

double get_gov_unemployment_rate()
{
    if(current_xmachine->xmachine_government) return (*current_xmachine->xmachine_government).gov_unemployment_rate;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_general_benefits(double general_benefits)
{
    if(current_xmachine->xmachine_government) (*current_xmachine->xmachine_government).general_benefits = general_benefits;
}

double get_general_benefits()
{
    if(current_xmachine->xmachine_government) return (*current_xmachine->xmachine_government).general_benefits;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_unemployment_benefits(double unemployment_benefits)
{
    if(current_xmachine->xmachine_government) (*current_xmachine->xmachine_government).unemployment_benefits = unemployment_benefits;
}

double get_unemployment_benefits()
{
    if(current_xmachine->xmachine_government) return (*current_xmachine->xmachine_government).unemployment_benefits;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_earnings(double earnings)
{
    if(current_xmachine->xmachine_government) (*current_xmachine->xmachine_government).earnings = earnings;
}

double get_earnings()
{
    if(current_xmachine->xmachine_government) return (*current_xmachine->xmachine_government).earnings;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_centralbank_income(double centralbank_income)
{
    if(current_xmachine->xmachine_government) (*current_xmachine->xmachine_government).centralbank_income = centralbank_income;
}

double get_centralbank_income()
{
    if(current_xmachine->xmachine_government) return (*current_xmachine->xmachine_government).centralbank_income;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_expenditures(double expenditures)
{
    if(current_xmachine->xmachine_government) (*current_xmachine->xmachine_government).expenditures = expenditures;
}

double get_expenditures()
{
    if(current_xmachine->xmachine_government) return (*current_xmachine->xmachine_government).expenditures;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_inflation_rate(double inflation_rate)
{
    if(current_xmachine->xmachine_centralbank) (*current_xmachine->xmachine_centralbank).inflation_rate = inflation_rate;
}

double get_inflation_rate()
{
    if(current_xmachine->xmachine_centralbank) return (*current_xmachine->xmachine_centralbank).inflation_rate;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

double * get_consumption_goods_prices()
{
    if(current_xmachine->xmachine_centralbank) return (*current_xmachine->xmachine_centralbank).consumption_goods_prices;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return NULL;
}

transaction * get_goods()
{
    if(current_xmachine->xmachine_centralbank) return &(*current_xmachine->xmachine_centralbank).goods;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return NULL;
}

double * get_weekly_price_averages()
{
    if(current_xmachine->xmachine_centralbank) return (*current_xmachine->xmachine_centralbank).weekly_price_averages;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return NULL;
}

void set_loans_banks(double loans_banks)
{
    if(current_xmachine->xmachine_centralbank) (*current_xmachine->xmachine_centralbank).loans_banks = loans_banks;
}

double get_loans_banks()
{
    if(current_xmachine->xmachine_centralbank) return (*current_xmachine->xmachine_centralbank).loans_banks;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_loans_government(double loans_government)
{
    if(current_xmachine->xmachine_centralbank) (*current_xmachine->xmachine_centralbank).loans_government = loans_government;
}

double get_loans_government()
{
    if(current_xmachine->xmachine_centralbank) return (*current_xmachine->xmachine_centralbank).loans_government;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_fiat_money(double fiat_money)
{
    if(current_xmachine->xmachine_centralbank) (*current_xmachine->xmachine_centralbank).fiat_money = fiat_money;
}

double get_fiat_money()
{
    if(current_xmachine->xmachine_centralbank) return (*current_xmachine->xmachine_centralbank).fiat_money;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_liquidity_banks(double liquidity_banks)
{
    if(current_xmachine->xmachine_centralbank) (*current_xmachine->xmachine_centralbank).liquidity_banks = liquidity_banks;
}

double get_liquidity_banks()
{
    if(current_xmachine->xmachine_centralbank) return (*current_xmachine->xmachine_centralbank).liquidity_banks;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_liquidity_government(double liquidity_government)
{
    if(current_xmachine->xmachine_centralbank) (*current_xmachine->xmachine_centralbank).liquidity_government = liquidity_government;
}

double get_liquidity_government()
{
    if(current_xmachine->xmachine_centralbank) return (*current_xmachine->xmachine_centralbank).liquidity_government;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

void set_liquidity_equityfund(double liquidity_equityfund)
{
    if(current_xmachine->xmachine_centralbank) (*current_xmachine->xmachine_centralbank).liquidity_equityfund = liquidity_equityfund;
}

double get_liquidity_equityfund()
{
    if(current_xmachine->xmachine_centralbank) return (*current_xmachine->xmachine_centralbank).liquidity_equityfund;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return (double)0;
}

transaction * get_houses()
{
    if(current_xmachine->xmachine_centralbank) return &(*current_xmachine->xmachine_centralbank).houses;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return NULL;
}

transaction * get_goods_transactions()
{
    if(current_xmachine->xmachine_mall) return &(*current_xmachine->xmachine_mall).goods_transactions;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return NULL;
}

transaction * get_housing_transactions()
{
    if(current_xmachine->xmachine_reagency) return &(*current_xmachine->xmachine_reagency).housing_transactions;

    // suppress compiler warning by returning dummy value /
    // this statement should rightfully NEVER be reached /
    return NULL;
}


double agent_get_range()
{
    double value = 0.0;
    /*if (current_xmachine->xmachine_firm) value = current_xmachine->xmachine_firm->;*/
    /*if (current_xmachine->xmachine_household) value = current_xmachine->xmachine_household->;*/
    /*if (current_xmachine->xmachine_equityfund) value = current_xmachine->xmachine_equityfund->;*/
    /*if (current_xmachine->xmachine_bank) value = current_xmachine->xmachine_bank->;*/
    /*if (current_xmachine->xmachine_government) value = current_xmachine->xmachine_government->;*/
    /*if (current_xmachine->xmachine_centralbank) value = current_xmachine->xmachine_centralbank->;*/
    /*if (current_xmachine->xmachine_jpoffice) value = current_xmachine->xmachine_jpoffice->;*/
    /*if (current_xmachine->xmachine_mall) value = current_xmachine->xmachine_mall->;*/
    /*if (current_xmachine->xmachine_reagency) value = current_xmachine->xmachine_reagency->;*/

    return value;
}

int agent_get_id()
{
    int value = 0;
    /*if (current_xmachine->xmachine_firm) value = current_xmachine->xmachine_firm->id;*/
    /*if (current_xmachine->xmachine_household) value = current_xmachine->xmachine_household->id;*/
    /*if (current_xmachine->xmachine_equityfund) value = current_xmachine->xmachine_equityfund->id;*/
    /*if (current_xmachine->xmachine_bank) value = current_xmachine->xmachine_bank->id;*/
    /*if (current_xmachine->xmachine_government) value = current_xmachine->xmachine_government->id;*/
    /*if (current_xmachine->xmachine_centralbank) value = current_xmachine->xmachine_centralbank->id;*/
    /*if (current_xmachine->xmachine_jpoffice) value = current_xmachine->xmachine_jpoffice->id;*/
    /*if (current_xmachine->xmachine_mall) value = current_xmachine->xmachine_mall->id;*/
    /*if (current_xmachine->xmachine_reagency) value = current_xmachine->xmachine_reagency->id;*/

    return value;
}

double agent_get_x()
{
    double value = 0.0;
    /*if (current_xmachine->xmachine_firm) value = current_xmachine->xmachine_firm->0.0;*/
    /*if (current_xmachine->xmachine_household) value = current_xmachine->xmachine_household->0.0;*/
    /*if (current_xmachine->xmachine_equityfund) value = current_xmachine->xmachine_equityfund->0.0;*/
    /*if (current_xmachine->xmachine_bank) value = current_xmachine->xmachine_bank->0.0;*/
    /*if (current_xmachine->xmachine_government) value = current_xmachine->xmachine_government->0.0;*/
    /*if (current_xmachine->xmachine_centralbank) value = current_xmachine->xmachine_centralbank->0.0;*/
    /*if (current_xmachine->xmachine_jpoffice) value = current_xmachine->xmachine_jpoffice->0.0;*/
    /*if (current_xmachine->xmachine_mall) value = current_xmachine->xmachine_mall->0.0;*/
    /*if (current_xmachine->xmachine_reagency) value = current_xmachine->xmachine_reagency->0.0;*/

    return value;
}
double agent_get_y()
{
    double value = 0.0;
    /*if (current_xmachine->xmachine_firm) value = current_xmachine->xmachine_firm->0.0;*/
    /*if (current_xmachine->xmachine_household) value = current_xmachine->xmachine_household->0.0;*/
    /*if (current_xmachine->xmachine_equityfund) value = current_xmachine->xmachine_equityfund->0.0;*/
    /*if (current_xmachine->xmachine_bank) value = current_xmachine->xmachine_bank->0.0;*/
    /*if (current_xmachine->xmachine_government) value = current_xmachine->xmachine_government->0.0;*/
    /*if (current_xmachine->xmachine_centralbank) value = current_xmachine->xmachine_centralbank->0.0;*/
    /*if (current_xmachine->xmachine_jpoffice) value = current_xmachine->xmachine_jpoffice->0.0;*/
    /*if (current_xmachine->xmachine_mall) value = current_xmachine->xmachine_mall->0.0;*/
    /*if (current_xmachine->xmachine_reagency) value = current_xmachine->xmachine_reagency->0.0;*/

    return value;
}
double agent_get_z()
{
    double value = 0.0;

    return value;
}

void add_node(int node_id, double minx, double maxx, double miny, double maxy, double minz, double maxz)
{
    node_information * current = *p_node_info;
    node_information * tmp = NULL;

    while(current)
    {
        tmp = current;
        current = current->next;
    }

    current = (node_information *)malloc(sizeof(node_information));
        CHECK_POINTER(current);

    if(tmp)
    {
        tmp->next = current;
    }
    else
    {
        *p_node_info = current;
    }

    current->next = NULL;
    current->node_id = node_id;
    current->agents_in_halo = 0;
    current->agent_total = 0;
    current->agents = NULL;
    current->firm_bank_init_loans_messages = NULL;
    current->firm_bank_init_deposit_messages = NULL;
    current->firm_bank_update_deposit_messages = NULL;
    current->household_bank_init_mortgages_messages = NULL;
    current->household_bank_init_deposit_messages = NULL;
    current->household_bank_update_deposit_messages = NULL;
    current->bank_centralbank_init_debt_messages = NULL;
    current->bank_centralbank_init_deposit_messages = NULL;
    current->bank_centralbank_update_deposit_messages = NULL;
    current->fund_centralbank_init_deposit_messages = NULL;
    current->fund_centralbank_update_deposit_messages = NULL;
    current->gov_centralbank_init_deposit_messages = NULL;
    current->gov_centralbank_update_deposit_messages = NULL;
    current->interest_rate_messages = NULL;
    current->capital_tax_rate_messages = NULL;
    current->labour_tax_rate_messages = NULL;
    current->household_jpoffice_id_messages = NULL;
    current->jpoffice_household_employer_messages = NULL;
    current->firm_jpoffice_id_messages = NULL;
    current->jpoffice_firm_employee_messages = NULL;
    current->buy_messages = NULL;
    current->bought_messages = NULL;
    current->sell_messages = NULL;
    current->sold_messages = NULL;
    current->goods_transactions_summary_messages = NULL;
    current->centralbank_households_quarterly_cpi_messages = NULL;
    current->fired_messages = NULL;
    current->vacancy_stage1_messages = NULL;
    current->job_application_stage2_messages = NULL;
    current->job_application_stage1_messages = NULL;
    current->job_match_stage1_messages = NULL;
    current->job_change_messages = NULL;
    current->vacancy_stage2_messages = NULL;
    current->job_match_stage2_messages = NULL;
    current->employment_status_messages = NULL;
    current->firm_household_wage_payment_messages = NULL;
    current->firm_bank_loan_request_1_messages = NULL;
    current->firm_bank_loan_request_2_messages = NULL;
    current->bank_firm_loan_acknowledge_1_messages = NULL;
    current->bank_firm_loan_acknowledge_2_messages = NULL;
    current->bank_centralbank_debt_request_messages = NULL;
    current->household_share_messages = NULL;
    current->capital_tax_messages = NULL;
    current->labour_tax_messages = NULL;
    current->unemployment_benefit_messages = NULL;
    current->general_benefit_messages = NULL;
    current->fund_request_messages = NULL;
    current->fund_request_ack_messages = NULL;
    current->new_entrant_loan_messages = NULL;
    current->firm_bank_interest_on_loan_messages = NULL;
    current->loan_writeoff_messages = NULL;
    current->firm_bank_insolvent_account_messages = NULL;
    current->firm_net_profit_messages = NULL;
    current->bank_net_profit_messages = NULL;
    current->bank_centralbank_interest_payment_messages = NULL;
    current->bank_centralbank_debt_payment_messages = NULL;
    current->gov_centralbank_debt_request_messages = NULL;
    current->gov_centralbank_debt_payment_messages = NULL;
    current->centralbank_government_profit_messages = NULL;
    current->housing_price_messages = NULL;
    current->buy_housing_messages = NULL;
    current->sell_housing_messages = NULL;
    current->bought_housing_messages = NULL;
    current->sold_housing_messages = NULL;
    current->bank_reagency_credibility_messages = NULL;
    current->mortgage_requests_messages = NULL;
    current->mortgage_payment_from_sale_messages = NULL;
    current->mortgage_payment_messages = NULL;
    current->mortgage_writeoff_messages = NULL;
    current->housing_transactions_summary_messages = NULL;


    current->partition_data[0] = minx;
    current->partition_data[1] = maxx;
    current->partition_data[2] = miny;
    current->partition_data[3] = maxy;
    current->partition_data[4] = minz;
    current->partition_data[5] = maxz;
}

void free_node_info()
{
    node_information * tmp, * head;
    head = *p_node_info;

    while(head)
    {
        tmp = head->next;
        free(head);
        head = tmp;
    }

    *p_node_info = NULL;
}

void clean_up(int code)
{
    int rc;
    FILE *file;
    char data[100];

    free(current_xmachine);
    /* Free x-machine memory */
    freexmachines();
    /* Free space partitions linked list */
    free_node_info();
    /* Free output list */
    free_FLAME_outputs(&FLAME_outputs);
    /* Free agent states */
    free_firm_states();
    free_household_states();
    free_equityfund_states();
    free_bank_states();
    free_government_states();
    free_centralbank_states();
    free_jpoffice_states();
    free_mall_states();
    free_reagency_states();


    /* Free index maps */


    /* Free message boards */

    rc = MB_Delete(&b_firm_bank_init_loans);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'firm_bank_init_loans' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'firm_bank_init_loans' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'firm_bank_init_loans' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_firm_bank_init_deposit);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'firm_bank_init_deposit' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'firm_bank_init_deposit' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'firm_bank_init_deposit' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_firm_bank_update_deposit);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'firm_bank_update_deposit' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'firm_bank_update_deposit' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'firm_bank_update_deposit' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_household_bank_init_mortgages);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'household_bank_init_mortgages' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'household_bank_init_mortgages' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'household_bank_init_mortgages' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_household_bank_init_deposit);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'household_bank_init_deposit' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'household_bank_init_deposit' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'household_bank_init_deposit' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_household_bank_update_deposit);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'household_bank_update_deposit' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'household_bank_update_deposit' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'household_bank_update_deposit' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_bank_centralbank_init_debt);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'bank_centralbank_init_debt' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'bank_centralbank_init_debt' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'bank_centralbank_init_debt' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_bank_centralbank_init_deposit);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'bank_centralbank_init_deposit' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'bank_centralbank_init_deposit' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'bank_centralbank_init_deposit' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_bank_centralbank_update_deposit);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'bank_centralbank_update_deposit' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'bank_centralbank_update_deposit' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'bank_centralbank_update_deposit' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_fund_centralbank_init_deposit);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'fund_centralbank_init_deposit' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'fund_centralbank_init_deposit' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'fund_centralbank_init_deposit' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_fund_centralbank_update_deposit);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'fund_centralbank_update_deposit' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'fund_centralbank_update_deposit' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'fund_centralbank_update_deposit' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_gov_centralbank_init_deposit);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'gov_centralbank_init_deposit' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'gov_centralbank_init_deposit' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'gov_centralbank_init_deposit' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_gov_centralbank_update_deposit);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'gov_centralbank_update_deposit' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'gov_centralbank_update_deposit' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'gov_centralbank_update_deposit' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_interest_rate);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'interest_rate' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'interest_rate' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'interest_rate' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_capital_tax_rate);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'capital_tax_rate' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'capital_tax_rate' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'capital_tax_rate' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_labour_tax_rate);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'labour_tax_rate' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'labour_tax_rate' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'labour_tax_rate' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_household_jpoffice_id);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'household_jpoffice_id' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'household_jpoffice_id' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'household_jpoffice_id' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_jpoffice_household_employer);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'jpoffice_household_employer' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'jpoffice_household_employer' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'jpoffice_household_employer' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_firm_jpoffice_id);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'firm_jpoffice_id' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'firm_jpoffice_id' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'firm_jpoffice_id' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_jpoffice_firm_employee);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'jpoffice_firm_employee' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'jpoffice_firm_employee' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'jpoffice_firm_employee' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_buy);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'buy' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'buy' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'buy' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_bought);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'bought' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'bought' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'bought' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_sell);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'sell' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'sell' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'sell' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_sold);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'sold' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'sold' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'sold' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_goods_transactions_summary);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'goods_transactions_summary' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'goods_transactions_summary' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'goods_transactions_summary' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_centralbank_households_quarterly_cpi);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'centralbank_households_quarterly_cpi' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'centralbank_households_quarterly_cpi' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'centralbank_households_quarterly_cpi' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_fired);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'fired' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'fired' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'fired' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_vacancy_stage1);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'vacancy_stage1' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'vacancy_stage1' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'vacancy_stage1' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_job_application_stage2);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'job_application_stage2' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'job_application_stage2' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'job_application_stage2' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_job_application_stage1);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'job_application_stage1' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'job_application_stage1' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'job_application_stage1' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_job_match_stage1);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'job_match_stage1' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'job_match_stage1' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'job_match_stage1' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_job_change);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'job_change' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'job_change' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'job_change' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_vacancy_stage2);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'vacancy_stage2' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'vacancy_stage2' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'vacancy_stage2' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_job_match_stage2);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'job_match_stage2' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'job_match_stage2' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'job_match_stage2' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_employment_status);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'employment_status' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'employment_status' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'employment_status' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_firm_household_wage_payment);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'firm_household_wage_payment' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'firm_household_wage_payment' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'firm_household_wage_payment' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_firm_bank_loan_request_1);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'firm_bank_loan_request_1' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'firm_bank_loan_request_1' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'firm_bank_loan_request_1' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_firm_bank_loan_request_2);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'firm_bank_loan_request_2' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'firm_bank_loan_request_2' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'firm_bank_loan_request_2' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_bank_firm_loan_acknowledge_1);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'bank_firm_loan_acknowledge_1' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'bank_firm_loan_acknowledge_1' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'bank_firm_loan_acknowledge_1' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_bank_firm_loan_acknowledge_2);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'bank_firm_loan_acknowledge_2' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'bank_firm_loan_acknowledge_2' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'bank_firm_loan_acknowledge_2' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_bank_centralbank_debt_request);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'bank_centralbank_debt_request' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'bank_centralbank_debt_request' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'bank_centralbank_debt_request' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_household_share);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'household_share' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'household_share' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'household_share' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_capital_tax);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'capital_tax' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'capital_tax' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'capital_tax' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_labour_tax);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'labour_tax' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'labour_tax' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'labour_tax' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_unemployment_benefit);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'unemployment_benefit' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'unemployment_benefit' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'unemployment_benefit' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_general_benefit);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'general_benefit' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'general_benefit' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'general_benefit' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_fund_request);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'fund_request' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'fund_request' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'fund_request' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_fund_request_ack);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'fund_request_ack' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'fund_request_ack' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'fund_request_ack' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_new_entrant_loan);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'new_entrant_loan' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'new_entrant_loan' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'new_entrant_loan' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_firm_bank_interest_on_loan);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'firm_bank_interest_on_loan' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'firm_bank_interest_on_loan' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'firm_bank_interest_on_loan' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_loan_writeoff);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'loan_writeoff' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'loan_writeoff' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'loan_writeoff' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_firm_bank_insolvent_account);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'firm_bank_insolvent_account' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'firm_bank_insolvent_account' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'firm_bank_insolvent_account' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_firm_net_profit);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'firm_net_profit' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'firm_net_profit' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'firm_net_profit' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_bank_net_profit);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'bank_net_profit' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'bank_net_profit' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'bank_net_profit' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_bank_centralbank_interest_payment);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'bank_centralbank_interest_payment' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'bank_centralbank_interest_payment' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'bank_centralbank_interest_payment' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_bank_centralbank_debt_payment);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'bank_centralbank_debt_payment' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'bank_centralbank_debt_payment' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'bank_centralbank_debt_payment' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_gov_centralbank_debt_request);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'gov_centralbank_debt_request' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'gov_centralbank_debt_request' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'gov_centralbank_debt_request' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_gov_centralbank_debt_payment);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'gov_centralbank_debt_payment' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'gov_centralbank_debt_payment' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'gov_centralbank_debt_payment' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_centralbank_government_profit);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'centralbank_government_profit' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'centralbank_government_profit' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'centralbank_government_profit' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_housing_price);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'housing_price' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'housing_price' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'housing_price' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_buy_housing);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'buy_housing' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'buy_housing' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'buy_housing' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_sell_housing);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'sell_housing' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'sell_housing' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'sell_housing' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_bought_housing);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'bought_housing' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'bought_housing' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'bought_housing' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_sold_housing);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'sold_housing' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'sold_housing' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'sold_housing' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_bank_reagency_credibility);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'bank_reagency_credibility' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'bank_reagency_credibility' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'bank_reagency_credibility' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_mortgage_requests);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'mortgage_requests' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'mortgage_requests' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'mortgage_requests' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_mortgage_payment_from_sale);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'mortgage_payment_from_sale' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'mortgage_payment_from_sale' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'mortgage_payment_from_sale' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_mortgage_payment);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'mortgage_payment' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'mortgage_payment' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'mortgage_payment' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_mortgage_writeoff);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'mortgage_writeoff' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'mortgage_writeoff' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'mortgage_writeoff' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif

    rc = MB_Delete(&b_housing_transactions_summary);
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not delete 'housing_transactions_summary' board\n");
       switch(rc) {
           case MB_ERR_INVALID:
               fprintf(stderr, "\t reason: 'housing_transactions_summary' board has not been created?\n");
               break;
           case MB_ERR_LOCKED:
               fprintf(stderr, "\t reason: 'housing_transactions_summary' board is locked\n");
               break;
           case MB_ERR_INTERNAL:
               fprintf(stderr, "\t reason: internal error. Recompile libmoard in debug mode for more info \n");
               break;
           default:
               fprintf(stderr, "\t MB_Delete returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif


    rc = MB_Env_Finalise();
    #ifdef ERRCHECK
    if (rc != MB_SUCCESS)
    {
       fprintf(stderr, "ERROR: Could not finalise MB environment\n");
       switch(rc) {
           case MB_ERR_ENV:
               fprintf(stderr, "\t reason: MB environment not yet started?\n");
               break;
           default:
               fprintf(stderr, "\t MB_Env_Finalise returned error code: %d (see libmboard docs for details)\n", rc);
               break;
           }

           
           exit(rc);
    }
    #endif



    /* Write log file */
    sprintf(data, "%slog.xml", outputpath);
    file = fopen(data, "a");
    fputs("<!-- <totaltime> unit: seconds -->\n", file);
    fputs("<totaltime>", file);
    sprintf(data, "%.3f", total_time);
    fputs(data, file);
    fputs("</totaltime>\n", file);
    /*fputs("<totalmessages>", file);
    sprintf(data, "%i", total_messages);
    fputs(data, file);
    fputs("</totalmessages>", file);*/
    fputs("</model_run>", file);
    fclose(file);


    if(code != 0)
    {
        printf("*** Error: ");
        if(code == 100) printf("cannot handle specified number of space partitions");
        if(code == 101) printf("could not find number of space partitions config in file");

        printf(" ***");
        exit(0);
    }
}


void propagate_agents()
{
/*  node_information * node_info;
    xmachine * before_xmachine, * temp_xmachine;
    xmachine ** p_temp_xmachine;
    double x_xmachine, y_xmachine, z_xmachine;
    current_xmachine = *p_xmachine;
    before_xmachine = NULL;
    while(current_xmachine)
    {
        if(current_xmachine->xmachine_firm != NULL)
        {
            x_xmachine = current_xmachine->xmachine_firm->0.0;
            y_xmachine = current_xmachine->xmachine_firm->0.0;
            z_xmachine = 0.0;
        }
        else if(current_xmachine->xmachine_household != NULL)
        {
            x_xmachine = current_xmachine->xmachine_household->0.0;
            y_xmachine = current_xmachine->xmachine_household->0.0;
            z_xmachine = 0.0;
        }
        else if(current_xmachine->xmachine_equityfund != NULL)
        {
            x_xmachine = current_xmachine->xmachine_equityfund->0.0;
            y_xmachine = current_xmachine->xmachine_equityfund->0.0;
            z_xmachine = 0.0;
        }
        else if(current_xmachine->xmachine_bank != NULL)
        {
            x_xmachine = current_xmachine->xmachine_bank->0.0;
            y_xmachine = current_xmachine->xmachine_bank->0.0;
            z_xmachine = 0.0;
        }
        else if(current_xmachine->xmachine_government != NULL)
        {
            x_xmachine = current_xmachine->xmachine_government->0.0;
            y_xmachine = current_xmachine->xmachine_government->0.0;
            z_xmachine = 0.0;
        }
        else if(current_xmachine->xmachine_centralbank != NULL)
        {
            x_xmachine = current_xmachine->xmachine_centralbank->0.0;
            y_xmachine = current_xmachine->xmachine_centralbank->0.0;
            z_xmachine = 0.0;
        }
        else if(current_xmachine->xmachine_jpoffice != NULL)
        {
            x_xmachine = current_xmachine->xmachine_jpoffice->0.0;
            y_xmachine = current_xmachine->xmachine_jpoffice->0.0;
            z_xmachine = 0.0;
        }
        else if(current_xmachine->xmachine_mall != NULL)
        {
            x_xmachine = current_xmachine->xmachine_mall->0.0;
            y_xmachine = current_xmachine->xmachine_mall->0.0;
            z_xmachine = 0.0;
        }
        else if(current_xmachine->xmachine_reagency != NULL)
        {
            x_xmachine = current_xmachine->xmachine_reagency->0.0;
            y_xmachine = current_xmachine->xmachine_reagency->0.0;
            z_xmachine = 0.0;
        }

        if(x_xmachine < current_node->partition_data[0] ||
           x_xmachine > current_node->partition_data[1] ||
           y_xmachine < current_node->partition_data[2] ||
           y_xmachine > current_node->partition_data[3] ||
           z_xmachine < current_node->partition_data[4] ||
           z_xmachine > current_node->partition_data[5])
        {
            node_info = *p_node_info;
            while(node_info)
            {
                if(node_info->node_id != current_node->node_id &&
                node_info->partition_data[0] < x_xmachine && node_info->partition_data[1] > x_xmachine &&
                node_info->partition_data[2] < y_xmachine && node_info->partition_data[3] > y_xmachine &&
                node_info->partition_data[4] < z_xmachine && node_info->partition_data[5] > z_xmachine)
                {
                    // Remove agent
                    if(before_xmachine) before_xmachine->next = current_xmachine->next;
                    else *p_xmachine = current_xmachine->next;
                    current_node->agent_total--;
                    // Add agent
                    p_temp_xmachine = &node_info->agents;
                    temp_xmachine = *p_temp_xmachine;
                    current_xmachine->next = temp_xmachine;
                    *p_temp_xmachine = current_xmachine;
                    node_info->agent_total++;
                    node_info = NULL;
                }
                else node_info = node_info->next;
                }
            }
            else before_xmachine = current_xmachine;

            if(before_xmachine) current_xmachine = before_xmachine->next;
            else current_xmachine = NULL;
        }*/
}


void init_int_array(int_array * array)
{
    (*array).size = 0;
    (*array).total_size = ARRAY_BLOCK_SIZE;
    (*array).array = (int *)malloc(ARRAY_BLOCK_SIZE * sizeof(int));
    CHECK_POINTER((*array).array);
}

void reset_int_array(int_array * array)
{
    (*array).size = 0;
}

void free_int_array(int_array * array)
{
    free((*array).array);
}

void copy_int_array(int_array * from, int_array * to)
{
    int i;
    //to = init_int_array();

    for (i = 0; i < (*from).size; i++)
    {
        add_int(to, (*from).array[i]);
    }
}

/*void sort_int_array(int_array * array)
{
    int i, j, temp;

    for(i=0; i<((*array).size-1); i++)
    {
        for(j=0; j<((*array).size-1)-i; j++)
        {
            if(*((*array).array+j+1) < *((*array).array+j))
            {
                temp = *((*array).(*array)+j);
                *((*array).array+j) = *((*array).array+j+1);
                *((*array).array+j+1) = temp;
            }
        }
    }
}*/

/*int quicksort_int(int array, int elements)
{
    #define  LEVEL  1000
    int  pivot, begin[LEVEL], end[LEVEL], i=0, left, right ;
    begin[0]=0; end[0]=elements;
    while (i>=0)
    {
        left=begin[i]; right=end[i]-1;
        if (left<right)
        {
            pivot=array[left]; if (i==LEVEL-1) return 1;
            while (left<right)
            {
                while (array[right]>=pivot && left<right) right--;
                if (left<right) array[left++]=array[right];
                while (array[left]<=pivot && left<right) left++;
                if (left<right) array[right--]=array[left];
            }
            array[left]=pivot;
            begin[i+1]=left+1;
            end[i+1]=end[i];
            end[i++]=left;
        }
        else
        {
          i--;
        }
    }
    return 0;
}*/

void add_int(int_array * array, int new_int)
{
    if((*array).size == (*array).total_size)
    {
        (*array).total_size = (int)((*array).total_size * ARRAY_GROWTH_RATE);
        (*array).array = (int *)realloc((*array).array, ((*array).total_size * sizeof(int)));
    }
    (*array).array[(*array).size] = new_int;
    (*array).size++;
}

void remove_int(int_array * array, int index)
{
    int i;

    if(index < (*array).size)
    {
        /* memcopy?? */
        for(i = index; i < (*array).size - 1; i++)
        {
            (*array).array[i] = (*array).array[i+1];
        }
        (*array).size--;
    }
}

void print_int_array(int_array * array)
{
    int i;

    for(i=0; i<(*array).size; i++)
    {
        printf("%d> %d", i, (*array).array[i]);
    }
}

void init_float_array(float_array * array)
{
    (*array).size = 0;
    (*array).total_size = ARRAY_BLOCK_SIZE;
    (*array).array = (float *)malloc(ARRAY_BLOCK_SIZE * sizeof(float));
    CHECK_POINTER((*array).array);
}

void reset_float_array(float_array * array)
{
    (*array).size = 0;
}

void free_float_array(float_array * array)
{
    free((*array).array);
}

void copy_float_array(float_array * from, float_array * to)
{
    int i;
    //to = init_float_array();

    for (i = 0; i < (*from).size; i++)
    {
        add_float(to, (*from).array[i]);
    }
}

/*void sort_float_array(float_array array)
{
    int i, j;
    float temp;
    // Using bubble sorts nested loops //
    for(i=0; i<(array.size-1); i++)
    {
        for(j=0; j<(array.size-1)-i; j++)
        {
            // Comparing the values between neighbours //
            if(*(array.array+j+1) < *(array.array+j))
            {
                // Swap neighbours //
                temp = *(array.array+j);
                *(array.array+j) = *(array.array+j+1);
                *(array.array+j+1) = temp;
            }
        }
    }
}*/

/*int quicksort_float(float array, int elements)
{
    #define  LEVEL  1000
    int i=0, left, right ;
    float pivot, begin[LEVEL], end[LEVEL];
    begin[0]=0; end[0]=elements;
    while (i>=0)
    {
        left=begin[i]; right=end[i]-1;
        if (left<right)
        {
            pivot=array[left]; if (i==LEVEL-1) return 1;
            while (left<right)
            {
                while (array[right]>=pivot && left<right) right--;
                if (left<right) array[left++]=array[right];
                while (array[left]<=pivot && left<right) left++;
                if (left<right) array[right--]=array[left];
            }
            array[left]=pivot;
            begin[i+1]=left+1;
            end[i+1]=end[i];
            end[i++]=left;
        }
        else
        {
          i--;
        }
    }
    return 0;
}*/

void add_float(float_array * array, float new_float)
{
    if((*array).size == (*array).total_size)
    {
        (*array).total_size = (int)((*array).total_size * ARRAY_GROWTH_RATE);
        (*array).array = (float *)realloc((*array).array, ((*array).total_size * sizeof(float)));
    }
    (*array).array[(*array).size] = new_float;
    (*array).size++;
}

void remove_float(float_array * array, int index)
{
    int i;

    if(index < (*array).size)
    {
        /* memcopy?? */
        for(i = index; i < (*array).size - 1; i++)
        {
            (*array).array[i] = (*array).array[i+1];
        }
        (*array).size--;
    }
}

void print_float_array(float_array * array)
{
    int i;
    /* printf(""); // compiler does not like empty prfloats */
    for(i=0; i<(*array).size; i++)
    {
        printf("%d> %f", i, (*array).array[i]);
    }
}

void init_double_array(double_array * array)
{
    (*array).size = 0;
    (*array).total_size = ARRAY_BLOCK_SIZE;
    (*array).array = (double *)malloc(ARRAY_BLOCK_SIZE * sizeof(double));
    CHECK_POINTER((*array).array);
}

void reset_double_array(double_array * array)
{
    (*array).size = 0;
}

void free_double_array(double_array * array)
{
    free((*array).array);
}

void copy_double_array(double_array * from, double_array * to)
{
    int i;
    //to = init_double_array();

    for (i = 0; i < (*from).size; i++)
    {
        add_double(to, (*from).array[i]);
    }
}

/*void sort_double_array(double_array array)
{
    int i, j;
    double temp;

    // Using bubble sorts nested loops //
    for(i=0; i<(array.size-1); i++)
    {
        for(j=0; j<(array.size-1)-i; j++)
        {
            // Comparing the values between neighbours //
            if(*(array.array+j+1) < *(array.array+j))
            {
                // Swap neighbours //
                temp = *(array.array+j);
                *(array.array+j) = *(array.array+j+1);
                *(array.array+j+1) = temp;
            }
        }
    }
}*/

/*int quicksort_double(double array, int elements)
{
    #define  LEVEL  1000
    double pivot, begin[LEVEL], end[LEVEL];
    int  i=0, left, right ;
    begin[0]=0; end[0]=elements;
    while (i>=0)
    {
        left=begin[i]; right=end[i]-1;
        if (left<right)
        {
            pivot=array[left]; if (i==LEVEL-1) return 1;
            while (left<right)
            {
                while (array[right]>=pivot && left<right) right--;
                if (left<right) array[left++]=array[right];
                while (array[left]<=pivot && left<right) left++;
                if (left<right) array[right--]=array[left];
            }
            array[left]=pivot;
            begin[i+1]=left+1;
            end[i+1]=end[i];
            end[i++]=left;
        }
        else
        {
          i--;
        }
    }
    return 0;
}*/

void add_double(double_array * array, double new_double)
{
    if((*array).size == (*array).total_size)
    {
        (*array).total_size = (int)((*array).total_size * ARRAY_GROWTH_RATE);
        (*array).array = (double *)realloc((*array).array, ((*array).total_size * sizeof(double)));
    }
    (*array).array[(*array).size] = new_double;
    (*array).size++;
}

void remove_double(double_array * array, int index)
{
    int i;
    if(index < (*array).size)
    {
        /* memcopy?? */
        for(i = index; i < (*array).size - 1; i++)
        {
            (*array).array[i] = (*array).array[i+1];
        }
        (*array).size--;
    }
}

void print_double_array(double_array * array)
{
    int i;

    for(i=0; i<(*array).size; i++)
    {
        printf("%d> %f", i, (*array).array[i]);
    }
}

void init_char_array(char_array * array)
{
    (*array).size = 0;
    (*array).total_size = ARRAY_BLOCK_SIZE;
    (*array).array = (char *)malloc(ARRAY_BLOCK_SIZE * sizeof(char));
    CHECK_POINTER((*array).array);
    (*array).array[0] = '\0';
}

void reset_char_array(char_array * array)
{
    (*array).size = 0;
}

void free_char_array(char_array * array)
{
    free((*array).array);
}

void copy_char_array(char_array * from, char_array * to)
{
    int i;

    for (i = 0; i < (*from).size; i++)
    {
        add_char(to, (*from).array[i]);
    }
}

void add_char(char_array * array, char new_char)
{
    if((*array).size + 1 == (*array).total_size)
    {
        (*array).total_size = (int)((*array).total_size * ARRAY_GROWTH_RATE);
        (*array).array = (char *)realloc((*array).array, ((*array).total_size * sizeof(char)));
    }
    (*array).array[(*array).size] = new_char;
    (*array).array[(*array).size + 1] = '\0';
    (*array).size++;
}

void remove_char(char_array * array, int index)
{
    int i;
    if(index < (*array).size)
    {
        /* memcopy?? */
        for(i = index; i < (*array).size - 1; i++)
        {
            (*array).array[i] = (*array).array[i+1];
        }
        (*array).size--;
    }
}

char * copy_array_to_str(char_array * array)
{
    char * new_string = (char *)malloc( ((*array).size + 1) * sizeof(char));
    CHECK_POINTER(new_string);
    return strcpy(new_string, (*array).array);
}

void print_char_array(char_array * array)
{
    printf("%s", (*array).array);
}

/* Functions for the transaction datatype */
void init_transaction_array(transaction_array * array)
{
    (*array).size = 0;
    (*array).total_size = ARRAY_BLOCK_SIZE;
    (*array).array = (transaction *)malloc(ARRAY_BLOCK_SIZE * sizeof(transaction));
    CHECK_POINTER((*array).array);
}

void reset_transaction_array(transaction_array * array)
{
    (*array).size = 0;
}

void free_transaction_array(transaction_array * array)
{
    int i;
    
    for(i = 0; i < array->size; i++)
    {
        free_transaction(&(*array).array[i]);
    }
    
    free((*array).array);
}

void copy_transaction_array(transaction_array * from, transaction_array * to)
{
    int i;

    //to = init_transaction_array();

    for(i = 0; i < (*from).size; i++)
    {
        add_transaction(to, (*from).array[i].quantity, (*from).array[i].avg_price);
    }
}

void add_transaction(transaction_array * array,  int quantity,  double avg_price)
{
    if((*array).size == (*array).total_size)
    {
        (*array).total_size = (int)((*array).total_size * ARRAY_GROWTH_RATE);
        (*array).array = (transaction *)realloc((*array).array, ((*array).total_size * sizeof(transaction)));
    }
    init_transaction(&(*array).array[(*array).size]);
    (*array).array[(*array).size].quantity = quantity;
    (*array).array[(*array).size].avg_price = avg_price;

    (*array).size++;
}

void remove_transaction(transaction_array * array, int index)
{
    int i;

    /* Free element at index index */
    free_transaction(&(*array).array[index]);

    /* Copy all elements up by one */
    if(index < (*array).size)
    {
        for(i = index; i < (*array).size - 1; i++)
        {
            copy_transaction(&(*array).array[i+1], &(*array).array[i]);
        }
        (*array).size--;
    }
}
/* Functions for the buyer datatype */
void init_buyer_array(buyer_array * array)
{
    (*array).size = 0;
    (*array).total_size = ARRAY_BLOCK_SIZE;
    (*array).array = (buyer *)malloc(ARRAY_BLOCK_SIZE * sizeof(buyer));
    CHECK_POINTER((*array).array);
}

void reset_buyer_array(buyer_array * array)
{
    (*array).size = 0;
}

void free_buyer_array(buyer_array * array)
{
    int i;
    
    for(i = 0; i < array->size; i++)
    {
        free_buyer(&(*array).array[i]);
    }
    
    free((*array).array);
}

void copy_buyer_array(buyer_array * from, buyer_array * to)
{
    int i;

    //to = init_buyer_array();

    for(i = 0; i < (*from).size; i++)
    {
        add_buyer(to, (*from).array[i].id, (*from).array[i].budget);
    }
}

void add_buyer(buyer_array * array,  int id,  double budget)
{
    if((*array).size == (*array).total_size)
    {
        (*array).total_size = (int)((*array).total_size * ARRAY_GROWTH_RATE);
        (*array).array = (buyer *)realloc((*array).array, ((*array).total_size * sizeof(buyer)));
    }
    init_buyer(&(*array).array[(*array).size]);
    (*array).array[(*array).size].id = id;
    (*array).array[(*array).size].budget = budget;

    (*array).size++;
}

void remove_buyer(buyer_array * array, int index)
{
    int i;

    /* Free element at index index */
    free_buyer(&(*array).array[index]);

    /* Copy all elements up by one */
    if(index < (*array).size)
    {
        for(i = index; i < (*array).size - 1; i++)
        {
            copy_buyer(&(*array).array[i+1], &(*array).array[i]);
        }
        (*array).size--;
    }
}
/* Functions for the seller datatype */
void init_seller_array(seller_array * array)
{
    (*array).size = 0;
    (*array).total_size = ARRAY_BLOCK_SIZE;
    (*array).array = (seller *)malloc(ARRAY_BLOCK_SIZE * sizeof(seller));
    CHECK_POINTER((*array).array);
}

void reset_seller_array(seller_array * array)
{
    (*array).size = 0;
}

void free_seller_array(seller_array * array)
{
    int i;
    
    for(i = 0; i < array->size; i++)
    {
        free_seller(&(*array).array[i]);
    }
    
    free((*array).array);
}

void copy_seller_array(seller_array * from, seller_array * to)
{
    int i;

    //to = init_seller_array();

    for(i = 0; i < (*from).size; i++)
    {
        add_seller(to, (*from).array[i].id, (*from).array[i].price, (*from).array[i].inventory, (*from).array[i].inv_price);
    }
}

void add_seller(seller_array * array,  int id,  double price,  int inventory,  double inv_price)
{
    if((*array).size == (*array).total_size)
    {
        (*array).total_size = (int)((*array).total_size * ARRAY_GROWTH_RATE);
        (*array).array = (seller *)realloc((*array).array, ((*array).total_size * sizeof(seller)));
    }
    init_seller(&(*array).array[(*array).size]);
    (*array).array[(*array).size].id = id;
    (*array).array[(*array).size].price = price;
    (*array).array[(*array).size].inventory = inventory;
    (*array).array[(*array).size].inv_price = inv_price;

    (*array).size++;
}

void remove_seller(seller_array * array, int index)
{
    int i;

    /* Free element at index index */
    free_seller(&(*array).array[index]);

    /* Copy all elements up by one */
    if(index < (*array).size)
    {
        for(i = index; i < (*array).size - 1; i++)
        {
            copy_seller(&(*array).array[i+1], &(*array).array[i]);
        }
        (*array).size--;
    }
}
/* Functions for the vacancy datatype */
void init_vacancy_array(vacancy_array * array)
{
    (*array).size = 0;
    (*array).total_size = ARRAY_BLOCK_SIZE;
    (*array).array = (vacancy *)malloc(ARRAY_BLOCK_SIZE * sizeof(vacancy));
    CHECK_POINTER((*array).array);
}

void reset_vacancy_array(vacancy_array * array)
{
    (*array).size = 0;
}

void free_vacancy_array(vacancy_array * array)
{
    int i;
    
    for(i = 0; i < array->size; i++)
    {
        free_vacancy(&(*array).array[i]);
    }
    
    free((*array).array);
}

void copy_vacancy_array(vacancy_array * from, vacancy_array * to)
{
    int i;

    //to = init_vacancy_array();

    for(i = 0; i < (*from).size; i++)
    {
        add_vacancy(to, (*from).array[i].id, (*from).array[i].wage);
    }
}

void add_vacancy(vacancy_array * array,  int id,  double wage)
{
    if((*array).size == (*array).total_size)
    {
        (*array).total_size = (int)((*array).total_size * ARRAY_GROWTH_RATE);
        (*array).array = (vacancy *)realloc((*array).array, ((*array).total_size * sizeof(vacancy)));
    }
    init_vacancy(&(*array).array[(*array).size]);
    (*array).array[(*array).size].id = id;
    (*array).array[(*array).size].wage = wage;

    (*array).size++;
}

void remove_vacancy(vacancy_array * array, int index)
{
    int i;

    /* Free element at index index */
    free_vacancy(&(*array).array[index]);

    /* Copy all elements up by one */
    if(index < (*array).size)
    {
        for(i = index; i < (*array).size - 1; i++)
        {
            copy_vacancy(&(*array).array[i+1], &(*array).array[i]);
        }
        (*array).size--;
    }
}
/* Functions for the employee datatype */
void init_employee_array(employee_array * array)
{
    (*array).size = 0;
    (*array).total_size = ARRAY_BLOCK_SIZE;
    (*array).array = (employee *)malloc(ARRAY_BLOCK_SIZE * sizeof(employee));
    CHECK_POINTER((*array).array);
}

void reset_employee_array(employee_array * array)
{
    (*array).size = 0;
}

void free_employee_array(employee_array * array)
{
    int i;
    
    for(i = 0; i < array->size; i++)
    {
        free_employee(&(*array).array[i]);
    }
    
    free((*array).array);
}

void copy_employee_array(employee_array * from, employee_array * to)
{
    int i;

    //to = init_employee_array();

    for(i = 0; i < (*from).size; i++)
    {
        add_employee(to, (*from).array[i].id, (*from).array[i].wage);
    }
}

void add_employee(employee_array * array,  int id,  double wage)
{
    if((*array).size == (*array).total_size)
    {
        (*array).total_size = (int)((*array).total_size * ARRAY_GROWTH_RATE);
        (*array).array = (employee *)realloc((*array).array, ((*array).total_size * sizeof(employee)));
    }
    init_employee(&(*array).array[(*array).size]);
    (*array).array[(*array).size].id = id;
    (*array).array[(*array).size].wage = wage;

    (*array).size++;
}

void remove_employee(employee_array * array, int index)
{
    int i;

    /* Free element at index index */
    free_employee(&(*array).array[index]);

    /* Copy all elements up by one */
    if(index < (*array).size)
    {
        for(i = index; i < (*array).size - 1; i++)
        {
            copy_employee(&(*array).array[i+1], &(*array).array[i]);
        }
        (*array).size--;
    }
}
/* Functions for the mortgage datatype */
void init_mortgage_array(mortgage_array * array)
{
    (*array).size = 0;
    (*array).total_size = ARRAY_BLOCK_SIZE;
    (*array).array = (mortgage *)malloc(ARRAY_BLOCK_SIZE * sizeof(mortgage));
    CHECK_POINTER((*array).array);
}

void reset_mortgage_array(mortgage_array * array)
{
    (*array).size = 0;
}

void free_mortgage_array(mortgage_array * array)
{
    int i;
    
    for(i = 0; i < array->size; i++)
    {
        free_mortgage(&(*array).array[i]);
    }
    
    free((*array).array);
}

void copy_mortgage_array(mortgage_array * from, mortgage_array * to)
{
    int i;

    //to = init_mortgage_array();

    for(i = 0; i < (*from).size; i++)
    {
        add_mortgage(to, (*from).array[i].bank_id, (*from).array[i].principal, (*from).array[i].quarters_left, (*from).array[i].quarterly_interest, (*from).array[i].quarterly_principal, (*from).array[i].interestrate, (*from).array[i].mtype);
    }
}

void add_mortgage(mortgage_array * array,  int bank_id,  double principal,  int quarters_left,  double quarterly_interest,  double quarterly_principal,  double interestrate,  int mtype)
{
    if((*array).size == (*array).total_size)
    {
        (*array).total_size = (int)((*array).total_size * ARRAY_GROWTH_RATE);
        (*array).array = (mortgage *)realloc((*array).array, ((*array).total_size * sizeof(mortgage)));
    }
    init_mortgage(&(*array).array[(*array).size]);
    (*array).array[(*array).size].bank_id = bank_id;
    (*array).array[(*array).size].principal = principal;
    (*array).array[(*array).size].quarters_left = quarters_left;
    (*array).array[(*array).size].quarterly_interest = quarterly_interest;
    (*array).array[(*array).size].quarterly_principal = quarterly_principal;
    (*array).array[(*array).size].interestrate = interestrate;
    (*array).array[(*array).size].mtype = mtype;

    (*array).size++;
}

void remove_mortgage(mortgage_array * array, int index)
{
    int i;

    /* Free element at index index */
    free_mortgage(&(*array).array[index]);

    /* Copy all elements up by one */
    if(index < (*array).size)
    {
        for(i = index; i < (*array).size - 1; i++)
        {
            copy_mortgage(&(*array).array[i+1], &(*array).array[i]);
        }
        (*array).size--;
    }
}
/* Functions for the loan datatype */
void init_loan_array(loan_array * array)
{
    (*array).size = 0;
    (*array).total_size = ARRAY_BLOCK_SIZE;
    (*array).array = (loan *)malloc(ARRAY_BLOCK_SIZE * sizeof(loan));
    CHECK_POINTER((*array).array);
}

void reset_loan_array(loan_array * array)
{
    (*array).size = 0;
}

void free_loan_array(loan_array * array)
{
    int i;
    
    for(i = 0; i < array->size; i++)
    {
        free_loan(&(*array).array[i]);
    }
    
    free((*array).array);
}

void copy_loan_array(loan_array * from, loan_array * to)
{
    int i;

    //to = init_loan_array();

    for(i = 0; i < (*from).size; i++)
    {
        add_loan(to, (*from).array[i].bank_id, (*from).array[i].amount, (*from).array[i].to_be_paid);
    }
}

void add_loan(loan_array * array,  int bank_id,  double amount,  double to_be_paid)
{
    if((*array).size == (*array).total_size)
    {
        (*array).total_size = (int)((*array).total_size * ARRAY_GROWTH_RATE);
        (*array).array = (loan *)realloc((*array).array, ((*array).total_size * sizeof(loan)));
    }
    init_loan(&(*array).array[(*array).size]);
    (*array).array[(*array).size].bank_id = bank_id;
    (*array).array[(*array).size].amount = amount;
    (*array).array[(*array).size].to_be_paid = to_be_paid;

    (*array).size++;
}

void remove_loan(loan_array * array, int index)
{
    int i;

    /* Free element at index index */
    free_loan(&(*array).array[index]);

    /* Copy all elements up by one */
    if(index < (*array).size)
    {
        for(i = index; i < (*array).size - 1; i++)
        {
            copy_loan(&(*array).array[i+1], &(*array).array[i]);
        }
        (*array).size--;
    }
}
/* Functions for the hbuyer datatype */
void init_hbuyer_array(hbuyer_array * array)
{
    (*array).size = 0;
    (*array).total_size = ARRAY_BLOCK_SIZE;
    (*array).array = (hbuyer *)malloc(ARRAY_BLOCK_SIZE * sizeof(hbuyer));
    CHECK_POINTER((*array).array);
}

void reset_hbuyer_array(hbuyer_array * array)
{
    (*array).size = 0;
}

void free_hbuyer_array(hbuyer_array * array)
{
    int i;
    
    for(i = 0; i < array->size; i++)
    {
        free_hbuyer(&(*array).array[i]);
    }
    
    free((*array).array);
}

void copy_hbuyer_array(hbuyer_array * from, hbuyer_array * to)
{
    int i;

    //to = init_hbuyer_array();

    for(i = 0; i < (*from).size; i++)
    {
        add_hbuyer(to, (*from).array[i].buyer_id, (*from).array[i].bank_id, (*from).array[i].liquidity, (*from).array[i].quarterly_income, (*from).array[i].quarterly_mortgage_paid, (*from).array[i].choice);
    }
}

void add_hbuyer(hbuyer_array * array,  int buyer_id,  int bank_id,  double liquidity,  double quarterly_income,  double quarterly_mortgage_paid,  int choice)
{
    if((*array).size == (*array).total_size)
    {
        (*array).total_size = (int)((*array).total_size * ARRAY_GROWTH_RATE);
        (*array).array = (hbuyer *)realloc((*array).array, ((*array).total_size * sizeof(hbuyer)));
    }
    init_hbuyer(&(*array).array[(*array).size]);
    (*array).array[(*array).size].buyer_id = buyer_id;
    (*array).array[(*array).size].bank_id = bank_id;
    (*array).array[(*array).size].liquidity = liquidity;
    (*array).array[(*array).size].quarterly_income = quarterly_income;
    (*array).array[(*array).size].quarterly_mortgage_paid = quarterly_mortgage_paid;
    (*array).array[(*array).size].choice = choice;

    (*array).size++;
}

void remove_hbuyer(hbuyer_array * array, int index)
{
    int i;

    /* Free element at index index */
    free_hbuyer(&(*array).array[index]);

    /* Copy all elements up by one */
    if(index < (*array).size)
    {
        for(i = index; i < (*array).size - 1; i++)
        {
            copy_hbuyer(&(*array).array[i+1], &(*array).array[i]);
        }
        (*array).size--;
    }
}
/* Functions for the hseller datatype */
void init_hseller_array(hseller_array * array)
{
    (*array).size = 0;
    (*array).total_size = ARRAY_BLOCK_SIZE;
    (*array).array = (hseller *)malloc(ARRAY_BLOCK_SIZE * sizeof(hseller));
    CHECK_POINTER((*array).array);
}

void reset_hseller_array(hseller_array * array)
{
    (*array).size = 0;
}

void free_hseller_array(hseller_array * array)
{
    int i;
    
    for(i = 0; i < array->size; i++)
    {
        free_hseller(&(*array).array[i]);
    }
    
    free((*array).array);
}

void copy_hseller_array(hseller_array * from, hseller_array * to)
{
    int i;

    //to = init_hseller_array();

    for(i = 0; i < (*from).size; i++)
    {
        add_hseller(to, (*from).array[i].seller_id, (*from).array[i].price, (*from).array[i].quantity, (*from).array[i].type);
    }
}

void add_hseller(hseller_array * array,  int seller_id,  double price,  int quantity,  int type)
{
    if((*array).size == (*array).total_size)
    {
        (*array).total_size = (int)((*array).total_size * ARRAY_GROWTH_RATE);
        (*array).array = (hseller *)realloc((*array).array, ((*array).total_size * sizeof(hseller)));
    }
    init_hseller(&(*array).array[(*array).size]);
    (*array).array[(*array).size].seller_id = seller_id;
    (*array).array[(*array).size].price = price;
    (*array).array[(*array).size].quantity = quantity;
    (*array).array[(*array).size].type = type;

    (*array).size++;
}

void remove_hseller(hseller_array * array, int index)
{
    int i;

    /* Free element at index index */
    free_hseller(&(*array).array[index]);

    /* Copy all elements up by one */
    if(index < (*array).size)
    {
        for(i = index; i < (*array).size - 1; i++)
        {
            copy_hseller(&(*array).array[i+1], &(*array).array[i]);
        }
        (*array).size--;
    }
}
/* Functions for the hbank datatype */
void init_hbank_array(hbank_array * array)
{
    (*array).size = 0;
    (*array).total_size = ARRAY_BLOCK_SIZE;
    (*array).array = (hbank *)malloc(ARRAY_BLOCK_SIZE * sizeof(hbank));
    CHECK_POINTER((*array).array);
}

void reset_hbank_array(hbank_array * array)
{
    (*array).size = 0;
}

void free_hbank_array(hbank_array * array)
{
    int i;
    
    for(i = 0; i < array->size; i++)
    {
        free_hbank(&(*array).array[i]);
    }
    
    free((*array).array);
}

void copy_hbank_array(hbank_array * from, hbank_array * to)
{
    int i;

    //to = init_hbank_array();

    for(i = 0; i < (*from).size; i++)
    {
        add_hbank(to, (*from).array[i].id, (*from).array[i].equity, (*from).array[i].risky_assets, (*from).array[i].amount_mortgaged);
    }
}

void add_hbank(hbank_array * array,  int id,  double equity,  double risky_assets,  double amount_mortgaged)
{
    if((*array).size == (*array).total_size)
    {
        (*array).total_size = (int)((*array).total_size * ARRAY_GROWTH_RATE);
        (*array).array = (hbank *)realloc((*array).array, ((*array).total_size * sizeof(hbank)));
    }
    init_hbank(&(*array).array[(*array).size]);
    (*array).array[(*array).size].id = id;
    (*array).array[(*array).size].equity = equity;
    (*array).array[(*array).size].risky_assets = risky_assets;
    (*array).array[(*array).size].amount_mortgaged = amount_mortgaged;

    (*array).size++;
}

void remove_hbank(hbank_array * array, int index)
{
    int i;

    /* Free element at index index */
    free_hbank(&(*array).array[index]);

    /* Copy all elements up by one */
    if(index < (*array).size)
    {
        for(i = index; i < (*array).size - 1; i++)
        {
            copy_hbank(&(*array).array[i+1], &(*array).array[i]);
        }
        (*array).size--;
    }
}

int idle()
{
    return 0;
}

int FLAME_get_environment_variable_resume_mode()
{
    return FLAME_environment_variable_resume_mode;
}
int FLAME_get_environment_variable_print_debug_mode()
{
    return FLAME_environment_variable_print_debug_mode;
}
int FLAME_get_environment_variable_warning_mode()
{
    return FLAME_environment_variable_warning_mode;
}
int FLAME_get_environment_variable_data_collection_mode()
{
    return FLAME_environment_variable_data_collection_mode;
}
int FLAME_get_environment_variable_collect_household_data()
{
    return FLAME_environment_variable_collect_household_data;
}
int FLAME_get_environment_variable_collect_firm_data()
{
    return FLAME_environment_variable_collect_firm_data;
}
double FLAME_get_environment_variable_ratio_liquidity()
{
    return FLAME_environment_variable_ratio_liquidity;
}
double FLAME_get_environment_variable_consumption_adjustment_speed()
{
    return FLAME_environment_variable_consumption_adjustment_speed;
}
double FLAME_get_environment_variable_wealth_effect()
{
    return FLAME_environment_variable_wealth_effect;
}
double FLAME_get_environment_variable_turnover_probability()
{
    return FLAME_environment_variable_turnover_probability;
}
double FLAME_get_environment_variable_production_markup()
{
    return FLAME_environment_variable_production_markup;
}
double FLAME_get_environment_variable_price_markup()
{
    return FLAME_environment_variable_price_markup;
}
double FLAME_get_environment_variable_firm_memory_persistance()
{
    return FLAME_environment_variable_firm_memory_persistance;
}
double FLAME_get_environment_variable_ratio_fiscal_policy()
{
    return FLAME_environment_variable_ratio_fiscal_policy;
}
double FLAME_get_environment_variable_ratio_capitalist_households()
{
    return FLAME_environment_variable_ratio_capitalist_households;
}
double FLAME_get_environment_variable_inflation_target()
{
    return FLAME_environment_variable_inflation_target;
}
double FLAME_get_environment_variable_firms_minimum_equity_ratio()
{
    return FLAME_environment_variable_firms_minimum_equity_ratio;
}
double FLAME_get_environment_variable_firm_startup_leverage()
{
    return FLAME_environment_variable_firm_startup_leverage;
}
double FLAME_get_environment_variable_household_startup_leverage()
{
    return FLAME_environment_variable_household_startup_leverage;
}
double FLAME_get_environment_variable_car_buffer_threshold()
{
    return FLAME_environment_variable_car_buffer_threshold;
}
double FLAME_get_environment_variable_housing_market_entrance_prob()
{
    return FLAME_environment_variable_housing_market_entrance_prob;
}
double FLAME_get_environment_variable_fire_sale_threshold()
{
    return FLAME_environment_variable_fire_sale_threshold;
}
double FLAME_get_environment_variable_household_budget_constraint()
{
    return FLAME_environment_variable_household_budget_constraint;
}
double FLAME_get_environment_variable_capital_adequecy_ratio()
{
    return FLAME_environment_variable_capital_adequecy_ratio;
}
double FLAME_get_environment_variable_housing_price_up_rate()
{
    return FLAME_environment_variable_housing_price_up_rate;
}
double FLAME_get_environment_variable_housing_price_down_rate()
{
    return FLAME_environment_variable_housing_price_down_rate;
}
double FLAME_get_environment_variable_household_mortgage_writeoff_high()
{
    return FLAME_environment_variable_household_mortgage_writeoff_high;
}
double FLAME_get_environment_variable_household_mortgage_writeoff_low()
{
    return FLAME_environment_variable_household_mortgage_writeoff_low;
}