diff --git a/cmake_modules/morse_cmake b/cmake_modules/morse_cmake index b102625ef8626da53d4461e84050dc4cb5e62afb..a5142c9b74e6bfa007142aff48c3c70f99805995 160000 --- a/cmake_modules/morse_cmake +++ b/cmake_modules/morse_cmake @@ -1 +1 @@ -Subproject commit b102625ef8626da53d4461e84050dc4cb5e62afb +Subproject commit a5142c9b74e6bfa007142aff48c3c70f99805995 diff --git a/compute/zgeadd.c b/compute/zgeadd.c index 5478a00aab4624a466d1df0536ed61a8fea76604..eb53b30b6b542de7b830ceb0827989c083639b08 100644 --- a/compute/zgeadd.c +++ b/compute/zgeadd.c @@ -111,7 +111,7 @@ int MORSE_zgeadd( MORSE_enum trans, int M, int N, } /* Check input arguments */ - if ((trans != MorseNoTrans) && (trans != MorseTrans) && (trans != MorseConjTrans)) { + if ((trans < MorseNoTrans) || (trans > MorseConjTrans)) { morse_error("MORSE_zgeadd", "illegal value of trans"); return -1; } @@ -324,7 +324,7 @@ int MORSE_zgeadd_Tile_Async( MORSE_enum trans, return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE); } /* Check input arguments */ - if ((trans != MorseNoTrans) && (trans != MorseTrans) && (trans != MorseConjTrans)) { + if ((trans < MorseNoTrans) || (trans > MorseConjTrans)) { morse_error("MORSE_zgeadd_Tile_Async", "illegal value of trans"); return morse_request_fail(sequence, request, -1); } diff --git a/compute/zgemm.c b/compute/zgemm.c index 92101a69bb9e0f7ea48f6101e7332924e4837b1c..5578bcd0f19ebe982985d28fb28940facf81da76 100644 --- a/compute/zgemm.c +++ b/compute/zgemm.c @@ -152,11 +152,11 @@ int MORSE_zgemm( MORSE_enum transA, MORSE_enum transB, int M, int N, int K, } /* Check input arguments */ - if ((transA != MorseNoTrans) && (transA != MorseTrans) && (transA != MorseConjTrans)) { + if ((transA < MorseNoTrans) || (transA > MorseConjTrans)) { morse_error("MORSE_zgemm", "illegal value of transA"); return -1; } - if ((transB != MorseNoTrans) && (transB != MorseTrans) && (transB != MorseConjTrans)) { + if ((transB < MorseNoTrans) || (transB > MorseConjTrans)) { morse_error("MORSE_zgemm", "illegal value of transB"); return -2; } @@ -401,11 +401,11 @@ int MORSE_zgemm_Tile_Async( MORSE_enum transA, MORSE_enum transB, return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE); } /* Check input arguments */ - if ((transA != MorseNoTrans) && (transA != MorseTrans) && (transA != MorseConjTrans)) { + if ((transA < MorseNoTrans) || (transA > MorseConjTrans)) { morse_error("MORSE_zgemm_Tile_Async", "illegal value of transA"); return morse_request_fail(sequence, request, -1); } - if ((transB != MorseNoTrans) && (transB != MorseTrans) && (transB != MorseConjTrans)) { + if ((transB < MorseNoTrans) || (transB > MorseConjTrans)) { morse_error("MORSE_zgemm_Tile_Async", "illegal value of transB"); return morse_request_fail(sequence, request, -2); } diff --git a/compute/ztradd.c b/compute/ztradd.c index bd88723f3df62ac702ab43c91ee3899661725b9c..64e4b4aff742e369cde1f573e467a882f94c9ac2 100644 --- a/compute/ztradd.c +++ b/compute/ztradd.c @@ -121,7 +121,7 @@ int MORSE_ztradd( MORSE_enum uplo, MORSE_enum trans, int M, int N, morse_error("MORSE_ztradd", "illegal value of uplo"); return -1; } - if ((trans != MorseNoTrans) && (trans != MorseTrans) && (trans != MorseConjTrans)) { + if ((trans < MorseNoTrans) || (trans > MorseConjTrans)) { morse_error("MORSE_ztradd", "illegal value of trans"); return -2; } @@ -340,7 +340,7 @@ int MORSE_ztradd_Tile_Async( MORSE_enum uplo, MORSE_enum trans, return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE); } /* Check input arguments */ - if ((trans != MorseNoTrans) && (trans != MorseTrans) && (trans != MorseConjTrans)) { + if ((trans < MorseNoTrans) || (trans > MorseConjTrans)) { morse_error("MORSE_ztradd_Tile_Async", "illegal value of trans"); return morse_request_fail(sequence, request, -1); } diff --git a/compute/ztrmm.c b/compute/ztrmm.c index 3496308a72a917e781343b596c7836c4fe9a4d59..71dd3adc06be17917b03395a4ff924d2bee18145 100644 --- a/compute/ztrmm.c +++ b/compute/ztrmm.c @@ -371,7 +371,7 @@ int MORSE_ztrmm_Tile_Async( MORSE_enum side, MORSE_enum uplo, morse_error("MORSE_ztrmm_Tile", "illegal value of uplo"); return morse_request_fail(sequence, request, -2); } - if (transA != MorseConjTrans && transA != MorseNoTrans && transA != MorseTrans) { + if ((transA < MorseNoTrans) || (transA > MorseConjTrans)) { morse_error("MORSE_ztrmm_Tile", "illegal value of transA"); return morse_request_fail(sequence, request, -3); } diff --git a/compute/ztrsm.c b/compute/ztrsm.c index 053be9e3e2774c022818fbd7fdc6c5c783258285..c9bd77932249275cf057e3be427ef8b9975d98d3 100644 --- a/compute/ztrsm.c +++ b/compute/ztrsm.c @@ -136,7 +136,7 @@ int MORSE_ztrsm( MORSE_enum side, MORSE_enum uplo, morse_error("MORSE_ztrsm", "illegal value of uplo"); return -2; } - if (transA != MorseConjTrans && transA != MorseNoTrans && transA != MorseTrans ) { + if (((transA < MorseNoTrans) || (transA > MorseConjTrans)) ) { morse_error("MORSE_ztrsm", "illegal value of transA"); return -3; } @@ -369,7 +369,7 @@ int MORSE_ztrsm_Tile_Async( MORSE_enum side, MORSE_enum uplo, morse_error("MORSE_ztrsm_Tile", "illegal value of uplo"); return morse_request_fail(sequence, request, -2); } - if (transA != MorseConjTrans && transA != MorseNoTrans && transA != MorseTrans) { + if ((transA < MorseNoTrans) || (transA > MorseConjTrans)) { morse_error("MORSE_ztrsm_Tile", "illegal value of transA"); return morse_request_fail(sequence, request, -3); } diff --git a/coreblas/compute/core_zgeadd.c b/coreblas/compute/core_zgeadd.c index 259f4b61df3ec94dc9fdb43bf09c4dedbe45bf1c..aa7c965cea5b6faff1119e1b5638926c3a43703d 100644 --- a/coreblas/compute/core_zgeadd.c +++ b/coreblas/compute/core_zgeadd.c @@ -93,9 +93,7 @@ int CORE_zgeadd(MORSE_enum trans, int M, int N, { int i, j; - if ((trans != MorseNoTrans) && - (trans != MorseTrans) && - (trans != MorseConjTrans)) + if ((trans < MorseNoTrans) || (trans > MorseConjTrans)) { coreblas_error(1, "illegal value of trans"); return -1; diff --git a/coreblas/compute/core_zlatro.c b/coreblas/compute/core_zlatro.c index 85c630ed1e236715e87c411793acbf3782925e84..ea97320c376d8d4e7a03d818890cc1d2ec94dbd3 100644 --- a/coreblas/compute/core_zlatro.c +++ b/coreblas/compute/core_zlatro.c @@ -99,7 +99,7 @@ int CORE_zlatro(MORSE_enum uplo, MORSE_enum trans, coreblas_error(1, "Illegal value of uplo"); return -1; } - if ((trans != MorseConjTrans) && (trans != MorseNoTrans) && (trans != MorseTrans) ) { + if ((trans < MorseNoTrans) || (trans > MorseConjTrans)) { coreblas_error(2, "Illegal value of trans"); return -2; } diff --git a/coreblas/compute/core_zpemv.c b/coreblas/compute/core_zpemv.c index 5cd8a128b53ec37351738b9c70704044e0632b88..85ffd5a3b430917c6eb3818e8e0a866bed5a96f1 100644 --- a/coreblas/compute/core_zpemv.c +++ b/coreblas/compute/core_zpemv.c @@ -146,7 +146,7 @@ int CORE_zpemv(MORSE_enum trans, int storev, /* Check input arguments */ - if ((trans != MorseNoTrans) && (trans != MorseTrans) && (trans != MorseConjTrans)) { + if ((trans < MorseNoTrans) || (trans > MorseConjTrans)) { coreblas_error(1, "Illegal value of trans"); return -1; } diff --git a/coreblas/compute/core_ztradd.c b/coreblas/compute/core_ztradd.c index f14213b160c96d5b81fb48dd146a8e8ad382401c..ab5b9ea5999470167b4d750b78e0e55d9416927c 100644 --- a/coreblas/compute/core_ztradd.c +++ b/coreblas/compute/core_ztradd.c @@ -118,9 +118,7 @@ int CORE_ztradd(MORSE_enum uplo, MORSE_enum trans, int M, int N, return -1; } - if ((trans != MorseNoTrans) && - (trans != MorseTrans) && - (trans != MorseConjTrans)) + if ((trans < MorseNoTrans) || (trans > MorseConjTrans)) { coreblas_error(2, "illegal value of trans"); return -2; diff --git a/doc/CMakeLists.txt b/doc/CMakeLists.txt index 7204f50084f5652a5926741da54246841f2d834d..512d5e76f8e5c7dd0f89202f88f629a4832979b8 100644 --- a/doc/CMakeLists.txt +++ b/doc/CMakeLists.txt @@ -16,7 +16,7 @@ # Univ. of Tennessee, # King Abdullah Univesity of Science and Technology # Univ. of California Berkeley, -# Univ. of Colorado Denver. +# Univ. of Colorado Denver. # # @version 0.9.0 # @author Cedric Castagnede diff --git a/doc/doxygen/CMakeLists.txt b/doc/doxygen/CMakeLists.txt index f66dcdfcc1e6e729b7a6fb8e1008126da70e416c..0da86af368e14ca38bbaf5fb72585baeffc9f8ad 100644 --- a/doc/doxygen/CMakeLists.txt +++ b/doc/doxygen/CMakeLists.txt @@ -16,7 +16,7 @@ # Univ. of Tennessee, # King Abdullah Univesity of Science and Technology # Univ. of California Berkeley, -# Univ. of Colorado Denver. +# Univ. of Colorado Denver. # # @version 0.9.0 # @author Cedric Castagnede diff --git a/testing/testing_zgeadd.c b/testing/testing_zgeadd.c index cf65e1843e1ae2f9b52d263ee77ca34630cbb1e2..b4caefa8a4b5b19971389299cbe7c72f95dfd368 100644 --- a/testing/testing_zgeadd.c +++ b/testing/testing_zgeadd.c @@ -83,7 +83,10 @@ int testing_zgeadd(int argc, char **argv) MORSE_Complex64_t *Bfinal = (MORSE_Complex64_t *)malloc(LDBxN*sizeof(MORSE_Complex64_t)); /* Check if unable to allocate memory */ - if ((!A)||(!B)||(!Binit)||(!Bfinal)){ + if ( (!A) || (!B) || (!Binit) || (!Bfinal) ) + { + free(A); free(B); + free(Binit); free(Bfinal); printf("Out of Memory \n "); return -2; } diff --git a/testing/testing_zgels.c b/testing/testing_zgels.c index 1d2f248325593d6d08ced5e920f07db771bdaa3f..4b52193e7abe497f50fd8ca462975f5f21f0dea4 100644 --- a/testing/testing_zgels.c +++ b/testing/testing_zgels.c @@ -258,7 +258,11 @@ int testing_zgels(int argc, char **argv) MORSE_desc_t *T; /* Check if unable to allocate memory */ - if ((!A1)||(!A2)||(!B1)||(!B2)||(!Q)){ + if ( (!A1) || (!A2) || (!B1) || (!B2) || (!Q) ) + { + free(A1); free(A2); + free(B1); free(B2); + free(Q); printf("Out of Memory \n "); return -2; } diff --git a/testing/testing_zgels_hqr.c b/testing/testing_zgels_hqr.c index 4f216e0d60514b68803d0cd0533e12550f537a3d..d3f8fde83c298e0286e7d4bd2b23d48b9242b651 100644 --- a/testing/testing_zgels_hqr.c +++ b/testing/testing_zgels_hqr.c @@ -95,7 +95,11 @@ int testing_zgels_hqr(int argc, char **argv) MORSE_desc_t *TT = NULL; /* Check if unable to allocate memory */ - if ((!A1)||(!A2)||(!B1)||(!B2)||(!Q)){ + if ( (!A1) || (!A2) || (!B1) || (!B2) || (!Q) ) + { + free(A1); free(A2); + free(B1); free(B2); + free(Q); printf("Out of Memory \n "); return -2; } diff --git a/testing/testing_zgels_systolic.c b/testing/testing_zgels_systolic.c index 85c89caebaf143aebfef80bd086157567bb551e1..52e7e46d731923fb1d02f9f770583637e80ee4fd 100644 --- a/testing/testing_zgels_systolic.c +++ b/testing/testing_zgels_systolic.c @@ -89,7 +89,11 @@ int testing_zgels_systolic(int argc, char **argv) MORSE_desc_t *TT = NULL; /* Check if unable to allocate memory */ - if ((!A1)||(!A2)||(!B1)||(!B2)||(!Q)){ + if ( (!A1) || (!A2) || (!B1) || (!B2) || (!Q) ) + { + free(A1); free(A2); + free(B1); free(B2); + free(Q); printf("Out of Memory \n "); return -2; } diff --git a/testing/testing_zgemm.c b/testing/testing_zgemm.c index 562134b796265f72c41fc3ac17f400af9d169a7f..e10da200aa8b7c11714304c45a7da55d55db7a1b 100644 --- a/testing/testing_zgemm.c +++ b/testing/testing_zgemm.c @@ -88,7 +88,10 @@ int testing_zgemm(int argc, char **argv) MORSE_Complex64_t *Cfinal = (MORSE_Complex64_t *)malloc(LDCxN*sizeof(MORSE_Complex64_t)); /* Check if unable to allocate memory */ - if ((!A)||(!B)||(!Cinit)||(!Cfinal)){ + if ( (!A) || (!B) || (!Cinit) || (!Cfinal) ) + { + free(A); free(B); + free(Cinit); free(Cfinal); printf("Out of Memory \n "); return -2; } diff --git a/testing/testing_zgeqrf_qdwh.c b/testing/testing_zgeqrf_qdwh.c index cd03ec4337a5fa184e0e2f8308d53d3f587d0379..21bce4fa612d9c967060ff83f70ffbf6bd7dfc99 100644 --- a/testing/testing_zgeqrf_qdwh.c +++ b/testing/testing_zgeqrf_qdwh.c @@ -87,6 +87,8 @@ int testing_zgeqrf_qdwh(int argc, char **argv) /* Check if unable to allocate memory */ if ( (!A) || (!A1) || (!A2) || (!Q1) || (!Q2) ){ + free(A); free(A1); free(A2); + free(Q1); free(Q2); printf("Out of Memory \n "); return -2; } diff --git a/testing/testing_zgesv_incpiv.c b/testing/testing_zgesv_incpiv.c index c89a97e2d09e5791e4ef5ce35394703f7dfe8ded..0b063dbc81a81c11398895e032ed844321e99d0c 100644 --- a/testing/testing_zgesv_incpiv.c +++ b/testing/testing_zgesv_incpiv.c @@ -196,7 +196,10 @@ int testing_zgesv_incpiv(int argc, char **argv) int *IPIV; /* Check if unable to allocate memory */ - if ( (!A1) || (!A2)|| (!B1) || (!B2) ) { + if ( (!A1) || (!A2)|| (!B1) || (!B2) ) + { + free(A1); free(A2); + free(B1); free(B2); printf("Out of Memory \n "); return -2; } diff --git a/testing/testing_zgesvd.c b/testing/testing_zgesvd.c index e83248e941f949aa8022ee78ce7783c0d6d392b0..0bca121e37d4c91517399b405e9d9666cbb6a955 100644 --- a/testing/testing_zgesvd.c +++ b/testing/testing_zgesvd.c @@ -100,6 +100,8 @@ int testing_zgesvd(int argc, char **argv) /* Check if unable to allocate memory */ if ( (!A1) || (!S1) || (!S2) || (!work) ) { + free(A1); free(work); + free(S1); free(S2); printf("Out of Memory \n "); return -2; } diff --git a/testing/testing_zheevd.c b/testing/testing_zheevd.c index cdc66adf453e4f015040edca3b43578e5f558e2e..2466e5b79b5531acbf9aa97fd0619ffaf3fb7d5e 100644 --- a/testing/testing_zheevd.c +++ b/testing/testing_zheevd.c @@ -72,7 +72,11 @@ int testing_zheevd(int argc, char **argv) MORSE_desc_t *T; /* Check if unable to allocate memory */ - if ( (!A2) || (!W1) || (!W2) ){ + if ( (!A2) || (!W1) || (!W2) || !(work) ) + { + free(A2); + free(W1); free(W2); + free(work); printf("Out of Memory \n "); return -2; } diff --git a/testing/testing_zhemm.c b/testing/testing_zhemm.c index 53910f9e25ed84a15dda15b1d7f509fff4dc16b5..891b4314e1ff8a58464e07a47dc8815e7ad46d16 100644 --- a/testing/testing_zhemm.c +++ b/testing/testing_zhemm.c @@ -81,7 +81,10 @@ int testing_zhemm(int argc, char **argv) MORSE_Complex64_t *Cfinal = (MORSE_Complex64_t *)malloc(LDCxN*sizeof(MORSE_Complex64_t)); /* Check if unable to allocate memory */ - if ((!A)||(!B)||(!Cinit)||(!Cfinal)){ + if ( (!A) || (!B) || (!C) || (!Cinit) || (!Cfinal) ) + { + free(A); free(B); free(C); + free(Cinit); free(Cfinal); printf("Out of Memory \n "); return -2; } diff --git a/testing/testing_zher2k.c b/testing/testing_zher2k.c index 7276353b11f552be567d0d0332d490a1e0f3cfbe..d15366eb2cb92ec5cdcd6979bbc5af16ec2005e5 100644 --- a/testing/testing_zher2k.c +++ b/testing/testing_zher2k.c @@ -82,7 +82,9 @@ int testing_zher2k(int argc, char **argv) MORSE_Complex64_t *Cfinal = (MORSE_Complex64_t *)malloc(LDCxN*sizeof(MORSE_Complex64_t)); /* Check if unable to allocate memory */ - if ( (!A) || (!B) || (!Cinit) || (!Cfinal) ){ + if ( (!A) || (!B) || (!C) || (!Cinit) || (!Cfinal) ){ + free(A); free(B); free(C); + free(Cinit); free(Cfinal); printf("Out of Memory \n "); return -2; } diff --git a/testing/testing_zherk.c b/testing/testing_zherk.c index a218be22f157ccf81a2146d57a813a828e268df4..21a5824c05b9306dfc6d2812b230e5bf51116c42 100644 --- a/testing/testing_zherk.c +++ b/testing/testing_zherk.c @@ -77,7 +77,9 @@ int testing_zherk(int argc, char **argv) MORSE_Complex64_t *Cfinal = (MORSE_Complex64_t *)malloc(LDCxN*sizeof(MORSE_Complex64_t)); /* Check if unable to allocate memory */ - if ( (!A) || (!Cinit) || (!Cfinal) ){ + if ( (!A) || (!C) || (!Cinit) || (!Cfinal) ){ + free(A); free(C); + free(Cinit); free(Cfinal); printf("Out of Memory \n "); return -2; } diff --git a/testing/testing_zpemv.c b/testing/testing_zpemv.c index 401eea1ee15d178baa3d2a7cd9d5e544c7892915..ef70a9236d23d7b7eb9495fd41051640a48d514a 100644 --- a/testing/testing_zpemv.c +++ b/testing/testing_zpemv.c @@ -134,9 +134,12 @@ int testing_zpemv(int argc, char **argv) LAPACKE_zlarnv_work(1, ISEED, 1, &beta0 ); /* Check if unable to allocate memory */ - if ( (!A) || (!X) || (!Y0) || (!work) ) { + if ( (!A) || (!A0) || (!X) || (!Y) || (!Y0) || (!work) ) { + free(A); free(A0); + free(X); free(Y); free(Y0); + free(work); printf("Out of Memory \n "); - exit(0); + return -2; } /* Initialize Data */ diff --git a/testing/testing_zposv.c b/testing/testing_zposv.c index 0b4906c4d15f748e54fde7cd381dafd946f51de0..a129e6a599412dde76c3ac20d276ac4bd2cd480d 100644 --- a/testing/testing_zposv.c +++ b/testing/testing_zposv.c @@ -189,13 +189,16 @@ int testing_zposv(int argc, char **argv) int info_solution, info_factorization; int trans1, trans2; - MORSE_Complex64_t *A1 = (MORSE_Complex64_t *)malloc(LDA*N*sizeof(MORSE_Complex64_t)); - MORSE_Complex64_t *A2 = (MORSE_Complex64_t *)malloc(LDA*N*sizeof(MORSE_Complex64_t)); - MORSE_Complex64_t *B1 = (MORSE_Complex64_t *)malloc(LDB*NRHS*sizeof(MORSE_Complex64_t)); - MORSE_Complex64_t *B2 = (MORSE_Complex64_t *)malloc(LDB*NRHS*sizeof(MORSE_Complex64_t)); + MORSE_Complex64_t *A1 = (MORSE_Complex64_t *)malloc(LDA*N*sizeof(MORSE_Complex64_t)); + MORSE_Complex64_t *A2 = (MORSE_Complex64_t *)malloc(LDA*N*sizeof(MORSE_Complex64_t)); + MORSE_Complex64_t *B1 = (MORSE_Complex64_t *)malloc(LDB*NRHS*sizeof(MORSE_Complex64_t)); + MORSE_Complex64_t *B2 = (MORSE_Complex64_t *)malloc(LDB*NRHS*sizeof(MORSE_Complex64_t)); /* Check if unable to allocate memory */ - if ((!A1)||(!A2)||(!B1)||(!B2)){ + if ( (!A1) || (!A2)|| (!B1) || (!B2) ) + { + free(A1); free(A2); + free(B1); free(B2); printf("Out of Memory \n "); return -2; } diff --git a/testing/testing_zpotri.c b/testing/testing_zpotri.c index 2dff3ea05836051ee4bd4f5166ab7ccc9e551114..b6487571316454a6c4852748e32093ea43e15a35 100644 --- a/testing/testing_zpotri.c +++ b/testing/testing_zpotri.c @@ -199,7 +199,10 @@ int testing_zpotri(int argc, char **argv) MORSE_Complex64_t *WORK = (MORSE_Complex64_t *)malloc(2*LDA*sizeof(MORSE_Complex64_t)); /* Check if unable to allocate memory */ - if ((!A1)||(!A2)){ + if ( (!A1) || (!A2) || (!WORK) ) + { + free(A1); free(A2); + free(WORK); printf("Out of Memory \n "); return -2; } diff --git a/testing/testing_zsymm.c b/testing/testing_zsymm.c index 0e037c761b86b7f5b92d49ceb400a725ecaaedac..cecc6b83850abc18bf6e577d46c98d3aa7232e41 100644 --- a/testing/testing_zsymm.c +++ b/testing/testing_zsymm.c @@ -81,7 +81,10 @@ int testing_zsymm(int argc, char **argv) MORSE_Complex64_t *Cfinal = (MORSE_Complex64_t *)malloc(LDCxN*sizeof(MORSE_Complex64_t)); /* Check if unable to allocate memory */ - if ((!A)||(!B)||(!Cinit)||(!Cfinal)){ + if ( (!A) || (!B) || (!C) || (!Cinit) || (!Cfinal) ) + { + free(A); free(B); free(C); + free(Cinit); free(Cfinal); printf("Out of Memory \n "); return -2; } diff --git a/testing/testing_zsyr2k.c b/testing/testing_zsyr2k.c index cbd5a75d4ec8de376763c7728ad82dac96c0a8ee..049e9c8fd98d9097958c0086076377c99eb8ea6c 100644 --- a/testing/testing_zsyr2k.c +++ b/testing/testing_zsyr2k.c @@ -82,7 +82,10 @@ int testing_zsyr2k(int argc, char **argv) MORSE_Complex64_t *Cfinal = (MORSE_Complex64_t *)malloc(LDCxN*sizeof(MORSE_Complex64_t)); /* Check if unable to allocate memory */ - if ( (!A) || (!B) || (!Cinit) || (!Cfinal) ){ + if ( (!A) || (!B) || (!C) || (!Cinit) || (!Cfinal) ) + { + free(A); free(B); free(C); + free(Cinit); free(Cfinal); printf("Out of Memory \n "); return -2; } diff --git a/testing/testing_zsyrk.c b/testing/testing_zsyrk.c index ba58ac727974fe1573113771848116137195b407..b942d294d8aa750cc262ea8d87837075d3e9f3d2 100644 --- a/testing/testing_zsyrk.c +++ b/testing/testing_zsyrk.c @@ -77,7 +77,9 @@ int testing_zsyrk(int argc, char **argv) MORSE_Complex64_t *Cfinal = (MORSE_Complex64_t *)malloc(LDCxN*sizeof(MORSE_Complex64_t)); /* Check if unable to allocate memory */ - if ( (!A) || (!Cinit) || (!Cfinal) ){ + if ( (!A) || (!C) || (!Cinit) || (!Cfinal) ){ + free(A); free(C); + free(Cinit); free(Cfinal); printf("Out of Memory \n "); return -2; } diff --git a/testing/testing_ztrmm.c b/testing/testing_ztrmm.c index 83214ef269c94da86fdd2a7543713cfe8655bfc5..f663a88277009497d2fa63a5102cc76682fdde47 100644 --- a/testing/testing_ztrmm.c +++ b/testing/testing_ztrmm.c @@ -77,7 +77,10 @@ int testing_ztrmm(int argc, char **argv) MORSE_Complex64_t *Bfinal = (MORSE_Complex64_t *)malloc(LDBxN*sizeof(MORSE_Complex64_t)); /* Check if unable to allocate memory */ - if ( (!A) || (!B) || (!Binit) || (!Bfinal)){ + if ( (!A) || (!B) || (!Binit) || (!Bfinal) ) + { + free(A); free(B); + free(Binit); free(Bfinal); printf("Out of Memory \n "); return -2; } diff --git a/testing/testing_ztrsm.c b/testing/testing_ztrsm.c index 3514b78d9691d6f6eb9a53ca00aff6b9bde18767..65e5088d604b62d29b6c8abf70a2ab03d30be786 100644 --- a/testing/testing_ztrsm.c +++ b/testing/testing_ztrsm.c @@ -77,7 +77,10 @@ int testing_ztrsm(int argc, char **argv) MORSE_Complex64_t *Bfinal = (MORSE_Complex64_t *)malloc(LDBxN*sizeof(MORSE_Complex64_t)); /* Check if unable to allocate memory */ - if ( (!A) || (!B) || (!Binit) || (!Bfinal)){ + if ( (!A) || (!B) || (!Binit) || (!Bfinal) ) + { + free(A); free(B); + free(Binit); free(Bfinal); printf("Out of Memory \n "); return -2; } diff --git a/timing/timing.c b/timing/timing.c index 22015352bfca981f9bd2e81f72fd9713ef92316d..e928035c23f7bd9abe3a2999417930374db0eb28 100644 --- a/timing/timing.c +++ b/timing/timing.c @@ -674,17 +674,21 @@ main(int argc, char *argv[]) { MORSE_Set(MORSE_HOUSEHOLDER_SIZE, iparam[IPARAM_RHBLK]); } - if (iparam[IPARAM_PROFILE] == 1) + if (iparam[IPARAM_PROFILE] == 1) { MORSE_Enable(MORSE_PROFILING_MODE); + } - if (iparam[IPARAM_PROGRESS] == 1) + if (iparam[IPARAM_PROGRESS] == 1) { MORSE_Enable(MORSE_PROGRESS); + } - if (iparam[IPARAM_PRINT_WARNINGS] == 0) + if (iparam[IPARAM_PRINT_WARNINGS] == 0) { MORSE_Disable(MORSE_WARNINGS); + } - if (iparam[IPARAM_GEMM3M] == 1) + if (iparam[IPARAM_GEMM3M] == 1) { MORSE_Enable(MORSE_GEMM3M); + } #if defined(CHAMELEON_USE_MPI) nbnode = MORSE_Comm_size(); @@ -702,8 +706,9 @@ main(int argc, char *argv[]) { /* Layout conversion */ MORSE_Set(MORSE_TRANSLATION_MODE, iparam[IPARAM_INPLACE]); - if ( MORSE_My_Mpi_Rank() == 0 ) + if ( MORSE_My_Mpi_Rank() == 0 ) { print_header( argv[0], iparam); + } if (step < 1) step = 1;