From ba9be25fd4dcf23fc6446f503b1f6c3ea7ccf3a4 Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Wed, 24 Jan 2018 17:01:23 +0100
Subject: [PATCH] Factorize some code
---
compute/pzlansy.c | 14 +++++---------
compute/zplrnt.c | 1 -
2 files changed, 5 insertions(+), 10 deletions(-)
diff --git a/compute/pzlansy.c b/compute/pzlansy.c
index 80c4df5a9..f89d4302f 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 8035b30ea..17edaa9d7 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;
}
--
GitLab