450 {
457
462
467 for( i=0; i<*m; i++ )
468 for( j=0; j<*m; j++ ) {
471 }
472 }
473 else{
476 for( i=0; i<*n; i++ )
477 for( j=0; j<*n; j++ ) {
480 }
481 }
484 for( i=0; i<*m; i++ )
485 for( j=0; j<*n; j++ ) {
488 }
491 for( j=0; j<*n; j++ )
492 for( i=0; i<*m; i++ ) {
495 }
496 free(A);
497 free(B);
498 }
501 a, *lda, b, *ldb);
502 else
504 a, *lda, b, *ldb);
505}
void cblas_ztrmm(CBLAS_LAYOUT layout, CBLAS_SIDE Side, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, void *B, const CBLAS_INT ldb)
void get_diag_type(char *type, CBLAS_DIAG *diag)
void get_side_type(char *type, CBLAS_SIDE *side)
void get_uplo_type(char *type, CBLAS_UPLO *uplo)
void get_transpose_type(char *type, CBLAS_TRANSPOSE *trans)