libflame revision_anchor
|
Functions | |
void | bli_strsm (char side, char uplo, char trans, char diag, int m, int n, float *alpha, float *a, int a_rs, int a_cs, float *b, int b_rs, int b_cs) |
void | bli_dtrsm (char side, char uplo, char trans, char diag, int m, int n, double *alpha, double *a, int a_rs, int a_cs, double *b, int b_rs, int b_cs) |
void | bli_ctrsm (char side, char uplo, char trans, char diag, int m, int n, scomplex *alpha, scomplex *a, int a_rs, int a_cs, scomplex *b, int b_rs, int b_cs) |
void | bli_ztrsm (char side, char uplo, char trans, char diag, int m, int n, dcomplex *alpha, dcomplex *a, int a_rs, int a_cs, dcomplex *b, int b_rs, int b_cs) |
void | bli_strsm_blas (char side, char uplo, char trans, char diag, int m, int n, float *alpha, float *a, int lda, float *b, int ldb) |
void | bli_dtrsm_blas (char side, char uplo, char trans, char diag, int m, int n, double *alpha, double *a, int lda, double *b, int ldb) |
void | bli_ctrsm_blas (char side, char uplo, char trans, char diag, int m, int n, scomplex *alpha, scomplex *a, int lda, scomplex *b, int ldb) |
void | bli_ztrsm_blas (char side, char uplo, char trans, char diag, int m, int n, dcomplex *alpha, dcomplex *a, int lda, dcomplex *b, int ldb) |
void bli_ctrsm | ( | char | side, |
char | uplo, | ||
char | trans, | ||
char | diag, | ||
int | m, | ||
int | n, | ||
scomplex * | alpha, | ||
scomplex * | a, | ||
int | a_rs, | ||
int | a_cs, | ||
scomplex * | b, | ||
int | b_rs, | ||
int | b_cs | ||
) |
References bli_callocm(), bli_cconjmr(), bli_ccopymrt(), bli_ccreate_contigm(), bli_ccreate_contigmr(), bli_cfree(), bli_cfree_contigm(), bli_cfree_saved_contigm(), bli_ctrsm_blas(), bli_is_col_storage(), bli_is_conjnotrans(), bli_is_left(), bli_set_dim_with_side(), and bli_zero_dim2().
Referenced by bli_ctrsmsx(), FLA_LU_nopiv_opc_var1(), FLA_LU_nopiv_opc_var2(), FLA_LU_nopiv_opc_var3(), FLA_LU_piv_opc_var3(), and FLA_Trsm_external().
{ int m_save = m; int n_save = n; scomplex* a_save = a; scomplex* b_save = b; int a_rs_save = a_rs; int a_cs_save = a_cs; int b_rs_save = b_rs; int b_cs_save = b_cs; scomplex* a_conj; int dim_a; int lda, inca; int ldb, incb; int lda_conj, inca_conj; int a_was_copied; // Return early if possible. if ( bli_zero_dim2( m, n ) ) return; // If necessary, allocate, initialize, and use a temporary contiguous // copy of each matrix rather than the original matrices. bli_set_dim_with_side( side, m, n, &dim_a ); bli_ccreate_contigmr( uplo, dim_a, dim_a, a_save, a_rs_save, a_cs_save, &a, &a_rs, &a_cs ); bli_ccreate_contigm( m, n, b_save, b_rs_save, b_cs_save, &b, &b_rs, &b_cs ); // Figure out whether A was copied to contiguous memory. This is used to // prevent redundant copying. a_was_copied = ( a != a_save ); // Initialize with values assuming column-major storage. lda = a_cs; inca = a_rs; ldb = b_cs; incb = b_rs; // Adjust the parameters based on the storage of each matrix. if ( bli_is_col_storage( b_rs, b_cs ) ) { if ( bli_is_col_storage( a_rs, a_cs ) ) { // requested operation: B_c := tr( uplo( A_c ) ) * B_c // effective operation: B_c := tr( uplo( A_c ) ) * B_c } else // if ( bli_is_row_storage( a_rs, a_cs ) ) { // requested operation: B_c := tr( uplo( A_r ) ) * B_c // effective operation: B_c := tr( ~uplo( A_c ) )^T * B_c bli_swap_ints( lda, inca ); bli_toggle_uplo( uplo ); bli_toggle_trans( trans ); } } else // if ( bli_is_row_storage( b_rs, b_cs ) ) { if ( bli_is_col_storage( a_rs, a_cs ) ) { // requested operation: B_r := tr( uplo( A_c ) ) * B_r // effective operation: B_c := B_c * tr( uplo( A_c ) )^T bli_swap_ints( ldb, incb ); bli_swap_ints( m, n ); bli_toggle_side( side ); bli_toggle_trans( trans ); } else // if ( bli_is_row_storage( a_rs, a_cs ) ) { // requested operation: B_r := tr( uplo( A_r ) ) * B_r // effective operation: B_c := B_c * tr( ~uplo( A_c ) ) bli_swap_ints( ldb, incb ); bli_swap_ints( lda, inca ); bli_swap_ints( m, n ); bli_toggle_uplo( uplo ); bli_toggle_side( side ); } } // Initialize with values assuming that trans is not conjnotrans. a_conj = a; lda_conj = lda; inca_conj = inca; // We want to handle the conjnotrans case. The easiest way to do so is // by making a conjugated copy of A. if ( bli_is_conjnotrans( trans ) && !a_was_copied ) { int dim_a; if ( bli_is_left( side ) ) dim_a = m; else dim_a = n; a_conj = bli_callocm( dim_a, dim_a ); lda_conj = dim_a; inca_conj = 1; bli_ccopymrt( uplo, BLIS_CONJ_NO_TRANSPOSE, dim_a, dim_a, a, inca, lda, a_conj, inca_conj, lda_conj ); } else if ( bli_is_conjnotrans( trans ) && a_was_copied ) { int dim_a; if ( bli_is_left( side ) ) dim_a = m; else dim_a = n; bli_cconjmr( uplo, dim_a, dim_a, a_conj, inca_conj, lda_conj ); } bli_ctrsm_blas( side, uplo, trans, diag, m, n, alpha, a_conj, lda_conj, b, ldb ); if ( bli_is_conjnotrans( trans ) && !a_was_copied ) bli_cfree( a_conj ); // Free any temporary contiguous matrices, copying the result back to // the original matrix. bli_cfree_contigm( a_save, a_rs_save, a_cs_save, &a, &a_rs, &a_cs ); bli_cfree_saved_contigm( m_save, n_save, b_save, b_rs_save, b_cs_save, &b, &b_rs, &b_cs ); }
void bli_ctrsm_blas | ( | char | side, |
char | uplo, | ||
char | trans, | ||
char | diag, | ||
int | m, | ||
int | n, | ||
scomplex * | alpha, | ||
scomplex * | a, | ||
int | lda, | ||
scomplex * | b, | ||
int | ldb | ||
) |
References bli_param_map_to_netlib_diag(), bli_param_map_to_netlib_side(), bli_param_map_to_netlib_trans(), bli_param_map_to_netlib_uplo(), cblas_ctrsm(), CblasColMajor, and F77_ctrsm().
Referenced by bli_ctrsm().
{ #ifdef BLIS_ENABLE_CBLAS_INTERFACES enum CBLAS_ORDER cblas_order = CblasColMajor; enum CBLAS_SIDE cblas_side; enum CBLAS_UPLO cblas_uplo; enum CBLAS_TRANSPOSE cblas_trans; enum CBLAS_DIAG cblas_diag; bli_param_map_to_netlib_side( side, &cblas_side ); bli_param_map_to_netlib_uplo( uplo, &cblas_uplo ); bli_param_map_to_netlib_trans( trans, &cblas_trans ); bli_param_map_to_netlib_diag( diag, &cblas_diag ); cblas_ctrsm( cblas_order, cblas_side, cblas_uplo, cblas_trans, cblas_diag, m, n, alpha, a, lda, b, ldb ); #else char blas_side; char blas_uplo; char blas_trans; char blas_diag; bli_param_map_to_netlib_side( side, &blas_side ); bli_param_map_to_netlib_uplo( uplo, &blas_uplo ); bli_param_map_to_netlib_trans( trans, &blas_trans ); bli_param_map_to_netlib_diag( diag, &blas_diag ); F77_ctrsm( &blas_side, &blas_uplo, &blas_trans, &blas_diag, &m, &n, alpha, a, &lda, b, &ldb ); #endif }
void bli_dtrsm | ( | char | side, |
char | uplo, | ||
char | trans, | ||
char | diag, | ||
int | m, | ||
int | n, | ||
double * | alpha, | ||
double * | a, | ||
int | a_rs, | ||
int | a_cs, | ||
double * | b, | ||
int | b_rs, | ||
int | b_cs | ||
) |
References bli_dcreate_contigm(), bli_dcreate_contigmr(), bli_dfree_contigm(), bli_dfree_saved_contigm(), bli_dtrsm_blas(), bli_is_col_storage(), bli_set_dim_with_side(), and bli_zero_dim2().
Referenced by bli_dtrsmsx(), FLA_LU_nopiv_opd_var1(), FLA_LU_nopiv_opd_var2(), FLA_LU_nopiv_opd_var3(), FLA_LU_piv_opd_var3(), and FLA_Trsm_external().
{ int m_save = m; int n_save = n; double* a_save = a; double* b_save = b; int a_rs_save = a_rs; int a_cs_save = a_cs; int b_rs_save = b_rs; int b_cs_save = b_cs; int dim_a; int lda, inca; int ldb, incb; // Return early if possible. if ( bli_zero_dim2( m, n ) ) return; // If necessary, allocate, initialize, and use a temporary contiguous // copy of each matrix rather than the original matrices. bli_set_dim_with_side( side, m, n, &dim_a ); bli_dcreate_contigmr( uplo, dim_a, dim_a, a_save, a_rs_save, a_cs_save, &a, &a_rs, &a_cs ); bli_dcreate_contigm( m, n, b_save, b_rs_save, b_cs_save, &b, &b_rs, &b_cs ); // Initialize with values assuming column-major storage. lda = a_cs; inca = a_rs; ldb = b_cs; incb = b_rs; // Adjust the parameters based on the storage of each matrix. if ( bli_is_col_storage( b_rs, b_cs ) ) { if ( bli_is_col_storage( a_rs, a_cs ) ) { // requested operation: B_c := tr( uplo( A_c ) ) * B_c // effective operation: B_c := tr( uplo( A_c ) ) * B_c } else // if ( bli_is_row_storage( a_rs, a_cs ) ) { // requested operation: B_c := tr( uplo( A_r ) ) * B_c // effective operation: B_c := tr( ~uplo( A_c ) )^T * B_c bli_swap_ints( lda, inca ); bli_toggle_uplo( uplo ); bli_toggle_trans( trans ); } } else // if ( bli_is_row_storage( b_rs, b_cs ) ) { if ( bli_is_col_storage( a_rs, a_cs ) ) { // requested operation: B_r := tr( uplo( A_c ) ) * B_r // effective operation: B_c := B_c * tr( uplo( A_c ) )^T bli_swap_ints( ldb, incb ); bli_swap_ints( m, n ); bli_toggle_side( side ); bli_toggle_trans( trans ); } else // if ( bli_is_row_storage( a_rs, a_cs ) ) { // requested operation: B_r := tr( uplo( A_r ) ) * B_r // effective operation: B_c := B_c * tr( ~uplo( A_c ) ) bli_swap_ints( ldb, incb ); bli_swap_ints( lda, inca ); bli_swap_ints( m, n ); bli_toggle_uplo( uplo ); bli_toggle_side( side ); } } bli_dtrsm_blas( side, uplo, trans, diag, m, n, alpha, a, lda, b, ldb ); // Free any temporary contiguous matrices, copying the result back to // the original matrix. bli_dfree_contigm( a_save, a_rs_save, a_cs_save, &a, &a_rs, &a_cs ); bli_dfree_saved_contigm( m_save, n_save, b_save, b_rs_save, b_cs_save, &b, &b_rs, &b_cs ); }
void bli_dtrsm_blas | ( | char | side, |
char | uplo, | ||
char | trans, | ||
char | diag, | ||
int | m, | ||
int | n, | ||
double * | alpha, | ||
double * | a, | ||
int | lda, | ||
double * | b, | ||
int | ldb | ||
) |
References bli_param_map_to_netlib_diag(), bli_param_map_to_netlib_side(), bli_param_map_to_netlib_trans(), bli_param_map_to_netlib_uplo(), cblas_dtrsm(), CblasColMajor, and F77_dtrsm().
Referenced by bli_dtrsm().
{ #ifdef BLIS_ENABLE_CBLAS_INTERFACES enum CBLAS_ORDER cblas_order = CblasColMajor; enum CBLAS_SIDE cblas_side; enum CBLAS_UPLO cblas_uplo; enum CBLAS_TRANSPOSE cblas_trans; enum CBLAS_DIAG cblas_diag; bli_param_map_to_netlib_side( side, &cblas_side ); bli_param_map_to_netlib_uplo( uplo, &cblas_uplo ); bli_param_map_to_netlib_trans( trans, &cblas_trans ); bli_param_map_to_netlib_diag( diag, &cblas_diag ); cblas_dtrsm( cblas_order, cblas_side, cblas_uplo, cblas_trans, cblas_diag, m, n, *alpha, a, lda, b, ldb ); #else char blas_side; char blas_uplo; char blas_trans; char blas_diag; bli_param_map_to_netlib_side( side, &blas_side ); bli_param_map_to_netlib_uplo( uplo, &blas_uplo ); bli_param_map_to_netlib_trans( trans, &blas_trans ); bli_param_map_to_netlib_diag( diag, &blas_diag ); F77_dtrsm( &blas_side, &blas_uplo, &blas_trans, &blas_diag, &m, &n, alpha, a, &lda, b, &ldb ); #endif }
void bli_strsm | ( | char | side, |
char | uplo, | ||
char | trans, | ||
char | diag, | ||
int | m, | ||
int | n, | ||
float * | alpha, | ||
float * | a, | ||
int | a_rs, | ||
int | a_cs, | ||
float * | b, | ||
int | b_rs, | ||
int | b_cs | ||
) |
References bli_is_col_storage(), bli_screate_contigm(), bli_screate_contigmr(), bli_set_dim_with_side(), bli_sfree_contigm(), bli_sfree_saved_contigm(), bli_strsm_blas(), and bli_zero_dim2().
Referenced by bli_strsmsx(), FLA_LU_nopiv_ops_var1(), FLA_LU_nopiv_ops_var2(), FLA_LU_nopiv_ops_var3(), FLA_LU_piv_ops_var3(), and FLA_Trsm_external().
{ int m_save = m; int n_save = n; float* a_save = a; float* b_save = b; int a_rs_save = a_rs; int a_cs_save = a_cs; int b_rs_save = b_rs; int b_cs_save = b_cs; int dim_a; int lda, inca; int ldb, incb; // Return early if possible. if ( bli_zero_dim2( m, n ) ) return; // If necessary, allocate, initialize, and use a temporary contiguous // copy of each matrix rather than the original matrices. bli_set_dim_with_side( side, m, n, &dim_a ); bli_screate_contigmr( uplo, dim_a, dim_a, a_save, a_rs_save, a_cs_save, &a, &a_rs, &a_cs ); bli_screate_contigm( m, n, b_save, b_rs_save, b_cs_save, &b, &b_rs, &b_cs ); // Initialize with values assuming column-major storage. lda = a_cs; inca = a_rs; ldb = b_cs; incb = b_rs; // Adjust the parameters based on the storage of each matrix. if ( bli_is_col_storage( b_rs, b_cs ) ) { if ( bli_is_col_storage( a_rs, a_cs ) ) { // requested operation: B_c := tr( uplo( A_c ) ) * B_c // effective operation: B_c := tr( uplo( A_c ) ) * B_c } else // if ( bli_is_row_storage( a_rs, a_cs ) ) { // requested operation: B_c := tr( uplo( A_r ) ) * B_c // effective operation: B_c := tr( ~uplo( A_c ) )^T * B_c bli_swap_ints( lda, inca ); bli_toggle_uplo( uplo ); bli_toggle_trans( trans ); } } else // if ( bli_is_row_storage( b_rs, b_cs ) ) { if ( bli_is_col_storage( a_rs, a_cs ) ) { // requested operation: B_r := tr( uplo( A_c ) ) * B_r // effective operation: B_c := B_c * tr( uplo( A_c ) )^T bli_swap_ints( ldb, incb ); bli_swap_ints( m, n ); bli_toggle_side( side ); bli_toggle_trans( trans ); } else // if ( bli_is_row_storage( a_rs, a_cs ) ) { // requested operation: B_r := tr( uplo( A_r ) ) * B_r // effective operation: B_c := B_c * tr( ~uplo( A_c ) ) bli_swap_ints( ldb, incb ); bli_swap_ints( lda, inca ); bli_swap_ints( m, n ); bli_toggle_uplo( uplo ); bli_toggle_side( side ); } } bli_strsm_blas( side, uplo, trans, diag, m, n, alpha, a, lda, b, ldb ); // Free any temporary contiguous matrices, copying the result back to // the original matrix. bli_sfree_contigm( a_save, a_rs_save, a_cs_save, &a, &a_rs, &a_cs ); bli_sfree_saved_contigm( m_save, n_save, b_save, b_rs_save, b_cs_save, &b, &b_rs, &b_cs ); }
void bli_strsm_blas | ( | char | side, |
char | uplo, | ||
char | trans, | ||
char | diag, | ||
int | m, | ||
int | n, | ||
float * | alpha, | ||
float * | a, | ||
int | lda, | ||
float * | b, | ||
int | ldb | ||
) |
References bli_param_map_to_netlib_diag(), bli_param_map_to_netlib_side(), bli_param_map_to_netlib_trans(), bli_param_map_to_netlib_uplo(), cblas_strsm(), CblasColMajor, and F77_strsm().
Referenced by bli_strsm().
{ #ifdef BLIS_ENABLE_CBLAS_INTERFACES enum CBLAS_ORDER cblas_order = CblasColMajor; enum CBLAS_SIDE cblas_side; enum CBLAS_UPLO cblas_uplo; enum CBLAS_TRANSPOSE cblas_trans; enum CBLAS_DIAG cblas_diag; bli_param_map_to_netlib_side( side, &cblas_side ); bli_param_map_to_netlib_uplo( uplo, &cblas_uplo ); bli_param_map_to_netlib_trans( trans, &cblas_trans ); bli_param_map_to_netlib_diag( diag, &cblas_diag ); cblas_strsm( cblas_order, cblas_side, cblas_uplo, cblas_trans, cblas_diag, m, n, *alpha, a, lda, b, ldb ); #else char blas_side; char blas_uplo; char blas_trans; char blas_diag; bli_param_map_to_netlib_side( side, &blas_side ); bli_param_map_to_netlib_uplo( uplo, &blas_uplo ); bli_param_map_to_netlib_trans( trans, &blas_trans ); bli_param_map_to_netlib_diag( diag, &blas_diag ); F77_strsm( &blas_side, &blas_uplo, &blas_trans, &blas_diag, &m, &n, alpha, a, &lda, b, &ldb ); #endif }
void bli_ztrsm | ( | char | side, |
char | uplo, | ||
char | trans, | ||
char | diag, | ||
int | m, | ||
int | n, | ||
dcomplex * | alpha, | ||
dcomplex * | a, | ||
int | a_rs, | ||
int | a_cs, | ||
dcomplex * | b, | ||
int | b_rs, | ||
int | b_cs | ||
) |
References bli_is_col_storage(), bli_is_conjnotrans(), bli_is_left(), bli_set_dim_with_side(), bli_zallocm(), bli_zconjmr(), bli_zcopymrt(), bli_zcreate_contigm(), bli_zcreate_contigmr(), bli_zero_dim2(), bli_zfree(), bli_zfree_contigm(), bli_zfree_saved_contigm(), and bli_ztrsm_blas().
Referenced by bli_ztrsmsx(), FLA_LU_nopiv_opz_var1(), FLA_LU_nopiv_opz_var2(), FLA_LU_nopiv_opz_var3(), FLA_LU_piv_opz_var3(), and FLA_Trsm_external().
{ int m_save = m; int n_save = n; dcomplex* a_save = a; dcomplex* b_save = b; int a_rs_save = a_rs; int a_cs_save = a_cs; int b_rs_save = b_rs; int b_cs_save = b_cs; dcomplex* a_conj; int dim_a; int lda, inca; int ldb, incb; int lda_conj, inca_conj; int a_was_copied; // Return early if possible. if ( bli_zero_dim2( m, n ) ) return; // If necessary, allocate, initialize, and use a temporary contiguous // copy of each matrix rather than the original matrices. bli_set_dim_with_side( side, m, n, &dim_a ); bli_zcreate_contigmr( uplo, dim_a, dim_a, a_save, a_rs_save, a_cs_save, &a, &a_rs, &a_cs ); bli_zcreate_contigm( m, n, b_save, b_rs_save, b_cs_save, &b, &b_rs, &b_cs ); // Figure out whether A was copied to contiguous memory. This is used to // prevent redundant copying. a_was_copied = ( a != a_save ); // Initialize with values assuming column-major storage. lda = a_cs; inca = a_rs; ldb = b_cs; incb = b_rs; // Adjust the parameters based on the storage of each matrix. if ( bli_is_col_storage( b_rs, b_cs ) ) { if ( bli_is_col_storage( a_rs, a_cs ) ) { // requested operation: B_c := tr( uplo( A_c ) ) * B_c // effective operation: B_c := tr( uplo( A_c ) ) * B_c } else // if ( bli_is_row_storage( a_rs, a_cs ) ) { // requested operation: B_c := tr( uplo( A_r ) ) * B_c // effective operation: B_c := tr( ~uplo( A_c ) )^T * B_c bli_swap_ints( lda, inca ); bli_toggle_uplo( uplo ); bli_toggle_trans( trans ); } } else // if ( bli_is_row_storage( b_rs, b_cs ) ) { if ( bli_is_col_storage( a_rs, a_cs ) ) { // requested operation: B_r := tr( uplo( A_c ) ) * B_r // effective operation: B_c := B_c * tr( uplo( A_c ) )^T bli_swap_ints( ldb, incb ); bli_swap_ints( m, n ); bli_toggle_side( side ); bli_toggle_trans( trans ); } else // if ( bli_is_row_storage( a_rs, a_cs ) ) { // requested operation: B_r := tr( uplo( A_r ) ) * B_r // effective operation: B_c := B_c * tr( ~uplo( A_c ) ) bli_swap_ints( ldb, incb ); bli_swap_ints( lda, inca ); bli_swap_ints( m, n ); bli_toggle_side( side ); bli_toggle_uplo( uplo ); } } // Initialize with values assuming that trans is not conjnotrans. a_conj = a; lda_conj = lda; inca_conj = inca; // We want to handle the conjnotrans case. The easiest way to do so is // by making a conjugated copy of A. if ( bli_is_conjnotrans( trans ) && !a_was_copied ) { int dim_a; if ( bli_is_left( side ) ) dim_a = m; else dim_a = n; a_conj = bli_zallocm( dim_a, dim_a ); lda_conj = dim_a; inca_conj = 1; bli_zcopymrt( uplo, BLIS_CONJ_NO_TRANSPOSE, dim_a, dim_a, a, inca, lda, a_conj, inca_conj, lda_conj ); } else if ( bli_is_conjnotrans( trans ) && a_was_copied ) { int dim_a; if ( bli_is_left( side ) ) dim_a = m; else dim_a = n; bli_zconjmr( uplo, dim_a, dim_a, a_conj, inca_conj, lda_conj ); } bli_ztrsm_blas( side, uplo, trans, diag, m, n, alpha, a_conj, lda_conj, b, ldb ); if ( bli_is_conjnotrans( trans ) && !a_was_copied ) bli_zfree( a_conj ); // Free any temporary contiguous matrices, copying the result back to // the original matrix. bli_zfree_contigm( a_save, a_rs_save, a_cs_save, &a, &a_rs, &a_cs ); bli_zfree_saved_contigm( m_save, n_save, b_save, b_rs_save, b_cs_save, &b, &b_rs, &b_cs ); }
void bli_ztrsm_blas | ( | char | side, |
char | uplo, | ||
char | trans, | ||
char | diag, | ||
int | m, | ||
int | n, | ||
dcomplex * | alpha, | ||
dcomplex * | a, | ||
int | lda, | ||
dcomplex * | b, | ||
int | ldb | ||
) |
References bli_param_map_to_netlib_diag(), bli_param_map_to_netlib_side(), bli_param_map_to_netlib_trans(), bli_param_map_to_netlib_uplo(), cblas_ztrsm(), CblasColMajor, and F77_ztrsm().
Referenced by bli_ztrsm().
{ #ifdef BLIS_ENABLE_CBLAS_INTERFACES enum CBLAS_ORDER cblas_order = CblasColMajor; enum CBLAS_SIDE cblas_side; enum CBLAS_UPLO cblas_uplo; enum CBLAS_TRANSPOSE cblas_trans; enum CBLAS_DIAG cblas_diag; bli_param_map_to_netlib_side( side, &cblas_side ); bli_param_map_to_netlib_uplo( uplo, &cblas_uplo ); bli_param_map_to_netlib_trans( trans, &cblas_trans ); bli_param_map_to_netlib_diag( diag, &cblas_diag ); cblas_ztrsm( cblas_order, cblas_side, cblas_uplo, cblas_trans, cblas_diag, m, n, alpha, a, lda, b, ldb ); #else char blas_side; char blas_uplo; char blas_trans; char blas_diag; bli_param_map_to_netlib_side( side, &blas_side ); bli_param_map_to_netlib_uplo( uplo, &blas_uplo ); bli_param_map_to_netlib_trans( trans, &blas_trans ); bli_param_map_to_netlib_diag( diag, &blas_diag ); F77_ztrsm( &blas_side, &blas_uplo, &blas_trans, &blas_diag, &m, &n, alpha, a, &lda, b, &ldb ); #endif }