Feature mpi comm user

control/descriptor_ipiv.c

@@ -240,11 +240,16 @@ int CHAMELEON_Ipiv_Flush( const CHAM_ipiv_t        *ipiv,
  */
 int CHAMELEON_Ipiv_Gather( CHAM_ipiv_t *ipivdesc, int *ipiv, int root )
 {
-    int status;
-    CHAM_context_t *chamctxt = chameleon_context_self();
+    CHAM_context_t     *chamctxt = chameleon_context_self();
     RUNTIME_sequence_t *sequence = NULL;
+    int                 status;
+
     chameleon_sequence_create( chamctxt, &sequence );
+
+    /* Submit the tasks to collect the ipiv array on root */
     RUNTIME_ipiv_gather( sequence, ipivdesc, ipiv, root );
+
+    /* Wait for the end */
     chameleon_sequence_wait( chamctxt, sequence );
     status = sequence->status;
     chameleon_sequence_destroy( chamctxt, sequence );