Mentions légales du service

Skip to content
Snippets Groups Projects
Commit a29ceeb8 authored by Mathieu Faverge's avatar Mathieu Faverge
Browse files

Add extra flush to norm computations for parsec

parent dde7c55d
No related branches found
No related tags found
1 merge request!78Cleanup - Lapack to tile
Hide whitespace changes
Inline Side-by-side
compute/pzlange.c
+ 10
− 0
View file @ a29ceeb8
......@@ -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);
}
......
compute/pzlanhe.c
+ 7
− 0
View file @ a29ceeb8
......@@ -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) );
......
compute/pzlansy.c
+ 7
− 0
View file @ a29ceeb8
......@@ -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) );
......
compute/pzlantr.c
+ 10
− 0
View file @ a29ceeb8
......@@ -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) );
......
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