Commit a29ceeb8 authored by Mathieu Faverge's avatar Mathieu Faverge

Add extra flush to norm computations for parsec

parent dde7c55d
......@@ -154,6 +154,9 @@ void morse_pzlange( MORSE_enum norm, MORSE_desc_t *A, double *result,
VECNORMS_STEP1(m, n), 1 );
}
}
MORSE_Desc_Flush( VECNORMS_STEP2, sequence );
MORSE_Desc_Flush( VECNORMS_STEP1, sequence );
MORSE_Desc_Flush( RESULT, sequence );
RUNTIME_sequence_wait(morse, sequence);
MORSE_Desc_Destroy( &(VECNORMS_STEP2) );
break;
......@@ -271,6 +274,9 @@ void morse_pzlange( MORSE_enum norm, MORSE_desc_t *A, double *result,
VECNORMS_STEP1(m, n), 1 );
}
}
MORSE_Desc_Flush( VECNORMS_STEP2, sequence );
MORSE_Desc_Flush( VECNORMS_STEP1, sequence );
MORSE_Desc_Flush( RESULT, sequence );
RUNTIME_sequence_wait(morse, sequence);
MORSE_Desc_Destroy( &(VECNORMS_STEP2) );
break;
......@@ -339,6 +345,8 @@ void morse_pzlange( MORSE_enum norm, MORSE_desc_t *A, double *result,
}
}
MORSE_Desc_Flush( VECNORMS_STEP1, sequence );
MORSE_Desc_Flush( RESULT, sequence );
RUNTIME_sequence_wait(morse, sequence);
break;
......@@ -400,6 +408,8 @@ void morse_pzlange( MORSE_enum norm, MORSE_desc_t *A, double *result,
}
}
MORSE_Desc_Flush( VECNORMS_STEP1, sequence );
MORSE_Desc_Flush( RESULT, sequence );
RUNTIME_sequence_wait(morse, sequence);
}
......
......@@ -202,6 +202,9 @@ void morse_pzlanhe(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A, double *re
VECNORMS_STEP1(m, n), 1 );
}
}
MORSE_Desc_Flush( VECNORMS_STEP2, sequence );
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) );
......@@ -338,6 +341,8 @@ void morse_pzlanhe(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) );
......@@ -449,6 +454,8 @@ void morse_pzlanhe(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) );
......
......@@ -202,6 +202,9 @@ void morse_pzlansy(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A, double *re
VECNORMS_STEP1(m, n), 1 );
}
}
MORSE_Desc_Flush( VECNORMS_STEP2, sequence );
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) );
......@@ -347,6 +350,8 @@ 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) );
......@@ -458,6 +463,8 @@ 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) );
......
......@@ -225,6 +225,9 @@ void morse_pzlantr(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag,
VECNORMS_STEP1(m, n), 1 );
}
}
MORSE_Desc_Flush( VECNORMS_STEP2, sequence );
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) );
......@@ -394,6 +397,9 @@ void morse_pzlantr(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag,
VECNORMS_STEP1(m, n), 1 );
}
}
MORSE_Desc_Flush( VECNORMS_STEP2, sequence );
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) );
......@@ -534,6 +540,8 @@ void morse_pzlantr(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag,
}
}
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) );
......@@ -658,6 +666,8 @@ void morse_pzlantr(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag,
}
}
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) );
......
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