Cleanup - Lapack to tile

Keep going on with the cleanup of the flush and getoncpu.

I start by the basic function of lapack to tile and tile to lapack. The idea is to remove all workspaces from pz*.c files if possible.

In this MR:

• Remove the asynchronous interface to change the data format. People cans till do it by copy/paste the synchronous one in their own code and using the asynchronous version of zlacpy.
• Remove the pztile.c file
  • Data format converion uses zlacpy
  • ztile_to_zero is a zlaset so no need for duplicated code

compute/ztile.c

@@ -63,44 +63,7 @@
  ******************************************************************************/
 int MORSE_zLapack_to_Tile( MORSE_Complex64_t *Af77, int LDA, MORSE_desc_t *A )
 {
-    MORSE_context_t *morse;
-    MORSE_sequence_t *sequence = NULL;
-    MORSE_request_t request;
-    MORSE_desc_t *B;
-    int status;
-
-    morse = morse_context_self();
-    if (morse == NULL) {
-        morse_fatal_error("MORSE_zLapack_to_Tile", "MORSE not initialized");
-        return MORSE_ERR_NOT_INITIALIZED;
-    }
-    /* Check descriptor for correctness */
-    if (morse_desc_check( A ) != MORSE_SUCCESS) {
-        morse_error("MORSE_zLapack_to_Tile", "invalid descriptor");
-        return MORSE_ERR_ILLEGAL_VALUE;
-    }
-
-    /* Create the B descriptor to handle the Lapack format matrix */
-    MORSE_Desc_Create_User( &B, Af77, MorseComplexDouble, A->mb, A->nb, A->bsiz,
-                            LDA, A->n, 0, 0, A->m, A->n, 1, 1,
-                            morse_getaddr_cm, morse_getblkldd_cm, NULL );
-
-    /* Start the computation */
-    morse_sequence_create( morse, &sequence );
-
-    morse_pzlacpy( MorseUpperLower, B, A, sequence, &request );
-
-    MORSE_Desc_Flush( B, sequence );
-    MORSE_Desc_Flush( A, sequence );
-
-    morse_sequence_wait( morse, sequence );
-
-    /* Destroy temporary B descriptor */
-    MORSE_Desc_Destroy( &B );
-
-    status = sequence->status;
-    morse_sequence_destroy( morse, sequence );
-    return status;
+    return MORSE_Lapack_to_Tile( Af77, LDA, A );
 }
 
 /**
@@ -140,41 +103,5 @@ int MORSE_zLapack_to_Tile( MORSE_Complex64_t *Af77, int LDA, MORSE_desc_t *A )
  ******************************************************************************/
 int MORSE_zTile_to_Lapack( MORSE_desc_t *A, MORSE_Complex64_t *Af77, int LDA )
 {
-    MORSE_context_t *morse;
-    MORSE_sequence_t *sequence = NULL;
-    MORSE_request_t request;
-    MORSE_desc_t *B;
-    int status;
-
-    morse = morse_context_self();
-    if (morse == NULL) {
-        morse_fatal_error("MORSE_zTile_to_Lapack", "MORSE not initialized");
-        return MORSE_ERR_NOT_INITIALIZED;
-    }
-    /* Check descriptor for correctness */
-    if (morse_desc_check( A ) != MORSE_SUCCESS) {
-        morse_error("MORSE_zTile_to_Lapack", "invalid descriptor");
-        return MORSE_ERR_ILLEGAL_VALUE;
-    }
-
-    /* Create the B descriptor to handle the Lapack format matrix */
-    MORSE_Desc_Create_User( &B, Af77, MorseComplexDouble, A->mb, A->nb, A->bsiz,
-                            LDA, A->n, 0, 0, A->m, A->n, 1, 1,
-                            morse_getaddr_cm, morse_getblkldd_cm, NULL );
-
-    /* Start the computation */
-    morse_sequence_create( morse, &sequence );
-
-    morse_pzlacpy( MorseUpperLower, A, B, sequence, &request );
-
-    MORSE_Desc_Flush( A, sequence );
-    MORSE_Desc_Flush( B, sequence );
-
-    morse_sequence_wait( morse, sequence );
-
-    MORSE_Desc_Destroy( &B );
-
-    status = sequence->status;
-    morse_sequence_destroy( morse, sequence );
-    return status;
+    return MORSE_Tile_to_Lapack( A, Af77, LDA );
 }