libflame
revision_anchor
|
Functions | |
void | bli_sfree_saved_contigmr (uplo_t uplo, int m, int n, float *a_save, int a_rs_save, int a_cs_save, float **a, int *a_rs, int *a_cs) |
void | bli_dfree_saved_contigmr (uplo_t uplo, int m, int n, double *a_save, int a_rs_save, int a_cs_save, double **a, int *a_rs, int *a_cs) |
void | bli_cfree_saved_contigmr (uplo_t uplo, int m, int n, scomplex *a_save, int a_rs_save, int a_cs_save, scomplex **a, int *a_rs, int *a_cs) |
void | bli_zfree_saved_contigmr (uplo_t uplo, int m, int n, dcomplex *a_save, int a_rs_save, int a_cs_save, dcomplex **a, int *a_rs, int *a_cs) |
void bli_cfree_saved_contigmr | ( | uplo_t | uplo, |
int | m, | ||
int | n, | ||
scomplex * | a_save, | ||
int | a_rs_save, | ||
int | a_cs_save, | ||
scomplex ** | a, | ||
int * | a_rs, | ||
int * | a_cs | ||
) |
References bli_ccopymr(), bli_cfree(), and bli_is_gen_storage().
Referenced by bli_cher2k(), bli_cherk(), bli_csyr2k(), and bli_csyrk().
{ if ( bli_is_gen_storage( a_rs_save, a_cs_save ) ) { // Copy the contents of the temporary matrix back to the original. bli_ccopymr( uplo, m, n, *a, *a_rs, *a_cs, a_save, a_rs_save, a_cs_save ); // Free the temporary contiguous storage for the matrix. bli_cfree( *a ); // Restore the original matrix address. *a = a_save; // Restore the original row and column strides. *a_rs = a_rs_save; *a_cs = a_cs_save; } }
void bli_dfree_saved_contigmr | ( | uplo_t | uplo, |
int | m, | ||
int | n, | ||
double * | a_save, | ||
int | a_rs_save, | ||
int | a_cs_save, | ||
double ** | a, | ||
int * | a_rs, | ||
int * | a_cs | ||
) |
References bli_dcopymr(), bli_dfree(), and bli_is_gen_storage().
Referenced by bli_dsyr2k(), and bli_dsyrk().
{ if ( bli_is_gen_storage( a_rs_save, a_cs_save ) ) { // Copy the contents of the temporary matrix back to the original. bli_dcopymr( uplo, m, n, *a, *a_rs, *a_cs, a_save, a_rs_save, a_cs_save ); // Free the temporary contiguous storage for the matrix. bli_dfree( *a ); // Restore the original matrix address. *a = a_save; // Restore the original row and column strides. *a_rs = a_rs_save; *a_cs = a_cs_save; } }
void bli_sfree_saved_contigmr | ( | uplo_t | uplo, |
int | m, | ||
int | n, | ||
float * | a_save, | ||
int | a_rs_save, | ||
int | a_cs_save, | ||
float ** | a, | ||
int * | a_rs, | ||
int * | a_cs | ||
) |
References bli_is_gen_storage(), bli_scopymr(), and bli_sfree().
Referenced by bli_ssyr2k(), and bli_ssyrk().
{ if ( bli_is_gen_storage( a_rs_save, a_cs_save ) ) { // Copy the contents of the temporary matrix back to the original. bli_scopymr( uplo, m, n, *a, *a_rs, *a_cs, a_save, a_rs_save, a_cs_save ); // Free the temporary contiguous storage for the matrix. bli_sfree( *a ); // Restore the original matrix address. *a = a_save; // Restore the original row and column strides. *a_rs = a_rs_save; *a_cs = a_cs_save; } }
void bli_zfree_saved_contigmr | ( | uplo_t | uplo, |
int | m, | ||
int | n, | ||
dcomplex * | a_save, | ||
int | a_rs_save, | ||
int | a_cs_save, | ||
dcomplex ** | a, | ||
int * | a_rs, | ||
int * | a_cs | ||
) |
References bli_is_gen_storage(), bli_zcopymr(), and bli_zfree().
Referenced by bli_zher2k(), bli_zherk(), bli_zsyr2k(), and bli_zsyrk().
{ if ( bli_is_gen_storage( a_rs_save, a_cs_save ) ) { // Copy the contents of the temporary matrix back to the original. bli_zcopymr( uplo, m, n, *a, *a_rs, *a_cs, a_save, a_rs_save, a_cs_save ); // Free the temporary contiguous storage for the matrix. bli_zfree( *a ); // Restore the original matrix address. *a = a_save; // Restore the original row and column strides. *a_rs = a_rs_save; *a_cs = a_cs_save; } }