codelet/starpu: Add assert to make sure we use the correct datatype

runtime/starpu/codelets/codelet_zgemm.c

@@ -44,6 +44,10 @@ cl_zgemm_cpu_func( void *descr[], void *cl_arg )
     tileB = cti_interface_get(descr[1]);
     tileC = cti_interface_get(descr[2]);
 
+    assert( tileA->flttype == ChamComplexDouble );
+    assert( tileB->flttype == ChamComplexDouble );
+    assert( tileC->flttype == ChamComplexDouble );
+
     TCORE_zgemm( clargs->transA, clargs->transB,
                  clargs->m, clargs->n, clargs->k,
                  clargs->alpha, tileA, tileB,

runtime/starpu/codelets/codelet_zherk.c

@@ -48,6 +48,9 @@ cl_zherk_cpu_func(void *descr[], void *cl_arg)
     tileA = cti_interface_get(descr[0]);
     tileC = cti_interface_get(descr[1]);
 
+    assert( tileA->flttype == ChamComplexDouble );
+    assert( tileC->flttype == ChamComplexDouble );
+
     TCORE_zherk( clargs->uplo, clargs->trans, clargs->n, clargs->k,
                  clargs->alpha, tileA, clargs->beta, tileC );
 }

runtime/starpu/codelets/codelet_zpotrf.c

@@ -46,6 +46,8 @@ cl_zpotrf_cpu_func(void *descr[], void *cl_arg)
 
     tileA = cti_interface_get(descr[0]);
 
+    assert( tileA->flttype == ChamComplexDouble );
+
     TCORE_zpotrf( clargs->uplo, clargs->n, tileA, &info );
 
     if ( (clargs->sequence->status == CHAMELEON_SUCCESS) && (info != 0) ) {

runtime/starpu/codelets/codelet_zsyrk.c

@@ -49,6 +49,9 @@ cl_zsyrk_cpu_func(void *descr[], void *cl_arg)
     tileA = cti_interface_get(descr[0]);
     tileC = cti_interface_get(descr[1]);
 
+    assert( tileA->flttype == ChamComplexDouble );
+    assert( tileC->flttype == ChamComplexDouble );
+
     TCORE_zsyrk( clargs->uplo, clargs->trans, clargs->n, clargs->k,
                  clargs->alpha, tileA, clargs->beta, tileC );
 }

runtime/starpu/codelets/codelet_ztrsm.c

@@ -50,6 +50,9 @@ cl_ztrsm_cpu_func(void *descr[], void *cl_arg)
     tileA = cti_interface_get(descr[0]);
     tileB = cti_interface_get(descr[1]);
 
+    assert( tileA->flttype == ChamComplexDouble );
+    assert( tileB->flttype == ChamComplexDouble );
+
     TCORE_ztrsm( clargs->side, clargs->uplo, clargs->transA, clargs->diag,
                  clargs->m, clargs->n, clargs->alpha, tileA, tileB );
 }