Move to const the Descriptor in desc_check

control/descriptor.c

@@ -258,7 +258,7 @@ MORSE_desc_t* morse_desc_submatrix(MORSE_desc_t *descA, int i, int j, int m, int
 /*******************************************************************************
  *  Check for descriptor correctness
  **/
-int morse_desc_check(MORSE_desc_t *desc)
+int morse_desc_check(const MORSE_desc_t *desc)
 {
     if (desc == NULL) {
         morse_error("morse_desc_check", "NULL descriptor");

control/descriptor.h

@@ -63,7 +63,7 @@ MORSE_desc_t morse_desc_init_user(MORSE_enum dtyp, int mb, int nb, int bsiz,
                                   int (*get_rankof)( const MORSE_desc_t*, int, int ));
 MORSE_desc_t* morse_desc_submatrix(MORSE_desc_t *descA, int i, int j, int m, int n);
 
-int morse_desc_check    (MORSE_desc_t *desc);
+int morse_desc_check    (const MORSE_desc_t *desc);
 int morse_desc_mat_alloc(MORSE_desc_t *desc);
 int morse_desc_mat_free (MORSE_desc_t *desc);