Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Chameleon
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
11
Issues
11
List
Boards
Labels
Service Desk
Milestones
Merge Requests
9
Merge Requests
9
Operations
Operations
Incidents
Packages & Registries
Packages & Registries
Container Registry
Analytics
Analytics
Repository
Value Stream
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
solverstack
Chameleon
Commits
195a1bf8
Commit
195a1bf8
authored
Dec 07, 2018
by
Philippe Virouleau
3
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Final fixes to make tests pass
parent
4f60cf7c
Changes
56
Hide whitespace changes
Inline
Side-by-side
Showing
56 changed files
with
139 additions
and
113 deletions
+139
-113
runtime/openmp/codelets/codelet_zasum.c
runtime/openmp/codelets/codelet_zasum.c
+2
-2
runtime/openmp/codelets/codelet_zaxpy.c
runtime/openmp/codelets/codelet_zaxpy.c
+2
-2
runtime/openmp/codelets/codelet_zbuild.c
runtime/openmp/codelets/codelet_zbuild.c
+2
-2
runtime/openmp/codelets/codelet_zgeadd.c
runtime/openmp/codelets/codelet_zgeadd.c
+2
-2
runtime/openmp/codelets/codelet_zgelqt.c
runtime/openmp/codelets/codelet_zgelqt.c
+4
-3
runtime/openmp/codelets/codelet_zgemm.c
runtime/openmp/codelets/codelet_zgemm.c
+1
-1
runtime/openmp/codelets/codelet_zgeqrt.c
runtime/openmp/codelets/codelet_zgeqrt.c
+4
-3
runtime/openmp/codelets/codelet_zgessm.c
runtime/openmp/codelets/codelet_zgessm.c
+1
-1
runtime/openmp/codelets/codelet_zgessq.c
runtime/openmp/codelets/codelet_zgessq.c
+2
-2
runtime/openmp/codelets/codelet_zgetrf.c
runtime/openmp/codelets/codelet_zgetrf.c
+1
-1
runtime/openmp/codelets/codelet_zgetrf_incpiv.c
runtime/openmp/codelets/codelet_zgetrf_incpiv.c
+1
-1
runtime/openmp/codelets/codelet_zgetrf_nopiv.c
runtime/openmp/codelets/codelet_zgetrf_nopiv.c
+1
-1
runtime/openmp/codelets/codelet_zhe2ge.c
runtime/openmp/codelets/codelet_zhe2ge.c
+1
-1
runtime/openmp/codelets/codelet_zhemm.c
runtime/openmp/codelets/codelet_zhemm.c
+1
-1
runtime/openmp/codelets/codelet_zher2k.c
runtime/openmp/codelets/codelet_zher2k.c
+2
-2
runtime/openmp/codelets/codelet_zherfb.c
runtime/openmp/codelets/codelet_zherfb.c
+3
-2
runtime/openmp/codelets/codelet_zherk.c
runtime/openmp/codelets/codelet_zherk.c
+2
-2
runtime/openmp/codelets/codelet_zhessq.c
runtime/openmp/codelets/codelet_zhessq.c
+1
-1
runtime/openmp/codelets/codelet_zlacpy.c
runtime/openmp/codelets/codelet_zlacpy.c
+1
-1
runtime/openmp/codelets/codelet_zlag2c.c
runtime/openmp/codelets/codelet_zlag2c.c
+1
-1
runtime/openmp/codelets/codelet_zlange.c
runtime/openmp/codelets/codelet_zlange.c
+9
-5
runtime/openmp/codelets/codelet_zlanhe.c
runtime/openmp/codelets/codelet_zlanhe.c
+4
-3
runtime/openmp/codelets/codelet_zlansy.c
runtime/openmp/codelets/codelet_zlansy.c
+4
-3
runtime/openmp/codelets/codelet_zlantr.c
runtime/openmp/codelets/codelet_zlantr.c
+4
-3
runtime/openmp/codelets/codelet_zlascal.c
runtime/openmp/codelets/codelet_zlascal.c
+1
-1
runtime/openmp/codelets/codelet_zlaset.c
runtime/openmp/codelets/codelet_zlaset.c
+1
-1
runtime/openmp/codelets/codelet_zlaset2.c
runtime/openmp/codelets/codelet_zlaset2.c
+2
-2
runtime/openmp/codelets/codelet_zlauum.c
runtime/openmp/codelets/codelet_zlauum.c
+1
-1
runtime/openmp/codelets/codelet_zplghe.c
runtime/openmp/codelets/codelet_zplghe.c
+1
-1
runtime/openmp/codelets/codelet_zplgsy.c
runtime/openmp/codelets/codelet_zplgsy.c
+2
-2
runtime/openmp/codelets/codelet_zplrnt.c
runtime/openmp/codelets/codelet_zplrnt.c
+1
-1
runtime/openmp/codelets/codelet_zplssq.c
runtime/openmp/codelets/codelet_zplssq.c
+14
-9
runtime/openmp/codelets/codelet_zpotrf.c
runtime/openmp/codelets/codelet_zpotrf.c
+2
-2
runtime/openmp/codelets/codelet_zssssm.c
runtime/openmp/codelets/codelet_zssssm.c
+5
-5
runtime/openmp/codelets/codelet_zsymm.c
runtime/openmp/codelets/codelet_zsymm.c
+1
-1
runtime/openmp/codelets/codelet_zsyr2k.c
runtime/openmp/codelets/codelet_zsyr2k.c
+2
-2
runtime/openmp/codelets/codelet_zsyrk.c
runtime/openmp/codelets/codelet_zsyrk.c
+2
-2
runtime/openmp/codelets/codelet_zsyssq.c
runtime/openmp/codelets/codelet_zsyssq.c
+1
-1
runtime/openmp/codelets/codelet_zsytrf_nopiv.c
runtime/openmp/codelets/codelet_zsytrf_nopiv.c
+1
-1
runtime/openmp/codelets/codelet_ztile_zero.c
runtime/openmp/codelets/codelet_ztile_zero.c
+1
-1
runtime/openmp/codelets/codelet_ztplqt.c
runtime/openmp/codelets/codelet_ztplqt.c
+4
-3
runtime/openmp/codelets/codelet_ztpmlqt.c
runtime/openmp/codelets/codelet_ztpmlqt.c
+3
-2
runtime/openmp/codelets/codelet_ztpmqrt.c
runtime/openmp/codelets/codelet_ztpmqrt.c
+5
-4
runtime/openmp/codelets/codelet_ztpqrt.c
runtime/openmp/codelets/codelet_ztpqrt.c
+4
-3
runtime/openmp/codelets/codelet_ztradd.c
runtime/openmp/codelets/codelet_ztradd.c
+1
-1
runtime/openmp/codelets/codelet_ztrasm.c
runtime/openmp/codelets/codelet_ztrasm.c
+1
-1
runtime/openmp/codelets/codelet_ztrmm.c
runtime/openmp/codelets/codelet_ztrmm.c
+1
-1
runtime/openmp/codelets/codelet_ztrsm.c
runtime/openmp/codelets/codelet_ztrsm.c
+2
-2
runtime/openmp/codelets/codelet_ztrssq.c
runtime/openmp/codelets/codelet_ztrssq.c
+1
-1
runtime/openmp/codelets/codelet_ztrtri.c
runtime/openmp/codelets/codelet_ztrtri.c
+1
-1
runtime/openmp/codelets/codelet_ztsmlq_hetra1.c
runtime/openmp/codelets/codelet_ztsmlq_hetra1.c
+3
-2
runtime/openmp/codelets/codelet_ztsmqr_hetra1.c
runtime/openmp/codelets/codelet_ztsmqr_hetra1.c
+3
-2
runtime/openmp/codelets/codelet_ztstrf.c
runtime/openmp/codelets/codelet_ztstrf.c
+4
-3
runtime/openmp/codelets/codelet_zunmlq.c
runtime/openmp/codelets/codelet_zunmlq.c
+4
-3
runtime/openmp/codelets/codelet_zunmqr.c
runtime/openmp/codelets/codelet_zunmqr.c
+4
-3
timing/timing.c
timing/timing.c
+4
-2
No files found.
runtime/openmp/codelets/codelet_zasum.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
@@ -31,7 +31,7 @@ void INSERT_TASK_dzasum(const RUNTIME_option_t *options,
{
CHAMELEON_Complex64_t
*
ptrA
=
RTBLKADDR
(
A
,
CHAMELEON_Complex64_t
,
Am
,
An
);
double
*
ptrB
=
RTBLKADDR
(
B
,
double
,
Bm
,
Bn
);
#pragma omp task firstprivate(storev, uplo, M, N, lda, ptrA, ptrB) depend(in:ptrA[0
:Am*An]) depend(inout:ptrB[0:Bm*Bn
])
#pragma omp task firstprivate(storev, uplo, M, N, lda, ptrA, ptrB) depend(in:ptrA[0
]) depend(inout:ptrB[0
])
CORE_dzasum
(
storev
,
uplo
,
M
,
N
,
ptrA
,
lda
,
ptrB
);
}
...
...
runtime/openmp/codelets/codelet_zaxpy.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
@@ -29,7 +29,7 @@ void INSERT_TASK_zaxpy(const RUNTIME_option_t *options,
{
CHAMELEON_Complex64_t
*
ptrA
=
RTBLKADDR
(
A
,
CHAMELEON_Complex64_t
,
Am
,
An
);
CHAMELEON_Complex64_t
*
ptrB
=
RTBLKADDR
(
B
,
CHAMELEON_Complex64_t
,
Bm
,
Bn
);
#pragma omp task firstprivate(M, alpha, incA, incB, ptrA, ptrB) depend(in:ptrA[0
:Am*An]) depend(inout:ptrB[0:Bm*Bn
])
#pragma omp task firstprivate(M, alpha, incA, incB, ptrA, ptrB) depend(in:ptrA[0
]) depend(inout:ptrB[0
])
CORE_zaxpy
(
M
,
alpha
,
ptrA
,
incA
,
ptrB
,
incB
);
}
runtime/openmp/codelets/codelet_zbuild.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
@@ -42,6 +42,6 @@ void INSERT_TASK_zbuild( const RUNTIME_option_t *options,
void
(
*
callback
)(
int
row_min
,
int
row_max
,
int
col_min
,
int
col_max
,
void
*
buffer
,
int
ld
,
void
*
user_data
)
;
callback
=
user_build_callback
;
#pragma omp task firstprivate(row_min, row_max, col_min, col_max, ptrA, lda, user_data) depend(inout:ptrA[0
:Am*An
])
#pragma omp task firstprivate(row_min, row_max, col_min, col_max, ptrA, lda, user_data) depend(inout:ptrA[0])
callback
(
row_min
,
row_max
,
col_min
,
col_max
,
ptrA
,
lda
,
user_data
);
}
runtime/openmp/codelets/codelet_zgeadd.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
@@ -87,6 +87,6 @@ void INSERT_TASK_zgeadd(const RUNTIME_option_t *options,
{
CHAMELEON_Complex64_t
*
ptrA
=
RTBLKADDR
(
A
,
CHAMELEON_Complex64_t
,
Am
,
An
);
CHAMELEON_Complex64_t
*
ptrB
=
RTBLKADDR
(
B
,
CHAMELEON_Complex64_t
,
Bm
,
Bn
);
#pragma omp task firstprivate(trans, m, n, alpha, beta, lda, ldb, ptrA, ptrB) depend(in:ptrA[0
:Am*An]) depend(inout:ptrB[0:Bm*Bn
])
#pragma omp task firstprivate(trans, m, n, alpha, beta, lda, ldb, ptrA, ptrB) depend(in:ptrA[0
]) depend(inout:ptrB[0
])
CORE_zgeadd
(
trans
,
m
,
n
,
alpha
,
ptrA
,
lda
,
beta
,
ptrB
,
ldb
);
}
runtime/openmp/codelets/codelet_zgelqt.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
@@ -97,9 +97,10 @@ void INSERT_TASK_zgelqt(const RUNTIME_option_t *options,
{
CHAMELEON_Complex64_t
*
ptrA
=
RTBLKADDR
(
A
,
CHAMELEON_Complex64_t
,
Am
,
An
);
CHAMELEON_Complex64_t
*
ptrT
=
RTBLKADDR
(
T
,
CHAMELEON_Complex64_t
,
Tm
,
Tn
);
#pragma omp task firstprivate(m, n, ib, ptrA, lda, ptrT, ldt) depend(inout:ptrA[0]) depend(inout:ptrT[0])
int
ws_size
=
options
->
ws_wsize
;
#pragma omp task firstprivate(ws_size, m, n, ib, ptrA, lda, ptrT, ldt) depend(inout:ptrA[0]) depend(inout:ptrT[0])
{
CHAMELEON_Complex64_t
TAU
[
options
->
ws_w
size
];
CHAMELEON_Complex64_t
TAU
[
ws_
size
];
CHAMELEON_Complex64_t
*
work
=
TAU
+
chameleon_max
(
m
,
n
);
CORE_zgelqt
(
m
,
n
,
ib
,
ptrA
,
lda
,
ptrT
,
ldt
,
TAU
,
work
);
}
...
...
runtime/openmp/codelets/codelet_zgemm.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
runtime/openmp/codelets/codelet_zgeqrt.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
@@ -98,9 +98,10 @@ void INSERT_TASK_zgeqrt(const RUNTIME_option_t *options,
{
CHAMELEON_Complex64_t
*
ptrA
=
RTBLKADDR
(
A
,
CHAMELEON_Complex64_t
,
Am
,
An
);
CHAMELEON_Complex64_t
*
ptrT
=
RTBLKADDR
(
T
,
CHAMELEON_Complex64_t
,
Tm
,
Tn
);
#pragma omp task firstprivate(m, n, ib, ptrA, lda, ptrT, ldt) depend(inout:ptrA[0]) depend(inout:ptrT[0])
int
ws_size
=
options
->
ws_wsize
;
#pragma omp task firstprivate(ws_size, m, n, ib, ptrA, lda, ptrT, ldt) depend(inout:ptrA[0]) depend(inout:ptrT[0])
{
CHAMELEON_Complex64_t
TAU
[
options
->
ws_w
size
];
CHAMELEON_Complex64_t
TAU
[
ws_
size
];
CHAMELEON_Complex64_t
*
work
=
TAU
+
chameleon_max
(
m
,
n
);
CORE_zgeqrt
(
m
,
n
,
ib
,
ptrA
,
lda
,
ptrT
,
ldt
,
TAU
,
work
);
}
...
...
runtime/openmp/codelets/codelet_zgessm.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
runtime/openmp/codelets/codelet_zgessq.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
@@ -31,6 +31,6 @@ void INSERT_TASK_zgessq( const RUNTIME_option_t *options,
{
CHAMELEON_Complex64_t
*
ptrA
=
RTBLKADDR
(
A
,
CHAMELEON_Complex64_t
,
Am
,
An
);
double
*
ptrScaleSum
=
RTBLKADDR
(
SCALESUMSQ
,
double
,
SCALESUMSQm
,
SCALESUMSQn
);
#pragma omp task firstprivate(m, n, ptrA, lda, ptrScaleSum) depend(in:ptrA[0
:Am*An]) depend(inout:ptrScaleSum[0:SCALESUMSQm*SCALESUMSQn
])
#pragma omp task firstprivate(m, n, ptrA, lda, ptrScaleSum) depend(in:ptrA[0
]) depend(inout:ptrScaleSum[0
])
CORE_zgessq
(
m
,
n
,
ptrA
,
lda
,
&
ptrScaleSum
[
0
],
&
ptrScaleSum
[
1
]
);
}
runtime/openmp/codelets/codelet_zgetrf.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
runtime/openmp/codelets/codelet_zgetrf_incpiv.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
runtime/openmp/codelets/codelet_zgetrf_nopiv.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
runtime/openmp/codelets/codelet_zhe2ge.c
View file @
195a1bf8
...
...
@@ -32,6 +32,6 @@ void INSERT_TASK_zhe2ge(const RUNTIME_option_t *options,
{
CHAMELEON_Complex64_t
*
ptrA
=
RTBLKADDR
(
A
,
CHAMELEON_Complex64_t
,
Am
,
An
);
CHAMELEON_Complex64_t
*
ptrB
=
RTBLKADDR
(
B
,
CHAMELEON_Complex64_t
,
Bm
,
Bn
);
#pragma omp task firstprivate(uplo, m, n, ptrA, lda, ptrB, ldb) depend(in: ptrA[0
:Am*An]) depend(inout:ptrB[0:Bm*Bn
])
#pragma omp task firstprivate(uplo, m, n, ptrA, lda, ptrB, ldb) depend(in: ptrA[0
]) depend(inout:ptrB[0
])
CORE_zhe2ge
(
uplo
,
m
,
n
,
ptrA
,
lda
,
ptrB
,
ldb
);
}
runtime/openmp/codelets/codelet_zhemm.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
runtime/openmp/codelets/codelet_zher2k.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
@@ -43,7 +43,7 @@ void INSERT_TASK_zher2k(const RUNTIME_option_t *options,
CHAMELEON_Complex64_t
*
ptrA
=
RTBLKADDR
(
A
,
CHAMELEON_Complex64_t
,
Am
,
An
);
CHAMELEON_Complex64_t
*
ptrB
=
RTBLKADDR
(
B
,
CHAMELEON_Complex64_t
,
Bm
,
Bn
);
CHAMELEON_Complex64_t
*
ptrC
=
RTBLKADDR
(
C
,
CHAMELEON_Complex64_t
,
Cm
,
Cn
);
#pragma omp task firstprivate(uplo, trans, n, k, alpha, ptrA, lda, ptrB, ldb, beta, ptrC, ldc) depend(in:ptrA[0
:Am*An], ptrB[0:Bm*Bn]) depend(inout:ptrC[0:Cm*Cn
])
#pragma omp task firstprivate(uplo, trans, n, k, alpha, ptrA, lda, ptrB, ldb, beta, ptrC, ldc) depend(in:ptrA[0
], ptrB[0]) depend(inout:ptrC[0
])
CORE_zher2k
(
uplo
,
trans
,
n
,
k
,
alpha
,
ptrA
,
lda
,
ptrB
,
ldb
,
beta
,
ptrC
,
ldc
);
}
runtime/openmp/codelets/codelet_zherfb.c
View file @
195a1bf8
...
...
@@ -35,9 +35,10 @@ void INSERT_TASK_zherfb(const RUNTIME_option_t *options,
CHAMELEON_Complex64_t
*
ptrA
=
RTBLKADDR
(
A
,
CHAMELEON_Complex64_t
,
Am
,
An
);
CHAMELEON_Complex64_t
*
ptrT
=
RTBLKADDR
(
T
,
CHAMELEON_Complex64_t
,
Tm
,
Tn
);
CHAMELEON_Complex64_t
*
ptrC
=
RTBLKADDR
(
C
,
CHAMELEON_Complex64_t
,
Cm
,
Cn
);
#pragma omp task firstprivate(uplo, n, k, ib, nb, ptrA, lda, ptrT, ldt) depend(in:ptrA[0], ptrT[0]) depend(inout:ptrC[0])
int
ws_size
=
options
->
ws_wsize
;
#pragma omp task firstprivate(ws_size, uplo, n, k, ib, nb, ptrA, lda, ptrT, ldt) depend(in:ptrA[0], ptrT[0]) depend(inout:ptrC[0])
{
CHAMELEON_Complex64_t
work
[
options
->
ws_w
size
];
CHAMELEON_Complex64_t
work
[
ws_
size
];
CORE_zherfb
(
uplo
,
n
,
k
,
ib
,
nb
,
ptrA
,
lda
,
ptrT
,
ldt
,
ptrC
,
ldc
,
work
,
nb
);
}
}
runtime/openmp/codelets/codelet_zherk.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
@@ -41,7 +41,7 @@ void INSERT_TASK_zherk(const RUNTIME_option_t *options,
{
CHAMELEON_Complex64_t
*
ptrA
=
RTBLKADDR
(
A
,
CHAMELEON_Complex64_t
,
Am
,
An
);
CHAMELEON_Complex64_t
*
ptrC
=
RTBLKADDR
(
C
,
CHAMELEON_Complex64_t
,
Cm
,
Cn
);
#pragma omp task firstprivate(uplo, trans, n, k, alpha, ptrA, lda, beta, ptrC, ldc) depend(in:ptrA[0
:Am*An]) depend(inout:ptrC[0:Cm*Cn
])
#pragma omp task firstprivate(uplo, trans, n, k, alpha, ptrA, lda, beta, ptrC, ldc) depend(in:ptrA[0
]) depend(inout:ptrC[0
])
CORE_zherk
(
uplo
,
trans
,
n
,
k
,
alpha
,
ptrA
,
lda
,
...
...
runtime/openmp/codelets/codelet_zhessq.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
runtime/openmp/codelets/codelet_zlacpy.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
runtime/openmp/codelets/codelet_zlag2c.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
runtime/openmp/codelets/codelet_zlange.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
@@ -33,9 +33,10 @@ void INSERT_TASK_zlange(const RUNTIME_option_t *options,
{
CHAMELEON_Complex64_t
*
ptrA
=
RTBLKADDR
(
A
,
CHAMELEON_Complex64_t
,
Am
,
An
);
double
*
ptrB
=
RTBLKADDR
(
B
,
double
,
Bm
,
Bn
);
#pragma omp task firstprivate(M, N, ptrA, LDA, ptrB, options) depend(in:ptrA[0]) depend(inout:ptrB[0])
int
ws_size
=
options
->
ws_wsize
;
#pragma omp task firstprivate(ws_size, M, N, ptrA, LDA, ptrB, options) depend(in:ptrA[0]) depend(inout:ptrB[0])
{
double
work
[
options
->
ws_w
size
];
double
work
[
ws_
size
];
CORE_zlange
(
norm
,
M
,
N
,
ptrA
,
LDA
,
work
,
ptrB
);
}
}
...
...
@@ -47,6 +48,9 @@ void INSERT_TASK_zlange_max(const RUNTIME_option_t *options,
double
*
ptrA
=
RTBLKADDR
(
A
,
double
,
Am
,
An
);
double
*
ptrB
=
RTBLKADDR
(
B
,
double
,
Bm
,
Bn
);
if
(
*
ptrA
>
*
ptrB
)
*
ptrB
=
*
ptrA
;
#pragma omp task firstprivate(ptrA, ptrB) depend(in:ptrA[0]) depend(inout:ptrB[0])
{
if
(
*
ptrA
>
*
ptrB
)
*
ptrB
=
*
ptrA
;
}
}
runtime/openmp/codelets/codelet_zlanhe.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
@@ -33,9 +33,10 @@ void INSERT_TASK_zlanhe(const RUNTIME_option_t *options,
{
CHAMELEON_Complex64_t
*
ptrA
=
RTBLKADDR
(
A
,
CHAMELEON_Complex64_t
,
Am
,
An
);
double
*
normA
=
RTBLKADDR
(
B
,
double
,
Bm
,
Bn
);
#pragma omp task firstprivate(norm, uplo, N, ptrA, LDA, normA) depend(in:ptrA[0]) depend(inout:normA[0])
int
ws_size
=
options
->
ws_wsize
;
#pragma omp task firstprivate(ws_size, norm, uplo, N, ptrA, LDA, normA) depend(in:ptrA[0]) depend(inout:normA[0])
{
double
work
[
options
->
ws_w
size
];
double
work
[
ws_
size
];
CORE_zlanhe
(
norm
,
uplo
,
N
,
ptrA
,
LDA
,
work
,
normA
);
}
}
runtime/openmp/codelets/codelet_zlansy.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
@@ -33,9 +33,10 @@ void INSERT_TASK_zlansy(const RUNTIME_option_t *options,
{
CHAMELEON_Complex64_t
*
ptrA
=
RTBLKADDR
(
A
,
CHAMELEON_Complex64_t
,
Am
,
An
);
double
*
normA
=
RTBLKADDR
(
B
,
double
,
Bm
,
Bn
);
#pragma omp task firstprivate(norm, uplo, N, ptrA, LDA, normA) depend(in:ptrA[0]) depend(inout:normA[0])
int
ws_size
=
options
->
ws_wsize
;
#pragma omp task firstprivate(ws_size, norm, uplo, N, ptrA, LDA, normA) depend(in:ptrA[0]) depend(inout:normA[0])
{
double
work
[
options
->
ws_w
size
];
double
work
[
ws_
size
];
CORE_zlansy
(
norm
,
uplo
,
N
,
ptrA
,
LDA
,
work
,
normA
);
}
}
runtime/openmp/codelets/codelet_zlantr.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
@@ -32,9 +32,10 @@ void INSERT_TASK_zlantr(const RUNTIME_option_t *options,
{
CHAMELEON_Complex64_t
*
ptrA
=
RTBLKADDR
(
A
,
CHAMELEON_Complex64_t
,
Am
,
An
);
double
*
ptrB
=
RTBLKADDR
(
B
,
double
,
Bm
,
Bn
);
#pragma omp task firstprivate(norm, uplo, diag, M, N, ptrA, LDA, ptrB) depend(in:ptrA[0]) depend(inout:ptrB[0])
int
ws_wsize
=
options
->
ws_wsize
;
#pragma omp task firstprivate(ws_wsize, norm, uplo, diag, M, N, ptrA, LDA, ptrB) depend(in:ptrA[0]) depend(inout:ptrB[0])
{
double
work
[
options
->
ws_wsize
];
double
work
[
ws_wsize
];
CORE_zlantr
(
norm
,
uplo
,
diag
,
M
,
N
,
ptrA
,
LDA
,
work
,
ptrB
);
}
}
runtime/openmp/codelets/codelet_zlascal.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
runtime/openmp/codelets/codelet_zlaset.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
runtime/openmp/codelets/codelet_zlaset2.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
@@ -67,6 +67,6 @@ void INSERT_TASK_zlaset2(const RUNTIME_option_t *options,
{
CHAMELEON_Complex64_t
*
ptrA
=
RTBLKADDR
(
A
,
CHAMELEON_Complex64_t
,
Am
,
An
);
#pragma omp task firstprivate(uplo, M, N, alpha, ptrA, LDA) depend(inout:ptrA[0
:Am*An
])
#pragma omp task firstprivate(uplo, M, N, alpha, ptrA, LDA) depend(inout:ptrA[0])
CORE_zlaset2
(
uplo
,
M
,
N
,
alpha
,
ptrA
,
LDA
);
}
runtime/openmp/codelets/codelet_zlauum.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
runtime/openmp/codelets/codelet_zplghe.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
runtime/openmp/codelets/codelet_zplgsy.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
@@ -35,6 +35,6 @@ void INSERT_TASK_zplgsy( const RUNTIME_option_t *options,
int
bigM
,
int
m0
,
int
n0
,
unsigned
long
long
int
seed
)
{
CHAMELEON_Complex64_t
*
ptrA
=
RTBLKADDR
(
A
,
CHAMELEON_Complex64_t
,
Am
,
An
);
#pragma omp task firstprivate(bump, m, n, ptrA, lda, bigM, m0, n0, seed) depend(inout:ptrA[0
:Am*An
])
#pragma omp task firstprivate(bump, m, n, ptrA, lda, bigM, m0, n0, seed) depend(inout:ptrA[0])
CORE_zplgsy
(
bump
,
m
,
n
,
ptrA
,
lda
,
bigM
,
m0
,
n0
,
seed
);
}
runtime/openmp/codelets/codelet_zplrnt.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
runtime/openmp/codelets/codelet_zplssq.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
@@ -60,14 +60,16 @@ void INSERT_TASK_zplssq( const RUNTIME_option_t *options,
const
CHAM_desc_t
*
SCALESUMSQ
,
int
SCALESUMSQm
,
int
SCALESUMSQn
,
const
CHAM_desc_t
*
SCLSSQ
,
int
SCLSSQm
,
int
SCLSSQn
)
{
double
*
scl
=
RTBLKADDR
(
SCLSSQ
,
double
,
SCLSSQm
,
SCLSSQn
);
double
*
scalesum
=
RTBLKADDR
(
SCALESUMSQ
,
double
,
SCALESUMSQm
,
SCALESUMSQn
);
if
(
scl
[
0
]
<
scalesum
[
0
]
)
{
scl
[
1
]
=
scalesum
[
1
]
+
(
scl
[
1
]
*
((
scl
[
0
]
/
scalesum
[
0
]
)
*
(
scl
[
0
]
/
scalesum
[
0
]
)));
scl
[
0
]
=
scalesum
[
0
];
}
else
{
scl
[
1
]
=
scl
[
1
]
+
(
scalesum
[
1
]
*
((
scalesum
[
0
]
/
scl
[
0
]
)
*
(
scalesum
[
0
]
/
scl
[
0
]
)));
double
*
scl
=
RTBLKADDR
(
SCLSSQ
,
double
,
SCLSSQm
,
SCLSSQn
);
#pragma omp task depend(in: scalesum[0]) depend(inout: scl[0])
{
if
(
scl
[
0
]
<
scalesum
[
0
]
)
{
scl
[
1
]
=
scalesum
[
1
]
+
(
scl
[
1
]
*
((
scl
[
0
]
/
scalesum
[
0
]
)
*
(
scl
[
0
]
/
scalesum
[
0
]
)));
scl
[
0
]
=
scalesum
[
0
];
}
else
{
scl
[
1
]
=
scl
[
1
]
+
(
scalesum
[
1
]
*
((
scalesum
[
0
]
/
scl
[
0
]
)
*
(
scalesum
[
0
]
/
scl
[
0
]
)));
}
}
}
...
...
@@ -76,5 +78,8 @@ void INSERT_TASK_zplssq2( const RUNTIME_option_t *options,
{
CHAMELEON_Complex64_t
*
res
=
RTBLKADDR
(
RESULT
,
CHAMELEON_Complex64_t
,
RESULTm
,
RESULTn
);
res
[
0
]
=
res
[
0
]
*
sqrt
(
res
[
1
]
);
#pragma omp task depend(inout: res[0])
{
res
[
0
]
=
res
[
0
]
*
sqrt
(
res
[
1
]
);
}
}
runtime/openmp/codelets/codelet_zpotrf.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
@@ -42,6 +42,6 @@ void INSERT_TASK_zpotrf(const RUNTIME_option_t *options,
(
void
)
nb
;
int
info
=
0
;
CHAMELEON_Complex64_t
*
ptrA
=
RTBLKADDR
(
A
,
CHAMELEON_Complex64_t
,
Am
,
An
);
#pragma omp task firstprivate(uplo, n, lda, info, ptrA) depend(inout:ptrA[0
:Am*An
])
#pragma omp task firstprivate(uplo, n, lda, info, ptrA) depend(inout:ptrA[0])
CORE_zpotrf
(
uplo
,
n
,
ptrA
,
lda
,
&
info
);
}
runtime/openmp/codelets/codelet_zssssm.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
@@ -110,9 +110,9 @@ void INSERT_TASK_zssssm(const RUNTIME_option_t *options,
CHAMELEON_Complex64_t
*
ptrL1
=
RTBLKADDR
(
L1
,
CHAMELEON_Complex64_t
,
L1m
,
L1n
);
CHAMELEON_Complex64_t
*
ptrL2
=
RTBLKADDR
(
L2
,
CHAMELEON_Complex64_t
,
L2m
,
L2n
);
#pragma omp task firstprivate(m1, n1, m2, n2, k, ib, ptrA1, ptrA2, ptrL1, ptrL2, lda1, lda2, ldl1, ldl2, IPIV)\
depend(inout:ptrA1[0
:A1m*A1n
])\
depend(inout:ptrA2[0
:A2m*A2n
])\
depend(in:ptrL1[0
:L1m*L1n
])\
depend(in:ptrL2[0
:L2m*L2n
])
depend(inout:ptrA1[0])\
depend(inout:ptrA2[0])\
depend(in:ptrL1[0])\
depend(in:ptrL2[0])
CORE_zssssm
(
m1
,
n1
,
m2
,
n2
,
k
,
ib
,
ptrA1
,
lda1
,
ptrA2
,
lda2
,
ptrL1
,
ldl1
,
ptrL2
,
ldl2
,
IPIV
);
}
runtime/openmp/codelets/codelet_zsymm.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
runtime/openmp/codelets/codelet_zsyr2k.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
@@ -44,7 +44,7 @@ void INSERT_TASK_zsyr2k(const RUNTIME_option_t *options,
CHAMELEON_Complex64_t
*
ptrA
=
RTBLKADDR
(
A
,
CHAMELEON_Complex64_t
,
Am
,
An
);
CHAMELEON_Complex64_t
*
ptrB
=
RTBLKADDR
(
B
,
CHAMELEON_Complex64_t
,
Bm
,
Bn
);
CHAMELEON_Complex64_t
*
ptrC
=
RTBLKADDR
(
C
,
CHAMELEON_Complex64_t
,
Cm
,
Cn
);
#pragma omp task firstprivate(uplo, trans, n, k, alpha, ptrA, lda, ptrB, ldb, beta, ptrC, ldc) depend(in:ptrA[0], ptrB[0]) depend(in:ptrC[0])
#pragma omp task firstprivate(uplo, trans, n, k, alpha, ptrA, lda, ptrB, ldb, beta, ptrC, ldc) depend(in:ptrA[0], ptrB[0]) depend(in
out
:ptrC[0])
CORE_zsyr2k
(
uplo
,
trans
,
n
,
k
,
alpha
,
ptrA
,
lda
,
ptrB
,
ldb
,
beta
,
ptrC
,
ldc
);
}
runtime/openmp/codelets/codelet_zsyrk.c
View file @
195a1bf8
...
...
@@ -4,7 +4,7 @@
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
* @copyright 2012-201
6
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright 2012-201
8
Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* Univ. Bordeaux. All rights reserved.
*
***
...
...
@@ -42,7 +42,7 @@ void INSERT_TASK_zsyrk(const RUNTIME_option_t *options,
(
void
)
nb
;
CHAMELEON_Complex64_t
*
ptrA
=
RTBLKADDR
(
A
,
CHAMELEON_Complex64_t
,
Am
,
An
);
CHAMELEON_Complex64_t
*
ptrC
=
RTBLKADDR
(
C
,
CHAMELEON_Complex64_t
,
Cm
,
Cn
);
#pragma omp task firstprivate(uplo, trans, n, k, alpha, ptrA, lda, beta, ptrC, ldc) depend(in:ptrA[0
:Am*An]) depend(inout:ptrC[0:Cm*Cn
])
#pragma omp task firstprivate(uplo, trans, n, k, alpha, ptrA, lda, beta, ptrC, ldc) depend(in:ptrA[0
]) depend(inout:ptrC[0
])
CORE_zsyrk
(
uplo
,
trans
,
n
,
k
,
alpha
,
ptrA
,
lda
,
...
...
runtime/openmp/codelets/codelet_zsyssq.c
View file @
195a1bf8