[Error mgmt] Update part error codes in mbs_part

MBsysC/mbs_common/mbs_module/mbs_part.c

@@ -218,10 +218,10 @@ int PART_coord_part(MbsData* mbs_data, MbsPart*  mbs_part, int* ind_u_des, int n
 
     Real_Rank = mbs_rank_0(Jac, nl_JAC, nc_JAC);                   // calcul du rang reel de Jac pour q random
 
-    if (Real_Rank < 0)
+    if (Real_Rank < 0) // Error management
     {
         mbs_msg(">>PART>> Error in mbs_rank_0 during computation of real rank of Jacobian matrix \n");
-        return -11;
+        return -10 + Real_Rank;
     }
 
     copy_dvec_0(q_safe, &(mbs_data->q[1]), mbs_data->njoint);
@@ -273,7 +273,7 @@ int PART_coord_part(MbsData* mbs_data, MbsPart*  mbs_part, int* ind_u_des, int n
 
     // Check the user choice for independent coordinates
 
-    if (irk < Real_Rank)   // choix mauvais - erreur
+    if (irk < Real_Rank)   // choix mauvais - Error management
     {
         mbs_msg(">>PART>> Error in LU Decomposition during PART_lutot\n");
         mbs_msg(">>PART>> Rank after LU : %d \n",irk );
@@ -285,7 +285,7 @@ int PART_coord_part(MbsData* mbs_data, MbsPart*  mbs_part, int* ind_u_des, int n
         mbs_msg(">>PART>>\n");
         mbs_msg(">>PART>> mbs_coord_part: wrong choice for the independent variable set - Jv matrix singular\n");
         mbs_msg(">>PART>> Check your choice of your joint natures (especially in your loops) \n");
-        return -21;
+        return -112;
     }
     else                 // choix valide
     {
@@ -421,10 +421,10 @@ void mbs_run_part(MbsPart*  mbs_part, MbsData* mbs_data)
         {
             mbs_msg(">>PART>> The coordinate partitioning is not required for this system (because it is unconstrained) !\n");
             
-            if (mbs_data->nqv)
+            if (mbs_data->nqv) // Error management
             {
                 mbs_msg(">>PART>> Dependant variables are used only in systems with constraints. Check the nature of your variables. \n");
-                mbs_error_msg(" [%d] in mbs_run_part !! \n", -130);
+                mbs_error_msg(" [%d] in mbs_run_part !! \n", -100);
             }
 
         }
@@ -477,7 +477,7 @@ void mbs_run_part(MbsPart*  mbs_part, MbsData* mbs_data)
 
         err = PART_coord_part(mbs_data, mbs_part, ind_u_des, mbs_data->nqu, ind_c, mbs_data->nqc, 1); // d'abord on cherche un choix valable
 
-        if (err < 0)
+        if (err < 0) // Error management
         {
             mbs_msg(">>PART>>\n");
             mbs_msg(">>PART>> ***** mbs_run_part : Coordinate partitioning interrupted : *****\n");

MBsysC/mbs_common/mbs_numerics/eig_lapack.c

@@ -9,7 +9,7 @@
 
 #include <stdio.h>
 #include <math.h>
-
+#include "mbs_message.h"
 
 /**
  * Implementation of eig function using lapacke