int sp_num_free(sp_num *N){ sp_mat_free(N->L); sp_mat_free(N->U); free(N->xi[0]); free(N->xi); free(N->topvec); free(N->pinv); free(N->p); free(N->q); free(N->w); free(N->wamd); free(N); return _SUCCESS_; }
int uninitialize_jacobian(struct jacobian *jac){ free(jac->dfdy[1]); free(jac->dfdy); free(jac->LU[1]); free(jac->LU); free(jac->luidx); free(jac->LUw); free(jac->jacvec); if(jac->sparse_stuff_initialized){ free(jac->xjac); free(jac->col_wi); free(jac->col_group); free(jac->Cp); free(jac->Ci); sp_mat_free(jac->spJ); sp_num_free(jac->Numerical); } return _SUCCESS_; }