fixed bug in the mpi version

Author: ZocoLini

modules/cuqdyn-c/src/cuqdyn.c

@@ -174,7 +174,7 @@ CuqdynResult *cuqdyn_algo(const char *data_file, const char *sacess_conf_file, c
         }
 
 #ifdef MPI
-        long predicted_data_len = SM_COLUMNS_D(predicted_obs_states) * SM_ROWS_D(predicted_obs_states);
+        long predicted_obs_states_len = SM_COLUMNS_D(predicted_obs_states) * SM_ROWS_D(predicted_obs_states);
         if (rank != 0)
         {
             // Sending
@@ -185,7 +185,7 @@ CuqdynResult *cuqdyn_algo(const char *data_file, const char *sacess_conf_file, c
             // We also need to send the actual i to the master process
             MPI_Send(&i, 1, MPI_LONG, 0, 0, MPI_COMM_WORLD);
             MPI_Send(NV_DATA_S(residuals), NV_LENGTH_S(residuals), MPI_DOUBLE, 0, 1, MPI_COMM_WORLD);
-            MPI_Send(SM_DATA_D(predicted_data), predicted_data_len, MPI_DOUBLE, 0, 2, MPI_COMM_WORLD);
+            MPI_Send(SM_DATA_D(predicted_obs_states), predicted_obs_states_len, MPI_DOUBLE, 0, 2, MPI_COMM_WORLD);
             MPI_Send(NV_DATA_S(predicted_params), NV_LENGTH_S(predicted_params), MPI_DOUBLE, 0, 3, MPI_COMM_WORLD);
         }
         else
@@ -207,9 +207,9 @@ CuqdynResult *cuqdyn_algo(const char *data_file, const char *sacess_conf_file, c
                 set_matrix_row(resid_loo, residuals, slaved_index, 0, NV_LENGTH_S(residuals));
 
                 // Receiving the predicted data matrix
-                MPI_Recv(SM_DATA_D(predicted_data), predicted_data_len, MPI_DOUBLE, slave, 2, MPI_COMM_WORLD,
+                MPI_Recv(SM_DATA_D(predicted_obs_states), predicted_obs_states_len, MPI_DOUBLE, slave, 2, MPI_COMM_WORLD,
                          MPI_STATUS_IGNORE);
-                matrix_array_set_index(media_matrix, slaved_index - 1, predicted_data);
+                matrix_array_set_index(media_matrix, slaved_index - 1, predicted_obs_states);
 
                 // Receiving the predicted params
                 MPI_Recv(NV_DATA_S(predicted_params), NV_LENGTH_S(predicted_params), MPI_DOUBLE, slave, 3,