Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
AGULLO Emmanuel
Chameleon
Commits
812732a2
Commit
812732a2
authored
Jan 15, 2018
by
Mathieu Faverge
Browse files
Remove unused tile_to_zero
parent
99b1c7ee
Changes
5
Hide whitespace changes
Inline
Side-by-side
compute/pztile.c
View file @
812732a2
...
...
@@ -126,36 +126,3 @@ void morse_pztile_to_lapack(MORSE_desc_t *A, MORSE_Complex64_t *Af77, int ldaf77
RUNTIME_options_finalize
(
&
options
,
morse
);
RUNTIME_desc_destroy
(
&
B
);
}
/*******************************************************************************
* Zeroes a submatrix in tile layout - dynamic scheduling
**/
void
morse_pztile_zero
(
MORSE_desc_t
*
A
,
MORSE_sequence_t
*
sequence
,
MORSE_request_t
*
request
)
{
MORSE_context_t
*
morse
;
MORSE_option_t
options
;
int
m
,
n
;
int
ldam
;
int
tempmm
,
tempnn
;
morse
=
morse_context_self
();
if
(
sequence
->
status
!=
MORSE_SUCCESS
)
return
;
RUNTIME_options_init
(
&
options
,
morse
,
sequence
,
request
);
for
(
m
=
0
;
m
<
A
->
mt
;
m
++
)
{
tempmm
=
m
==
A
->
mt
-
1
?
A
->
m
-
m
*
A
->
mb
:
A
->
mb
;
ldam
=
BLKLDD
(
A
,
m
);
for
(
n
=
0
;
n
<
A
->
nt
;
n
++
)
{
tempnn
=
n
==
A
->
nt
-
1
?
A
->
n
-
n
*
A
->
nb
:
A
->
nb
;
MORSE_TASK_ztile_zero
(
&
options
,
0
,
tempnn
,
0
,
tempmm
,
A
(
m
,
n
),
ldam
);
}
}
RUNTIME_sequence_wait
(
morse
,
sequence
);
RUNTIME_options_finalize
(
&
options
,
morse
);
}
compute/zgelqs.c
View file @
812732a2
...
...
@@ -313,8 +313,8 @@ int MORSE_zgelqs_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B,
}
*/
/* subB = morse_desc_submatrix(B, A->m, 0, A->n-A->m, B->n);
morse_pz
tile_zero(
subB, sequence, request);
free(subB); */
morse_pz
laset( MorseUpperLower, 0., 0.,
subB, sequence, request
);
free(subB); */
subB
=
morse_desc_submatrix
(
B
,
0
,
0
,
A
->
m
,
B
->
n
);
subA
=
morse_desc_submatrix
(
A
,
0
,
0
,
A
->
m
,
A
->
m
);
...
...
compute/zgelqs_param.c
View file @
812732a2
...
...
@@ -322,7 +322,7 @@ int MORSE_zgelqs_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
}
*/
/* subB = morse_desc_submatrix(B, A->m, 0, A->n-A->m, B->n);
morse_pz
tile_zero(
subB, sequence, request);
morse_pz
laset( MorseUpperLower, 0., 0.,
subB, sequence, request);
free(subB); */
subB
=
morse_desc_submatrix
(
B
,
0
,
0
,
A
->
m
,
B
->
n
);
...
...
compute/zgels.c
View file @
812732a2
...
...
@@ -409,7 +409,7 @@ int MORSE_zgels_Tile_Async(MORSE_enum trans, MORSE_desc_t *A,
}
else
{
/* subB = morse_desc_submatrix(B, A->m, 0, A->n-A->m, B->n);
morse_pz
tile_zero(
subB, sequence, request);
morse_pz
laset( MorseUpperLower, 0., 0.,
subB, sequence, request);
free(subB); */
#if defined(CHAMELEON_COPY_DIAG)
{
...
...
control/tile.h
View file @
812732a2
...
...
@@ -51,11 +51,6 @@ void morse_pclapack_to_tile(MORSE_Complex32_t*, int, MORSE_desc_t*, MORSE_sequen
void
morse_pdlapack_to_tile
(
double
*
,
int
,
MORSE_desc_t
*
,
MORSE_sequence_t
*
sequence
,
MORSE_request_t
*
request
);
void
morse_pslapack_to_tile
(
float
*
,
int
,
MORSE_desc_t
*
,
MORSE_sequence_t
*
sequence
,
MORSE_request_t
*
request
);
void
morse_pztile_zero
(
MORSE_desc_t
*
dA
,
MORSE_sequence_t
*
sequence
,
MORSE_request_t
*
request
);
void
morse_pctile_zero
(
MORSE_desc_t
*
dA
,
MORSE_sequence_t
*
sequence
,
MORSE_request_t
*
request
);
void
morse_pdtile_zero
(
MORSE_desc_t
*
dA
,
MORSE_sequence_t
*
sequence
,
MORSE_request_t
*
request
);
void
morse_pstile_zero
(
MORSE_desc_t
*
dA
,
MORSE_sequence_t
*
sequence
,
MORSE_request_t
*
request
);
#ifdef __cplusplus
}
#endif
...
...
Write
Preview
Markdown
is supported
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