Commit f7f2eda1 authored by PRUVOST Florent's avatar PRUVOST Florent

change MORSE to CHAMELEON for some printf

parent c8ca7735
......@@ -228,7 +228,7 @@ static void print_header(char *prog_name, int * iparam) {
#endif
printf( "#\n"
"# MORSE %d.%d.%d, %s\n"
"# CHAMELEON %d.%d.%d, %s\n"
"# Nb threads: %d\n"
"# Nb GPUs: %d\n"
"# NB: %d\n"
......
......@@ -112,7 +112,7 @@ static void print_header(char *prog_name, int * iparam) {
#endif
printf( "#\n"
"# MORSE %d.%d.%d, %s\n"
"# CHAMELEON %d.%d.%d, %s\n"
"# Nb threads: %d\n"
"# N: %d\n"
"# IB: %d\n"
......
......@@ -100,7 +100,7 @@ static void print_header(char *prog_name, int * iparam) {
#endif
printf( "#\n"
"# MORSE %d.%d.%d, %s\n"
"# CHAMELEON %d.%d.%d, %s\n"
"# Nb threads: %d\n"
"# Nb gpus: %d\n"
"# N: %d\n"
......
......@@ -100,7 +100,7 @@ static void print_header(char *prog_name, int * iparam) {
#endif
printf( "#\n"
"# MORSE %d.%d.%d, %s\n"
"# CHAMELEON %d.%d.%d, %s\n"
"# Nb threads: %d\n"
"# Nb gpus: %d\n"
"# N: %d\n"
......
......@@ -100,7 +100,7 @@ static void print_header(char *prog_name, int * iparam) {
#endif
printf( "#\n"
"# MORSE %d.%d.%d, %s\n"
"# CHAMELEON %d.%d.%d, %s\n"
"# Nb threads: %d\n"
"# Nb gpus: %d\n"
"# N: %d\n"
......
......@@ -100,7 +100,7 @@ static void print_header(char *prog_name, int * iparam) {
#endif
printf( "#\n"
"# MORSE %d.%d.%d, %s\n"
"# CHAMELEON %d.%d.%d, %s\n"
"# Nb threads: %d\n"
"# Nb gpus: %d\n"
"# N: %d\n"
......
......@@ -115,7 +115,7 @@ static void print_header(char *prog_name, int * iparam) {
#endif
printf( "#\n"
"# MORSE %d.%d.%d, %s\n"
"# CHAMELEON %d.%d.%d, %s\n"
"# Nb threads: %d\n"
"# Nb gpus: %d\n"
"# N: %d\n"
......
......@@ -127,7 +127,7 @@ static void print_header(char *prog_name, int * iparam) {
#endif
printf( "#\n"
"# MORSE %d.%d.%d, %s\n"
"# CHAMELEON %d.%d.%d, %s\n"
"# Nb threads: %d\n"
"# Nb gpus: %d\n"
"# Nb mpi: %d\n"
......
......@@ -306,7 +306,7 @@ int testing_zgels(int argc, char **argv)
MORSE_zunglq(M, N, K, A2, LDA, T, Q, LDA);
printf("\n");
printf("------ TESTS FOR MORSE ZGELS ROUTINE ------- \n");
printf("------ TESTS FOR CHAMELEON ZGELS ROUTINE ------- \n");
printf(" Size of the Matrix %d by %d\n", M, N);
printf("\n");
printf(" The matrix A is randomly generated for each test.\n");
......@@ -353,7 +353,7 @@ int testing_zgels(int argc, char **argv)
if (M >= N) {
printf("\n");
printf("------ TESTS FOR MORSE ZGEQRF + ZGEQRS ROUTINE ------- \n");
printf("------ TESTS FOR CHAMELEON ZGEQRF + ZGEQRS ROUTINE ------- \n");
printf(" Size of the Matrix %d by %d\n", M, N);
printf("\n");
printf(" The matrix A is randomly generated for each test.\n");
......@@ -384,7 +384,7 @@ int testing_zgels(int argc, char **argv)
}
else {
printf("\n");
printf("------ TESTS FOR MORSE ZGELQF + ZGELQS ROUTINE ------- \n");
printf("------ TESTS FOR CHAMELEON ZGELQF + ZGELQS ROUTINE ------- \n");
printf(" Size of the Matrix %d by %d\n", M, N);
printf("\n");
printf(" The matrix A is randomly generated for each test.\n");
......@@ -438,7 +438,7 @@ int testing_zgels(int argc, char **argv)
if (M >= N) {
printf("\n");
printf("------ TESTS FOR MORSE ZGEQRF + ZUNMQR + ZTRSM ROUTINE ------- \n");
printf("------ TESTS FOR CHAMELEON ZGEQRF + ZUNMQR + ZTRSM ROUTINE ------- \n");
printf(" Size of the Matrix %d by %d\n", M, N);
printf("\n");
printf(" The matrix A is randomly generated for each test.\n");
......@@ -453,7 +453,7 @@ int testing_zgels(int argc, char **argv)
}
else {
printf("\n");
printf("------ TESTS FOR MORSE ZGELQF + ZUNMLQ + ZTRSM ROUTINE ------- \n");
printf("------ TESTS FOR CHAMELEON ZGELQF + ZUNMLQ + ZTRSM ROUTINE ------- \n");
printf(" Size of the Matrix %d by %d\n", M, N);
printf("\n");
printf(" The matrix A is randomly generated for each test.\n");
......
......@@ -97,7 +97,7 @@ int testing_zgemm(int argc, char **argv)
if (MORSE_My_Mpi_Rank() == 0){
printf("\n");
printf("------ TESTS FOR MORSE ZGEMM ROUTINE ------- \n");
printf("------ TESTS FOR CHAMELEON ZGEMM ROUTINE ------- \n");
printf(" Size of the Matrix %d by %d\n", M, N);
printf("\n");
printf(" The matrix A is randomly generated for each test.\n");
......
......@@ -224,7 +224,7 @@ int testing_zgesv_incpiv(int argc, char **argv)
MORSE_zgesv_incpiv(N, NRHS, A2, LDA, L, IPIV, B2, LDB);
printf("\n");
printf("------ TESTS FOR MORSE INCPIV ZGESV ROUTINE ------- \n");
printf("------ TESTS FOR CHAMELEON INCPIV ZGESV ROUTINE ------- \n");
printf(" Size of the Matrix %d by %d\n", N, N);
printf("\n");
printf(" The matrix A is randomly generated for each test.\n");
......@@ -267,7 +267,7 @@ int testing_zgesv_incpiv(int argc, char **argv)
MORSE_zgetrs_incpiv(MorseNoTrans, N, NRHS, A2, LDA, L, IPIV, B2, LDB);
printf("\n");
printf("------ TESTS FOR MORSE ZGETRF + ZGETRS ROUTINE ------- \n");
printf("------ TESTS FOR CHAMELEON ZGETRF + ZGETRS ROUTINE ------- \n");
printf(" Size of the Matrix %d by %d\n", N, N);
printf("\n");
printf(" The matrix A is randomly generated for each test.\n");
......@@ -312,7 +312,7 @@ int testing_zgesv_incpiv(int argc, char **argv)
N, NRHS, 1.0, A2, LDA, B2, LDB);
printf("\n");
printf("------ TESTS FOR MORSE INCPIV ZGETRF + ZTRSMPL + ZTRSM ROUTINE ------- \n");
printf("------ TESTS FOR CHAMELEON INCPIV ZGETRF + ZTRSMPL + ZTRSM ROUTINE ------- \n");
printf(" Size of the Matrix %d by %d\n", N, N);
printf("\n");
printf(" The matrix A is randomly generated for each test.\n");
......
......@@ -89,7 +89,7 @@ int testing_zhemm(int argc, char **argv)
eps = LAPACKE_dlamch_work('e');
printf("\n");
printf("------ TESTS FOR MORSE ZHEMM ROUTINE ------- \n");
printf("------ TESTS FOR CHAMELEON ZHEMM ROUTINE ------- \n");
printf(" Size of the Matrix %d by %d\n", M, N);
printf("\n");
printf(" The matrix A is randomly generated for each test.\n");
......
......@@ -90,7 +90,7 @@ int testing_zher2k(int argc, char **argv)
eps = LAPACKE_dlamch_work('e');
printf("\n");
printf("------ TESTS FOR MORSE ZHER2K ROUTINE ------- \n");
printf("------ TESTS FOR CHAMELEON ZHER2K ROUTINE ------- \n");
printf(" Size of the Matrix C %d by %d\n", N, K);
printf("\n");
printf(" The matrix A is randomly generated for each test.\n");
......
......@@ -85,7 +85,7 @@ int testing_zherk(int argc, char **argv)
eps = LAPACKE_dlamch_work('e');
printf("\n");
printf("------ TESTS FOR MORSE ZHERK ROUTINE ------- \n");
printf("------ TESTS FOR CHAMELEON ZHERK ROUTINE ------- \n");
printf(" Size of the Matrix A %d by %d\n", N, K);
printf("\n");
printf(" The matrix A is randomly generated for each test.\n");
......
......@@ -65,7 +65,7 @@ int testing_zlange(int argc, char **argv)
eps = LAPACKE_dlamch_work('e');
printf("\n");
printf("------ TESTS FOR MORSE ZLANGE ROUTINE ------- \n");
printf("------ TESTS FOR CHAMELEON ZLANGE ROUTINE ------- \n");
printf(" Size of the Matrix %d by %d\n", M, N);
printf("\n");
printf(" The matrix A is randomly generated for each test.\n");
......@@ -84,7 +84,7 @@ int testing_zlange(int argc, char **argv)
for(n=0; n<4; n++) {
normmorse = MORSE_zlange(norm[n], M, N, A, LDA);
normlapack = LAPACKE_zlange_work(LAPACK_COL_MAJOR, lapack_const(norm[n]), M, N, A, LDA, work);
printf("%d: Lapack %e, Morse %e\n", MORSE_My_Mpi_Rank(), normlapack, normmorse);
printf("LAPACK %e, CHAMELEON %e\n", normlapack, normmorse);
result = fabs(normmorse - normlapack) / (normlapack * eps);
switch(norm[n]) {
......@@ -125,7 +125,7 @@ int testing_zlange(int argc, char **argv)
normmorse = MORSE_zlantr(norm[n], uplo[u], diag[d], M, N, A, LDA);
normlapack = LAPACKE_zlantr_work(LAPACK_COL_MAJOR, lapack_const(norm[n]), lapack_const(uplo[u]),
lapack_const(diag[d]), M, N, A, LDA, work);
printf("Lapack %e, Morse %e\n", normlapack, normmorse);
printf("LAPACK %e, CHAMELEON %e\n", normlapack, normmorse);
result = fabs(normmorse - normlapack) / (normlapack * eps);
switch(norm[n]) {
......@@ -166,7 +166,7 @@ int testing_zlange(int argc, char **argv)
for(u=0; u<2; u++) {
normmorse = MORSE_zlansy(norm[n], uplo[u], min(M,N), A, LDA);
normlapack = LAPACKE_zlansy_work(LAPACK_COL_MAJOR, lapack_const(norm[n]), lapack_const(uplo[u]), min(M,N), A, LDA, work);
printf("Lapack %e, Morse %e\n", normlapack, normmorse);
printf("LAPACK %e, CHAMELEON %e\n", normlapack, normmorse);
result = fabs(normmorse - normlapack) / (normlapack * eps);
switch(norm[n]) {
......@@ -211,7 +211,7 @@ int testing_zlange(int argc, char **argv)
for(u=0; u<2; u++) {
normmorse = MORSE_zlanhe(norm[n], uplo[u], min(M,N), A, LDA);
normlapack = LAPACKE_zlanhe_work(LAPACK_COL_MAJOR, lapack_const(norm[n]), lapack_const(uplo[u]), min(M,N), A, LDA, work);
printf("Lapack %e, Morse %e\n", normlapack, normmorse);
printf("LAPACK %e, CHAMELEON %e\n", normlapack, normmorse);
result = fabs(normmorse - normlapack) / (normlapack * eps);
switch(norm[n]) {
......
......@@ -143,7 +143,7 @@ int testing_zpemv(int argc, char **argv)
MORSE_zplrnt(n, 1, Y0, n, 573 );
printf("\n");
printf("------ TESTS FOR MORSE ZPEMV ROUTINE ------- \n");
printf("------ TESTS FOR CHAMELEON ZPEMV ROUTINE ------- \n");
printf("\n");
printf(" The matrix A is randomly generated for each test.\n");
printf(" The relative machine precision (eps) is %e \n",eps);
......
......@@ -219,7 +219,7 @@ int testing_zposv(int argc, char **argv)
MORSE_zlacpy( MorseUpperLower, N, NRHS, B1, LDB, B2, LDB );
printf("\n");
printf("------ TESTS FOR MORSE ZPOSV ROUTINE ------- \n");
printf("------ TESTS FOR CHAMELEON ZPOSV ROUTINE ------- \n");
printf(" Size of the Matrix %d by %d\n", N, N);
printf("\n");
printf(" The matrix A is randomly generated for each test.\n");
......@@ -262,7 +262,7 @@ int testing_zposv(int argc, char **argv)
MORSE_zpotrs(uplo, N, NRHS, A2, LDA, B2, LDB);
printf("\n");
printf("------ TESTS FOR MORSE ZPOTRF + ZPOTRS ROUTINE ------- \n");
printf("------ TESTS FOR CHAMELEON ZPOTRF + ZPOTRS ROUTINE ------- \n");
printf(" Size of the Matrix %d by %d\n", N, N);
printf("\n");
printf(" The matrix A is randomly generated for each test.\n");
......@@ -305,7 +305,7 @@ int testing_zposv(int argc, char **argv)
N, NRHS, 1.0, A2, LDA, B2, LDB);
printf("\n");
printf("------ TESTS FOR MORSE ZPOTRF + ZTRSM + ZTRSM ROUTINE ------- \n");
printf("------ TESTS FOR CHAMELEON ZPOTRF + ZTRSM + ZTRSM ROUTINE ------- \n");
printf(" Size of the Matrix %d by %d\n", N, N);
printf("\n");
printf(" The matrix A is randomly generated for each test.\n");
......
......@@ -217,7 +217,7 @@ int testing_zpotri(int argc, char **argv)
MORSE_zlacpy( MorseUpperLower, N, N, A1, LDA, A2, LDA );
printf("\n");
printf("------ TESTS FOR MORSE ZPOTRI ROUTINE ------- \n");
printf("------ TESTS FOR CHAMELEON ZPOTRI ROUTINE ------- \n");
printf(" Size of the Matrix %d by %d\n", N, N);
printf("\n");
printf(" The matrix A is randomly generated for each test.\n");
......
......@@ -89,7 +89,7 @@ int testing_zsymm(int argc, char **argv)
eps = LAPACKE_dlamch_work('e');
printf("\n");
printf("------ TESTS FOR MORSE ZSYMM ROUTINE ------- \n");
printf("------ TESTS FOR CHAMELEON ZSYMM ROUTINE ------- \n");
printf(" Size of the Matrix %d by %d\n", M, N);
printf("\n");
printf(" The matrix A is randomly generated for each test.\n");
......
......@@ -90,7 +90,7 @@ int testing_zsyr2k(int argc, char **argv)
eps = LAPACKE_dlamch_work('e');
printf("\n");
printf("------ TESTS FOR MORSE ZSYR2K ROUTINE ------- \n");
printf("------ TESTS FOR CHAMELEON ZSYR2K ROUTINE ------- \n");
printf(" Size of the Matrix C %d by %d\n", N, K);
printf("\n");
printf(" The matrix A is randomly generated for each test.\n");
......
......@@ -85,7 +85,7 @@ int testing_zsyrk(int argc, char **argv)
eps = LAPACKE_dlamch_work('e');
printf("\n");
printf("------ TESTS FOR MORSE ZSYRK ROUTINE ------- \n");
printf("------ TESTS FOR CHAMELEON ZSYRK ROUTINE ------- \n");
printf(" Size of the Matrix A %d by %d\n", N, K);
printf("\n");
printf(" The matrix A is randomly generated for each test.\n");
......
......@@ -85,7 +85,7 @@ int testing_ztrmm(int argc, char **argv)
eps = LAPACKE_dlamch_work('e');
printf("\n");
printf("------ TESTS FOR MORSE ZTRMM ROUTINE ------- \n");
printf("------ TESTS FOR CHAMELEON ZTRMM ROUTINE ------- \n");
printf(" Size of the Matrix B : %d by %d\n", M, N);
printf("\n");
printf(" The matrix A is randomly generated for each test.\n");
......
......@@ -85,7 +85,7 @@ int testing_ztrsm(int argc, char **argv)
eps = LAPACKE_dlamch_work('e');
printf("\n");
printf("------ TESTS FOR MORSE ZTRSM ROUTINE ------- \n");
printf("------ TESTS FOR CHAMELEON ZTRSM ROUTINE ------- \n");
printf(" Size of the Matrix B : %d by %d\n", M, N);
printf("\n");
printf(" The matrix A is randomly generated for each test.\n");
......
......@@ -397,7 +397,7 @@ print_header(char *prog_name, int * iparam) {
#endif
printf( "#\n"
"# MORSE %d.%d.%d, %s\n"
"# CHAMELEON %d.%d.%d, %s\n"
"# Nb threads: %d\n"
"# Nb GPUs: %d\n"
"# NB: %d\n"
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment