@@ -519,22 +519,22 @@ zdouble beta={beta_r,beta_i};
519519 if (!trans_a && !trans_b ) {
520520 bool conja = (* transa == 'R' || * transa == 'r' );
521521 bool conjb = (* transb == 'R' || * transb == 'r' );
522- zgemm_sme_NN (m , n , k , alpha , a , lda , b , ldb , beta , c , ldc , conja , conjb );
522+ zgemm_sme_NN (m , n , k , alpha , ( const zdouble * ) a , lda , ( const zdouble * ) b , ldb , beta , ( zdouble * ) c , ldc , conja , conjb );
523523 }
524524 else if (trans_a && !trans_b ) {
525525 bool conja = (* transa == 'C' || * transa == 'c' );
526526 bool conjb = (* transb == 'R' || * transb == 'r' );
527- zgemm_sme_TN (m , n , k , alpha , a , lda , b , ldb , beta , c , ldc , conja , conjb );
527+ zgemm_sme_TN (m , n , k , alpha , ( const zdouble * ) a , lda , ( const zdouble * ) b , ldb , beta , ( zdouble * ) c , ldc , conja , conjb );
528528 }
529529 else if (!trans_a && trans_b ) {
530530 bool conja = (* transa == 'R' || * transa == 'r' );
531531 bool conjb = (* transb == 'C' || * transb == 'c' );
532- zgemm_sme_NT (m , n , k , alpha , a , lda , b , ldb , beta , c , ldc , conja , conjb );
532+ zgemm_sme_NT (m , n , k , alpha , ( const zdouble * ) a , lda , ( const zdouble * ) b , ldb , beta , ( zdouble * ) c , ldc , conja , conjb );
533533 }
534534 else {
535535 bool conja = (* transa == 'C' || * transa == 'c' );
536536 bool conjb = (* transb == 'C' || * transb == 'c' );
537- zgemm_sme_TT (m , n , k , alpha , a , lda , b , ldb , beta , c , ldc , conja , conjb );
537+ zgemm_sme_TT (m , n , k , alpha , ( const zdouble * ) a , lda , ( const zdouble * ) b , ldb , beta , ( zdouble * ) c , ldc , conja , conjb );
538538 }
539539}
540540
0 commit comments