Mentions légales du service

Skip to content
Snippets Groups Projects
Commit 2b7cc510 authored by BOUCHERIE Raphael's avatar BOUCHERIE Raphael
Browse files

added the auxiliary for hqr and systolic

parent 6bb968b7
No related branches found
No related tags found
1 merge request!47Integration of hierarchicah householder reduction trees
...@@ -185,8 +185,8 @@ int main (int argc, char **argv) ...@@ -185,8 +185,8 @@ int main (int argc, char **argv)
else*/ else*/
MORSE_Init( ncores, ngpus); MORSE_Init( ncores, ngpus);
MORSE_Disable(MORSE_AUTOTUNING); MORSE_Disable(MORSE_AUTOTUNING);
MORSE_Set(MORSE_TILE_SIZE, 320 ); MORSE_Set(MORSE_TILE_SIZE, 20 );
MORSE_Set(MORSE_INNER_BLOCK_SIZE, 48 ); MORSE_Set(MORSE_INNER_BLOCK_SIZE, 7 );
argc -= 4; argc -= 4;
argv += 4; argv += 4;
...@@ -251,6 +251,12 @@ int main (int argc, char **argv) ...@@ -251,6 +251,12 @@ int main (int argc, char **argv)
else if ( strcmp(func, "GELS_PARAM") == 0 ) { else if ( strcmp(func, "GELS_PARAM") == 0 ) {
info += testing_zgels_param( argc, argv ); info += testing_zgels_param( argc, argv );
} }
else if ( strcmp(func, "GELS_HQR") == 0 ) {
info += testing_zgels_hqr( argc, argv );
}
else if ( strcmp(func, "GELS_SYSTOLIC") == 0 ) {
info += testing_zgels_systolic( argc, argv );
}
/* else if ( strcmp(func, "GESV") == 0 ) { */ /* else if ( strcmp(func, "GESV") == 0 ) { */
/* info += testing_zgesv( argc, argv ); */ /* info += testing_zgesv( argc, argv ); */
/* } */ /* } */
......
...@@ -93,6 +93,8 @@ int testing_zgeadd(int argc, char **argv); ...@@ -93,6 +93,8 @@ int testing_zgeadd(int argc, char **argv);
int testing_zposv(int argc, char **argv); int testing_zposv(int argc, char **argv);
int testing_zgels(int argc, char **argv); int testing_zgels(int argc, char **argv);
int testing_zgels_param(int argc, char **argv); int testing_zgels_param(int argc, char **argv);
int testing_zgels_hqr(int argc, char **argv);
int testing_zgels_systolic(int argc, char **argv);
int testing_zgesv(int argc, char **argv); int testing_zgesv(int argc, char **argv);
int testing_zgesv_incpiv(int argc, char **argv); int testing_zgesv_incpiv(int argc, char **argv);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment