diff --git a/compute/pzlansy.c b/compute/pzlansy.c index 80c4df5a96ccf63c97119876aefc078ccf53e4d9..f89d4302f24cb2caa16421a705f48e4997bdc729 100644 --- a/compute/pzlansy.c +++ b/compute/pzlansy.c @@ -206,10 +206,7 @@ void morse_pzlansy(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A, double *re MORSE_Desc_Flush( VECNORMS_STEP1, sequence ); MORSE_Desc_Flush( RESULT, sequence ); RUNTIME_sequence_wait(morse, sequence); - *result = *(double *)VECNORMS_STEP1->get_blkaddr(VECNORMS_STEP1, A->myrank / A->q, A->myrank % A->q ); - MORSE_Desc_Destroy( &(VECNORMS_STEP1) ); MORSE_Desc_Destroy( &(VECNORMS_STEP2) ); - MORSE_Desc_Destroy( &(RESULT) ); break; /* * MorseFrobeniusNorm @@ -353,9 +350,6 @@ void morse_pzlansy(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A, double *re MORSE_Desc_Flush( VECNORMS_STEP1, sequence ); MORSE_Desc_Flush( RESULT, sequence ); RUNTIME_sequence_wait(morse, sequence); - *result = *(double *)VECNORMS_STEP1->get_blkaddr(VECNORMS_STEP1, A->myrank / A->q, A->myrank % A->q ); - MORSE_Desc_Destroy( &(VECNORMS_STEP1) ); - MORSE_Desc_Destroy( &(RESULT) ); break; /* @@ -466,10 +460,12 @@ void morse_pzlansy(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A, double *re MORSE_Desc_Flush( VECNORMS_STEP1, sequence ); MORSE_Desc_Flush( RESULT, sequence ); RUNTIME_sequence_wait(morse, sequence); - *result = *(double *)VECNORMS_STEP1->get_blkaddr(VECNORMS_STEP1, A->myrank / A->q, A->myrank % A->q ); - MORSE_Desc_Destroy( &(VECNORMS_STEP1) ); - MORSE_Desc_Destroy( &(RESULT) ); } + + *result = *(double *)VECNORMS_STEP1->get_blkaddr(VECNORMS_STEP1, A->myrank / A->q, A->myrank % A->q ); + + MORSE_Desc_Destroy( &(VECNORMS_STEP1) ); + MORSE_Desc_Destroy( &(RESULT) ); RUNTIME_options_ws_free(&options); RUNTIME_options_finalize(&options, morse); } diff --git a/compute/zplrnt.c b/compute/zplrnt.c index 8035b30ea27c4e6386cff37c1e4ef878e237a221..17edaa9d72de578abfb3e913b2fe1157494fc028 100644 --- a/compute/zplrnt.c +++ b/compute/zplrnt.c @@ -131,7 +131,6 @@ int MORSE_zplrnt( int M, int N, status = sequence->status; morse_sequence_destroy( morse, sequence ); - return status; }