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
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
AGULLO Emmanuel
Chameleon
Commits
2e728b00
Commit
2e728b00
authored
Jan 25, 2018
by
Mathieu Faverge
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Add missing flush in QR functions
parent
e3bdbf60
Changes
24
Hide whitespace changes
Inline
Side-by-side
Showing
24 changed files
with
35 additions
and
2 deletions
+35
-2
compute/pzgeqrfrh.c
compute/pzgeqrfrh.c
+2
-2
compute/zgelqf.c
compute/zgelqf.c
+1
-0
compute/zgelqf_param.c
compute/zgelqf_param.c
+2
-0
compute/zgelqs.c
compute/zgelqs.c
+1
-0
compute/zgelqs_param.c
compute/zgelqs_param.c
+2
-0
compute/zgels.c
compute/zgels.c
+1
-0
compute/zgels_param.c
compute/zgels_param.c
+2
-0
compute/zgeqrf.c
compute/zgeqrf.c
+1
-0
compute/zgeqrf_param.c
compute/zgeqrf_param.c
+2
-0
compute/zgeqrs.c
compute/zgeqrs.c
+1
-0
compute/zgeqrs_param.c
compute/zgeqrs_param.c
+2
-0
compute/zgesv_incpiv.c
compute/zgesv_incpiv.c
+1
-0
compute/zgetrf_incpiv.c
compute/zgetrf_incpiv.c
+1
-0
compute/zgetrs_incpiv.c
compute/zgetrs_incpiv.c
+1
-0
compute/ztpgqrt.c
compute/ztpgqrt.c
+2
-0
compute/ztpqrt.c
compute/ztpqrt.c
+1
-0
compute/zunglq.c
compute/zunglq.c
+1
-0
compute/zunglq_param.c
compute/zunglq_param.c
+2
-0
compute/zungqr.c
compute/zungqr.c
+1
-0
compute/zungqr_param.c
compute/zungqr_param.c
+2
-0
compute/zunmlq.c
compute/zunmlq.c
+1
-0
compute/zunmlq_param.c
compute/zunmlq_param.c
+2
-0
compute/zunmqr.c
compute/zunmqr.c
+1
-0
compute/zunmqr_param.c
compute/zunmqr_param.c
+2
-0
No files found.
compute/pzgeqrfrh.c
View file @
2e728b00
...
...
@@ -31,8 +31,8 @@
**/
#include "control/common.h"
#define A(m,n) A, (m), (n)
#define T(m,n) T, (m), (n)
#define A(m,n)
A, (m), (n)
#define T(m,n)
T, (m), (n)
#define T2(m,n) T, (m), ((n)+A->nt)
#if defined(CHAMELEON_COPY_DIAG)
#define D(m,n) D, ((m)/BS), 0
...
...
compute/zgelqf.c
View file @
2e728b00
...
...
@@ -132,6 +132,7 @@ int MORSE_zgelqf( int M, int N,
/* Submit the matrix conversion back */
morse_ztile2lap
(
morse
,
&
descAl
,
&
descAt
,
MorseDescInout
,
MorseUpperLower
,
sequence
,
&
request
);
MORSE_Desc_Flush
(
descT
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
...
...
compute/zgelqf_param.c
View file @
2e728b00
...
...
@@ -129,6 +129,8 @@ int MORSE_zgelqf_param( const libhqr_tree_t *qrtree, int M, int N,
/* Submit the matrix conversion back */
morse_ztile2lap
(
morse
,
&
descAl
,
&
descAt
,
MorseDescInout
,
MorseUpperLower
,
sequence
,
&
request
);
MORSE_Desc_Flush
(
descTS
,
sequence
);
MORSE_Desc_Flush
(
descTT
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
...
...
compute/zgelqs.c
View file @
2e728b00
...
...
@@ -152,6 +152,7 @@ int MORSE_zgelqs( int M, int N, int NRHS,
MorseDescInput
,
MorseUpperLower
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descBl
,
&
descBt
,
MorseDescInout
,
MorseUpperLower
,
sequence
,
&
request
);
MORSE_Desc_Flush
(
descT
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
...
...
compute/zgelqs_param.c
View file @
2e728b00
...
...
@@ -154,6 +154,8 @@ int MORSE_zgelqs_param( const libhqr_tree_t *qrtree, int M, int N, int NRHS,
MorseDescInput
,
MorseUpperLower
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descBl
,
&
descBt
,
MorseDescInout
,
MorseUpperLower
,
sequence
,
&
request
);
MORSE_Desc_Flush
(
descTS
,
sequence
);
MORSE_Desc_Flush
(
descTT
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
...
...
compute/zgels.c
View file @
2e728b00
...
...
@@ -194,6 +194,7 @@ int MORSE_zgels( MORSE_enum trans, int M, int N, int NRHS,
MorseDescInout
,
MorseUpperLower
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descBl
,
&
descBt
,
MorseDescInout
,
MorseUpperLower
,
sequence
,
&
request
);
MORSE_Desc_Flush
(
descT
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
...
...
compute/zgels_param.c
View file @
2e728b00
...
...
@@ -195,6 +195,8 @@ int MORSE_zgels_param( const libhqr_tree_t *qrtree, MORSE_enum trans, int M, int
MorseDescInout
,
MorseUpperLower
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descBl
,
&
descBt
,
MorseDescInout
,
MorseUpperLower
,
sequence
,
&
request
);
MORSE_Desc_Flush
(
descTS
,
sequence
);
MORSE_Desc_Flush
(
descTT
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
...
...
compute/zgeqrf.c
View file @
2e728b00
...
...
@@ -131,6 +131,7 @@ int MORSE_zgeqrf( int M, int N,
/* Submit the matrix conversion back */
morse_ztile2lap
(
morse
,
&
descAl
,
&
descAt
,
MorseDescInout
,
MorseUpperLower
,
sequence
,
&
request
);
MORSE_Desc_Flush
(
descT
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
...
...
compute/zgeqrf_param.c
View file @
2e728b00
...
...
@@ -134,6 +134,8 @@ int MORSE_zgeqrf_param( const libhqr_tree_t *qrtree, int M, int N,
/* Submit the matrix conversion back */
morse_ztile2lap
(
morse
,
&
descAl
,
&
descAt
,
MorseDescInout
,
MorseUpperLower
,
sequence
,
&
request
);
MORSE_Desc_Flush
(
descTS
,
sequence
);
MORSE_Desc_Flush
(
descTT
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
...
...
compute/zgeqrs.c
View file @
2e728b00
...
...
@@ -152,6 +152,7 @@ int MORSE_zgeqrs( int M, int N, int NRHS,
MorseDescInput
,
MorseUpperLower
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descBl
,
&
descBt
,
MorseDescInout
,
MorseUpperLower
,
sequence
,
&
request
);
MORSE_Desc_Flush
(
descT
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
...
...
compute/zgeqrs_param.c
View file @
2e728b00
...
...
@@ -147,6 +147,8 @@ int MORSE_zgeqrs_param( const libhqr_tree_t *qrtree, int M, int N, int NRHS,
MorseDescInput
,
MorseUpperLower
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descBl
,
&
descBt
,
MorseDescInout
,
MorseUpperLower
,
sequence
,
&
request
);
MORSE_Desc_Flush
(
descTS
,
sequence
);
MORSE_Desc_Flush
(
descTT
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
...
...
compute/zgesv_incpiv.c
View file @
2e728b00
...
...
@@ -151,6 +151,7 @@ int MORSE_zgesv_incpiv( int N, int NRHS,
MorseDescInout
,
MorseUpperLower
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descBl
,
&
descBt
,
MorseDescInout
,
MorseUpperLower
,
sequence
,
&
request
);
MORSE_Desc_Flush
(
descL
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
...
...
compute/zgetrf_incpiv.c
View file @
2e728b00
...
...
@@ -133,6 +133,7 @@ int MORSE_zgetrf_incpiv( int M, int N,
/* Submit the matrix conversion back */
morse_ztile2lap
(
morse
,
&
descAl
,
&
descAt
,
MorseDescInout
,
MorseUpperLower
,
sequence
,
&
request
);
MORSE_Desc_Flush
(
descL
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
...
...
compute/zgetrs_incpiv.c
View file @
2e728b00
...
...
@@ -157,6 +157,7 @@ int MORSE_zgetrs_incpiv( MORSE_enum trans, int N, int NRHS,
MorseDescInput
,
MorseUpperLower
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descBl
,
&
descBt
,
MorseDescInout
,
MorseUpperLower
,
sequence
,
&
request
);
MORSE_Desc_Flush
(
descL
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
...
...
compute/ztpgqrt.c
View file @
2e728b00
...
...
@@ -232,6 +232,8 @@ int MORSE_ztpgqrt( int M, int N, int K, int L,
MorseDescInout
,
MorseUpperLower
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descQ2l
,
&
descQ2t
,
MorseDescInout
,
MorseUpperLower
,
sequence
,
&
request
);
MORSE_Desc_Flush
(
descT1
,
sequence
);
MORSE_Desc_Flush
(
descT2
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
...
...
compute/ztpqrt.c
View file @
2e728b00
...
...
@@ -200,6 +200,7 @@ int MORSE_ztpqrt( int M, int N, int L,
MorseDescInout
,
MorseUpper
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descBl
,
&
descBt
,
MorseDescInout
,
MorseUpperLower
,
sequence
,
&
request
);
MORSE_Desc_Flush
(
descT
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
...
...
compute/zunglq.c
View file @
2e728b00
...
...
@@ -151,6 +151,7 @@ int MORSE_zunglq( int M, int N, int K,
MorseDescInput
,
MorseUpper
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descQl
,
&
descQt
,
MorseDescInout
,
MorseUpperLower
,
sequence
,
&
request
);
MORSE_Desc_Flush
(
descT
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
...
...
compute/zunglq_param.c
View file @
2e728b00
...
...
@@ -148,6 +148,8 @@ int MORSE_zunglq_param( const libhqr_tree_t *qrtree, int M, int N, int K,
MorseDescInput
,
MorseUpper
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descQl
,
&
descQt
,
MorseDescInout
,
MorseUpperLower
,
sequence
,
&
request
);
MORSE_Desc_Flush
(
descTS
,
sequence
);
MORSE_Desc_Flush
(
descTT
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
...
...
compute/zungqr.c
View file @
2e728b00
...
...
@@ -150,6 +150,7 @@ int MORSE_zungqr( int M, int N, int K,
MorseDescInput
,
MorseLower
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descQl
,
&
descQt
,
MorseDescInout
,
MorseUpperLower
,
sequence
,
&
request
);
MORSE_Desc_Flush
(
descT
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
...
...
compute/zungqr_param.c
View file @
2e728b00
...
...
@@ -149,6 +149,8 @@ int MORSE_zungqr_param( const libhqr_tree_t *qrtree,
MorseDescInput
,
MorseLower
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descQl
,
&
descQt
,
MorseDescInout
,
MorseUpperLower
,
sequence
,
&
request
);
MORSE_Desc_Flush
(
descTS
,
sequence
);
MORSE_Desc_Flush
(
descTT
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
...
...
compute/zunmlq.c
View file @
2e728b00
...
...
@@ -188,6 +188,7 @@ int MORSE_zunmlq( MORSE_enum side, MORSE_enum trans, int M, int N, int K,
MorseDescInput
,
MorseUpper
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descCl
,
&
descCt
,
MorseDescInout
,
MorseUpperLower
,
sequence
,
&
request
);
MORSE_Desc_Flush
(
descT
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
...
...
compute/zunmlq_param.c
View file @
2e728b00
...
...
@@ -187,6 +187,8 @@ int MORSE_zunmlq_param( const libhqr_tree_t *qrtree, MORSE_enum side, MORSE_enum
MorseDescInput
,
MorseUpper
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descCl
,
&
descCt
,
MorseDescInout
,
MorseUpperLower
,
sequence
,
&
request
);
MORSE_Desc_Flush
(
descTS
,
sequence
);
MORSE_Desc_Flush
(
descTT
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
...
...
compute/zunmqr.c
View file @
2e728b00
...
...
@@ -191,6 +191,7 @@ int MORSE_zunmqr( MORSE_enum side, MORSE_enum trans, int M, int N, int K,
MorseDescInput
,
MorseLower
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descCl
,
&
descCt
,
MorseDescInout
,
MorseUpperLower
,
sequence
,
&
request
);
MORSE_Desc_Flush
(
descT
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
...
...
compute/zunmqr_param.c
View file @
2e728b00
...
...
@@ -192,6 +192,8 @@ int MORSE_zunmqr_param( const libhqr_tree_t *qrtree,
MorseDescInput
,
MorseLower
,
sequence
,
&
request
);
morse_ztile2lap
(
morse
,
&
descCl
,
&
descCt
,
MorseDescInout
,
MorseUpperLower
,
sequence
,
&
request
);
MORSE_Desc_Flush
(
descTS
,
sequence
);
MORSE_Desc_Flush
(
descTT
,
sequence
);
morse_sequence_wait
(
morse
,
sequence
);
...
...
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