From 619774b14dc288f9c21b71c32236a73fd0bcce59 Mon Sep 17 00:00:00 2001
From: Pedro Gonnet <pedro.gonnet@durham.ac.uk>
Date: Tue, 5 Nov 2013 20:28:48 +0000
Subject: [PATCH] pragmas in all the wrong places.
---
examples/test_qr_ompss.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/examples/test_qr_ompss.c b/examples/test_qr_ompss.c
index 02d2a54..014d1e0 100644
--- a/examples/test_qr_ompss.c
+++ b/examples/test_qr_ompss.c
@@ -340,8 +340,8 @@ void test_qr ( int m , int n , int K , int nr_threads , int runs ) {
&A[ k*m*K*K + k*K ] , m*K , &tau[ k*m*K + k*K ] );
/* Add column tasks on kth row. */
- #pragma omp task inout( tid[ j*m + k ] ) in( tid[ k*m + k ] )
for ( j = k+1 ; j < n ; j++ ) {
+ #pragma omp task inout( tid[ j*m + k ] ) in( tid[ k*m + k ] )
DLARFT( LAPACK_COL_MAJOR , 'F' , 'C' ,
K , K , &A[ k*m*K*K + k*K ] ,
m*K , &tau[ k*m*K + k*K ] , &A[ j*m*K*K + k*K ] ,
@@ -356,8 +356,8 @@ void test_qr ( int m , int n , int K , int nr_threads , int runs ) {
DTSQRF( &A[ k*m*K*K + k*K ] , &A[ k*m*K*K + i*K ] , &tau[ k*m*K + i*K ] , K , K , K , K*m );
/* Add the inner tasks. */
- #pragma omp task inout( tid[ j*m + i ] ) in( tid[ k*m + i ] , tid[ j*m + k ] )
for ( j = k+1 ; j < n ; j++ ) {
+ #pragma omp task inout( tid[ j*m + i ] ) in( tid[ k*m + i ] , tid[ j*m + k ] )
DSSRFT( &A[ k*m*K + i*K ] , &A[ j*m*K*K + k*K ] , &A[ j*m*K*K + i*K ] , &tau[ k*m*K + i*K ] , K , K , K*m );
}
--
GitLab