diff --git a/runtime/starpu/codelets/codelet_zgemm.c b/runtime/starpu/codelets/codelet_zgemm.c index 4321e152f34ece6f99c50356b022beb8025dbe04..9a5dbcc326859044fbbeb7065d2e51c48e5c8f07 100644 --- a/runtime/starpu/codelets/codelet_zgemm.c +++ b/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, diff --git a/runtime/starpu/codelets/codelet_zherk.c b/runtime/starpu/codelets/codelet_zherk.c index 75acb58bfd015537d51add797a6ca8abd15c8294..243d8346c148cd2af465479b36d96087911481eb 100644 --- a/runtime/starpu/codelets/codelet_zherk.c +++ b/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 ); } diff --git a/runtime/starpu/codelets/codelet_zpotrf.c b/runtime/starpu/codelets/codelet_zpotrf.c index 79576c58b9e4d70444c1c426a8bb6684954c669d..5c9e183b71d83663a522f27d3ccab6e3af7db5cf 100644 --- a/runtime/starpu/codelets/codelet_zpotrf.c +++ b/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) ) { diff --git a/runtime/starpu/codelets/codelet_zsyrk.c b/runtime/starpu/codelets/codelet_zsyrk.c index bde74c16156bc7a80049365c1080d769ced44e17..0bd8f348f4b2e3bb2a73bc0b69b2f65326bfacee 100644 --- a/runtime/starpu/codelets/codelet_zsyrk.c +++ b/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 ); } diff --git a/runtime/starpu/codelets/codelet_ztrsm.c b/runtime/starpu/codelets/codelet_ztrsm.c index 90c621fe6a3b505fbd0bd2d6a4ea66f6d178bb9d..c6e92447583a3773c21ed16d0e7dfb6e6f67aef1 100644 --- a/runtime/starpu/codelets/codelet_ztrsm.c +++ b/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 ); }