a - x, lmm_variable_getvalue(R_1_2_3) - (a - x));
}
} else {
- xbt_assert0(0, "Invalid method");
+ xbt_die( "Invalid method");
}
PRINT_VAR(R_1_2_3);
} else if (method == LAGRANGE_RENO) {
lagrange_solve(Sys);
} else {
- xbt_assert0(0, "Invalid method");
+ xbt_die("Invalid method");
}
PRINT_VAR(T1);
1, 1, 1, 1, 1
};
- /*A = xbt_new0(double*, links + 5); */
A = xbt_new0(double *, links + 5);
for (i = 0; i < links + 5; i++) {
} else if (method == LAGRANGE_RENO) {
lagrange_solve(Sys);
} else {
- xbt_assert0(0, "Invalid method");
+ xbt_die("Invalid method");
}
for (j = 0; j < 16; j++) {
PRINT_VAR(tmp_var[j]);
}
- free(tmp_var);
- free(tmp_cnst);
- free(tmp_name);
+ xbt_free(tmp_var);
+ xbt_free(tmp_cnst);
+ for (i = 0; i < 31; i++)
+ xbt_free(tmp_name[i]);
+ xbt_free(tmp_name);
lmm_system_free(Sys);
+ for (i = 0; i < links + 5; i++)
+ xbt_free(A[i]);
+ xbt_free(A);
}
#ifdef __BORLANDC__