Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
AGULLO Emmanuel
Chameleon
Commits
195a1bf8
Commit
195a1bf8
authored
Dec 07, 2018
by
Philippe Virouleau
Browse files
Final fixes to make tests pass
parent
4f60cf7c
Changes
56
Hide whitespace changes
Inline
Side-by-side
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.
*
***
...
...
Prev
1
2
3
Next
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment