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
b7d689d1
Commit
b7d689d1
authored
Jun 07, 2017
by
BOUCHERIE Raphael
Browse files
updated header
parent
70ba5fe4
Changes
18
Hide whitespace changes
Inline
Side-by-side
compute/pzgelqf_param.c
View file @
b7d689d1
...
...
@@ -15,15 +15,10 @@
* MORSE is a software package provided by Univ. of Tennessee,
* Univ. of California Berkeley and Univ. of Colorado Denver
*
* @version 2.5.0
* @author Jakub Kurzak
* @author Hatem Ltaief
* @author Dulceneia Becker
* @version 0.0.0
* @author Mathieu Faverge
* @author Emmanuel Agullo
* @author Cedric Castagnede
* @author Raphael Boucherie
* @date 201
0-11
-1
5
* @date 201
7-05
-1
7
* @precisions normal z -> s d c
*
**/
...
...
@@ -54,7 +49,7 @@ void morse_pzgelqf_param( const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_de
int
k
,
m
,
n
,
i
,
p
;
int
K
;
int
ldak
,
ldam
,
ldap
;
int
tempkmin
,
tempkm
,
tempnn
,
tempmm
;
int
tempkmin
,
tempkm
,
tempnn
,
tempmm
,
temppn
;
int
ib
;
int
*
tiles
;
...
...
@@ -108,33 +103,33 @@ void morse_pzgelqf_param( const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_de
/* The number of the factorization */
for
(
k
=
0
;
k
<
K
;
k
++
)
{
RUNTIME_iteration_push
(
morse
,
k
);
tempkm
=
k
==
A
->
mt
-
1
?
A
->
m
-
k
*
A
->
mb
:
A
->
mb
;
tempkm
=
k
==
A
->
mt
-
1
?
A
->
m
-
k
*
A
->
mb
:
A
->
mb
;
ldak
=
BLKLDD
(
A
,
k
);
/* The number of geqrt to apply */
for
(
i
=
0
;
i
<
qrtree
->
getnbgeqrf
(
qrtree
,
k
);
i
++
)
{
n
=
qrtree
->
getm
(
qrtree
,
k
,
i
);
tempnn
=
n
==
A
->
nt
-
1
?
A
->
n
-
n
*
A
->
nb
:
A
->
nb
;
tempkmin
=
chameleon_min
(
tempnn
,
tempkm
);
ldak
=
BLKLDD
(
A
,
k
);
p
=
qrtree
->
getm
(
qrtree
,
k
,
i
);
temppn
=
p
==
A
->
nt
-
1
?
A
->
n
-
p
*
A
->
nb
:
A
->
nb
;
tempkmin
=
chameleon_min
(
tempkm
,
temppn
);
MORSE_TASK_zgelqt
(
&
options
,
tempkm
,
temp
n
n
,
ib
,
TS
->
nb
,
A
(
k
,
n
),
ldak
,
TS
(
k
,
n
),
TS
->
mb
);
if
(
k
<
(
A
->
n
t
-
1
)
)
{
tempkm
,
temp
p
n
,
ib
,
TS
->
nb
,
A
(
k
,
p
),
ldak
,
TS
(
k
,
p
),
TS
->
mb
);
if
(
k
<
(
A
->
m
t
-
1
)
)
{
#if defined(CHAMELEON_COPY_DIAG)
MORSE_TASK_zlacpy
(
&
options
,
MorseUpper
,
tempkm
,
temp
n
n
,
A
->
nb
,
A
(
k
,
n
),
ldak
,
D
(
k
,
n
),
ldak
);
MorseUpper
,
tempkm
,
temp
p
n
,
A
->
nb
,
A
(
k
,
p
),
ldak
,
D
(
k
,
p
),
ldak
);
#if defined(CHAMELEON_USE_CUDA)
MORSE_TASK_zlaset
(
&
options
,
MorseLower
,
tempkm
,
temp
n
n
,
MorseLower
,
tempkm
,
temp
p
n
,
0
.,
1
.,
D
(
k
,
n
),
ldak
);
D
(
k
,
p
),
ldak
);
#endif
#endif
}
...
...
@@ -144,10 +139,10 @@ void morse_pzgelqf_param( const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_de
MORSE_TASK_zunmlq
(
&
options
,
MorseRight
,
MorseConjTrans
,
tempmm
,
temp
n
n
,
tempkmin
,
ib
,
TS
->
nb
,
D
(
k
,
n
),
ldak
,
TS
(
k
,
n
),
TS
->
mb
,
A
(
m
,
n
),
ldam
);
tempmm
,
temp
p
n
,
tempkmin
,
ib
,
TS
->
nb
,
D
(
k
,
p
),
ldak
,
TS
(
k
,
p
),
TS
->
mb
,
A
(
m
,
p
),
ldam
);
}
}
...
...
@@ -165,7 +160,7 @@ void morse_pzgelqf_param( const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_de
MORSE_TASK_ztslqt
(
&
options
,
tempkm
,
tempnn
,
ib
,
TS
->
nb
,
A
(
k
,
p
),
lda
k
,
A
(
p
,
n
),
lda
p
,
A
(
k
,
n
),
ldak
,
TS
(
k
,
n
),
TS
->
mb
);
...
...
@@ -176,7 +171,7 @@ void morse_pzgelqf_param( const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_de
&
options
,
MorseRight
,
MorseConjTrans
,
tempmm
,
A
->
nb
,
tempmm
,
tempnn
,
tempkm
,
ib
,
TS
->
nb
,
A
(
m
,
p
),
lda
m
,
A
(
p
,
n
),
lda
p
,
A
(
m
,
n
),
ldam
,
A
(
k
,
n
),
ldak
,
TS
(
k
,
n
),
TS
->
mb
);
...
...
compute/pzgeqrf_param.c
View file @
b7d689d1
...
...
@@ -15,15 +15,10 @@
* MORSE is a software package provided by Univ. of Tennessee,
* Univ. of California Berkeley and Univ. of Colorado Denver
*
* @version 2.5.0
* @author Jakub Kurzak
* @author Hatem Ltaief
* @author Dulceneia Becker
* @version 1.0.0
* @author Mathieu Faverge
* @author Emmanuel Agullo
* @author Cedric Castagnede
* @author Raphael Boucherie
* @date 201
0-11
-1
5
* @date 201
7-05
-1
7
* @precisions normal z -> s d c
*
**/
...
...
@@ -50,7 +45,7 @@ void morse_pzgeqrf_param( const libhqr_tree_t *qrtree, MORSE_desc_t *A,
MORSE_option_t
options
;
size_t
ws_worker
=
0
;
size_t
ws_host
=
0
;
int
k
,
m
,
n
,
i
,
p
;
int
K
;
int
ldap
,
ldam
;
...
...
compute/pzunglq_param.c
View file @
b7d689d1
...
...
@@ -3,8 +3,7 @@
* @copyright (c) 2009-2014 The University of Tennessee and The University
* of Tennessee Research Foundation.
* All rights reserved.
* @copyright (c) 2012-2016 Inria. All rights reserved.
* @copyright (c) 2012-2014 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
* @copyright (c) 2012-2017 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
*
**/
...
...
@@ -16,14 +15,10 @@
* MORSE is a software package provided by Univ. of Tennessee,
* Univ. of California Berkeley and Univ. of Colorado Denver
*
* @version 2.5.0
* @comment This file has been automatically generated
* from Plasma 2.5.0 for MORSE 1.0.0
* @author Dulceneia Becker
* @version 1.0.0
* @author Mathieu Faverge
* @author Emmanuel Agullo
* @author Cedric Castagnede
* @date 2011-05-24
* @author Raphael Boucherie
* @date 2017-05-17
* @precisions normal z -> s d c
*
**/
...
...
@@ -34,7 +29,7 @@
#define TS(m,n) TS, (m), (n)
#define TT(m,n) TT, (m), (n)
#if defined(CHAMELEON_COPY_DIAG)
#define D(m,n) D, (
(n)/BS), 0
#define D(m,n) D, (
m), (n)
#else
#define D(m,n) A, (m), (n)
#endif
...
...
@@ -54,7 +49,7 @@ void morse_pzunglq_param(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_des
int
k
,
m
,
n
,
i
,
p
;
int
K
;
int
ldak
,
ldqp
,
ldqm
;
int
ldak
,
ldqm
;
int
tempkm
,
tempkmin
,
temppn
,
tempnn
,
tempmm
;
int
ib
;
int
*
tiles
;
...
...
@@ -92,16 +87,14 @@ void morse_pzunglq_param(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_des
RUNTIME_options_ws_alloc
(
&
options
,
ws_worker
,
ws_host
);
#if defined(CHAMELEON_COPY_DIAG)
{
K
=
chameleon_min
(
A
->
mt
,
A
->
nt
);
/* necessary to avoid dependencies between tasks regarding the diag tile */
int
nblk
=
(
A
->
nt
+
BS
-
1
)
/
BS
;
D
=
(
MORSE_desc_t
*
)
malloc
(
sizeof
(
MORSE_desc_t
));
morse_zdesc_alloc_diag
(
*
DIAG
,
A
->
mb
,
A
->
nb
,
nblk
*
A
->
mb
,
A
->
nb
,
0
,
0
,
nblk
*
A
->
mb
,
A
->
nb
,
A
->
p
,
A
->
q
);
}
#if defined(CHAMELEON_COPY_DIAG)
D
=
(
MORSE_desc_t
*
)
malloc
(
sizeof
(
MORSE_desc_t
));
morse_zdesc_alloc_diag
(
*
D
,
A
->
mb
,
A
->
nb
,
K
*
A
->
mb
,
A
->
nb
,
0
,
0
,
K
*
A
->
mb
,
A
->
nb
,
A
->
p
,
A
->
q
);
#endif
K
=
chameleon_min
(
A
->
mt
,
A
->
nt
);
for
(
k
=
K
-
1
;
k
>=
0
;
k
--
)
{
RUNTIME_iteration_push
(
morse
,
k
);
...
...
@@ -116,7 +109,6 @@ void morse_pzunglq_param(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_des
p
=
qrtree
->
currpiv
(
qrtree
,
k
,
n
);
tempnn
=
n
==
Q
->
nt
-
1
?
Q
->
n
-
n
*
Q
->
nb
:
Q
->
nb
;
ldqp
=
BLKLDD
(
Q
,
p
);
/* TT or TS */
...
...
@@ -152,14 +144,13 @@ void morse_pzunglq_param(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_des
for
(
i
=
0
;
i
<
qrtree
->
getnbgeqrf
(
qrtree
,
k
);
i
++
)
{
p
=
qrtree
->
getm
(
qrtree
,
k
,
i
);
temppn
=
p
==
A
->
m
t
-
1
?
A
->
m
-
p
*
A
->
m
b
:
A
->
m
b
;
temppn
=
p
==
A
->
n
t
-
1
?
A
->
n
-
p
*
A
->
n
b
:
A
->
n
b
;
tempkmin
=
chameleon_min
(
tempkm
,
temppn
);
ldqp
=
BLKLDD
(
Q
,
p
);
#if defined(CHAMELEON_COPY_DIAG)
MORSE_TASK_zlacpy
(
&
options
,
MorseUpper
,
tempkmi
m
,
temppn
,
A
->
nb
,
MorseUpper
,
tempkmi
n
,
temppn
,
A
->
nb
,
A
(
k
,
p
),
ldak
,
D
(
k
,
p
),
ldak
);
#if defined(CHAMELEON_USE_CUDA)
...
...
@@ -172,6 +163,7 @@ void morse_pzunglq_param(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_des
#endif
for
(
m
=
k
;
m
<
Q
->
mt
;
m
++
)
{
tempmm
=
m
==
Q
->
mt
-
1
?
Q
->
m
-
m
*
Q
->
mb
:
Q
->
mb
;
ldqm
=
BLKLDD
(
Q
,
m
);
MORSE_TASK_zunmlq
(
&
options
,
MorseRight
,
MorseNoTrans
,
...
...
compute/pzungqr_param.c
View file @
b7d689d1
...
...
@@ -3,8 +3,7 @@
* @copyright (c) 2009-2014 The University of Tennessee and The University
* of Tennessee Research Foundation.
* All rights reserved.
* @copyright (c) 2012-2016 Inria. All rights reserved.
* @copyright (c) 2012-2014 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
* @copyright (c) 2012-2017 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
*
**/
...
...
@@ -16,15 +15,10 @@
* MORSE is a software package provided by Univ. of Tennessee,
* Univ. of California Berkeley and Univ. of Colorado Denver
*
* @version 2.5.0
* @comment This file has been automatically generated
* from Plasma 2.5.0 for MORSE 1.0.0
* @author Hatem Ltaief
* @author Jakub Kurzak
* @version 1.0.0
* @author Mathieu Faverge
* @author Emmanuel Agullo
* @author Cedric Castagnede
* @date 2010-11-15
* @author Raphael Boucherie
* @date 2017-05-17
* @precisions normal z -> s d c
*
**/
...
...
compute/pzunmlq_param.c
View file @
b7d689d1
...
...
@@ -3,8 +3,7 @@
* @copyright (c) 2009-2014 The University of Tennessee and The University
* of Tennessee Research Foundation.
* All rights reserved.
* @copyright (c) 2012-2016 Inria. All rights reserved.
* @copyright (c) 2012-2014 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
* @copyright (c) 2012-2017 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
*
**/
...
...
@@ -50,8 +49,8 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
MORSE_desc_t
*
D
=
NULL
;
int
k
,
m
,
n
,
i
,
p
;
int
ld
an
,
ldam
,
ldbm
,
ldbn
,
ldak
,
ldbp
;
int
tempnn
,
temppn
,
tempkmin
,
tempmm
,
tempkn
,
tempkm
;
int
ld
bm
,
ldak
,
ldbp
;
int
tempnn
,
temppn
,
tempkmin
,
tempmm
,
tempkm
;
int
ib
,
K
;
int
*
tiles
;
...
...
@@ -241,7 +240,7 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
#if defined(CHAMELEON_COPY_DIAG)
MORSE_TASK_zlacpy
(
&
options
,
MorseUpper
,
tempkmi
m
,
temppn
,
A
->
nb
,
MorseUpper
,
tempkmi
n
,
temppn
,
A
->
nb
,
A
(
k
,
p
),
ldak
,
D
(
k
,
p
),
ldak
);
#if defined(CHAMELEON_USE_CUDA)
...
...
@@ -321,14 +320,14 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
for
(
i
=
0
;
i
<
qrtree
->
getnbgeqrf
(
qrtree
,
k
);
i
++
)
{
p
=
qrtree
->
getm
(
qrtree
,
k
,
i
);
temppn
=
p
==
A
->
m
t
-
1
?
A
->
m
-
p
*
A
->
m
b
:
A
->
m
b
;
temppn
=
p
==
A
->
n
t
-
1
?
A
->
n
-
p
*
A
->
n
b
:
A
->
n
b
;
tempkmin
=
chameleon_min
(
tempkm
,
temppn
);
ldbp
=
BLKLDD
(
B
,
p
);
#if defined(CHAMELEON_COPY_DIAG)
MORSE_TASK_zlacpy
(
&
options
,
MorseUpper
,
tempkmi
m
,
temppn
,
A
->
nb
,
MorseUpper
,
tempkmi
n
,
temppn
,
A
->
nb
,
A
(
k
,
p
),
ldak
,
D
(
k
,
p
),
ldak
);
#if defined(CHAMELEON_USE_CUDA)
...
...
@@ -371,13 +370,13 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
#if defined(CHAMELEON_COPY_DIAG)
MORSE_TASK_zlacpy
(
&
options
,
MorseUpper
,
tempkmin
,
temp
k
pn
,
A
->
nb
,
MorseUpper
,
tempkmin
,
temppn
,
A
->
nb
,
A
(
k
,
p
),
ldak
,
D
(
k
,
p
),
ldak
);
#if defined(CHAMELEON_USE_CUDA)
MORSE_TASK_zlaset
(
&
options
,
MorseLower
,
tempkmin
,
temp
k
pn
,
MorseLower
,
tempkmin
,
temppn
,
0
.,
1
.,
D
(
k
,
p
),
ldak
);
#endif
...
...
compute/pzunmqr_param.c
View file @
b7d689d1
...
...
@@ -3,8 +3,7 @@
* @copyright (c) 2009-2014 The University of Tennessee and The University
* of Tennessee Research Foundation.
* All rights reserved.
* @copyright (c) 2012-2016 Inria. All rights reserved.
* @copyright (c) 2012-2014 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
* @copyright (c) 2012-2017 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
*
**/
...
...
compute/zgelqf_param.c
View file @
b7d689d1
...
...
@@ -3,8 +3,7 @@
* @copyright (c) 2009-2014 The University of Tennessee and The University
* of Tennessee Research Foundation.
* All rights reserved.
* @copyright (c) 2012-2014 Inria. All rights reserved.
* @copyright (c) 2012-2014 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
* @copyright (c) 2012-2017 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
*
**/
...
...
@@ -16,15 +15,10 @@
* MORSE is a software package provided by Univ. of Tennessee,
* Univ. of California Berkeley and Univ. of Colorado Denver
*
* @version 2.5.0
* @comment This file has been automatically generated
* from Plasma 2.5.0 for MORSE 1.0.0
* @author Jakub Kurzak
* @author Dulceneia Becker
* @version 1.0.0
* @author Mathieu Faverge
* @author Emmanuel Agullo
* @author Cedric Castagnede
* @date 2010-11-15
* @author Raphael Boucherie
* @date 2017-05-17
* @precisions normal z -> s d c
*
**/
...
...
@@ -39,6 +33,9 @@
*
*******************************************************************************
*
* @param[in] qrtree
* The tree used for the factorization
*
* @param[in] M
* The number of rows of the matrix A. M >= 0.
*
...
...
compute/zgelqs_param.c
View file @
b7d689d1
...
...
@@ -3,8 +3,7 @@
* @copyright (c) 2009-2014 The University of Tennessee and The University
* of Tennessee Research Foundation.
* All rights reserved.
* @copyright (c) 2012-2014 Inria. All rights reserved.
* @copyright (c) 2012-2014 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
* @copyright (c) 2012-2017 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
*
**/
...
...
@@ -16,20 +15,17 @@
* MORSE is a software package provided by Univ. of Tennessee,
* Univ. of California Berkeley and Univ. of Colorado Denver
*
* @version 2.5.0
* @comment This file has been automatically generated
* from Plasma 2.5.0 for MORSE 1.0.0
* @author Jakub Kurzak
* @version 1.0.0
* @author Raphael Boucherie
* @author Mathieu Faverge
* @author Emmanuel Agullo
* @author Cedric Castagnede
* @date 2010-11-15
* @date 2017-05-17
* @precisions normal z -> s d c
*
**/
#include "control/common.h"
/***************************************************************************//**
/**
*******************************************************************************
*
* @ingroup MORSE_Complex64_t
*
...
...
@@ -38,6 +34,9 @@
*
*******************************************************************************
*
* @param[in] qrtree
* The tree used for the factorization
*
* @param[in] M
* The number of rows of the matrix A. M >= 0.
*
...
...
@@ -53,7 +52,10 @@
* @param[in] LDA
* The leading dimension of the array A. LDA >= M.
*
* @param[in] descT
* @param[in] descTS
* Auxiliary factorization data, computed by MORSE_zgelqf.
*
* @param[in] descTT
* Auxiliary factorization data, computed by MORSE_zgelqf.
*
* @param[in,out] B
...
...
@@ -184,7 +186,10 @@ int MORSE_zgelqs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
* @param[in] A
* Details of the LQ factorization of the original matrix A as returned by MORSE_zgelqf.
*
* @param[in] T
* @param[in] TS
* Auxiliary factorization data, computed by MORSE_zgelqf.
*
* @param[in] TT
* Auxiliary factorization data, computed by MORSE_zgelqf.
*
* @param[in,out] B
...
...
compute/zgels_param.c
View file @
b7d689d1
...
...
@@ -3,8 +3,7 @@
* @copyright (c) 2009-2014 The University of Tennessee and The University
* of Tennessee Research Foundation.
* All rights reserved.
* @copyright (c) 2012-2014 Inria. All rights reserved.
* @copyright (c) 2012-2014 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
* @copyright (c) 2012-2017 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
*
**/
...
...
@@ -16,14 +15,10 @@
* MORSE is a software package provided by Univ. of Tennessee,
* Univ. of California Berkeley and Univ. of Colorado Denver
*
* @version 2.5.0
* @comment This file has been automatically generated
* from Plasma 2.5.0 for MORSE 1.0.0
* @author Jakub Kurzak
* @version 1.0.0
* @author Raphael Boucherie
* @author Mathieu Faverge
* @author Emmanuel Agullo
* @author Cedric Castagnede
* @date 2010-11-15
* @date 2017-05-17
* @precisions normal z -> s d c
*
**/
...
...
@@ -50,6 +45,9 @@
*
*******************************************************************************
*
* @param[in] qrtree
* The tree used for the factorization
*
* @param[in] trans
* Intended usage:
* = MorseNoTrans: the linear system involves A;
...
...
@@ -77,7 +75,10 @@
* @param[in] LDA
* The leading dimension of the array A. LDA >= max(1,M).
*
* @param[out] descT
* @param[out] descTS
* On exit, auxiliary factorization data.
*
* @param[out] descTT
* On exit, auxiliary factorization data.
*
* @param[in,out] B
...
...
@@ -245,7 +246,10 @@ int MORSE_zgels_param(const libhqr_tree_t *qrtree, MORSE_enum trans, int M, int
* if M < N, A is overwritten by details of its LQ factorization as returned by
* MORSE_zgelqf.
*
* @param[out] T
* @param[out] TS
* On exit, auxiliary factorization data.
*
* @param[out] TT
* On exit, auxiliary factorization data.
*
* @param[in,out] B
...
...
compute/zgeqrf_param.c
View file @
b7d689d1
...
...
@@ -3,8 +3,7 @@
* @copyright (c) 2009-2014 The University of Tennessee and The University
* of Tennessee Research Foundation.
* All rights reserved.
* @copyright (c) 2012-2014 Inria. All rights reserved.
* @copyright (c) 2012-2014 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
* @copyright (c) 2012-2017 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
*
**/
...
...
@@ -16,15 +15,10 @@
* MORSE is a software package provided by Univ. of Tennessee,
* Univ. of California Berkeley and Univ. of Colorado Denver
*
* @version 2.5.0
* @comment This file has been automatically generated
* from Plasma 2.5.0 for MORSE 1.0.0
* @author Jakub Kurzak
* @version 1.0.0
* @author Mathieu Faverge
* @author Emmanuel Agullo
* @author Cedric Castagnede
* @author Raphael Boucherie
* @date 201
0-11
-1
5
* @date 201
7-05
-1
7
* @precisions normal z -> s d c
*
**/
...
...
compute/zgeqrs_param.c
View file @
b7d689d1
...
...
@@ -3,8 +3,7 @@
* @copyright (c) 2009-2014 The University of Tennessee and The University
* of Tennessee Research Foundation.
* All rights reserved.
* @copyright (c) 2012-2014 Inria. All rights reserved.
* @copyright (c) 2012-2014 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
* @copyright (c) 2012-2017 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
*
**/
...
...
@@ -16,14 +15,10 @@
* MORSE is a software package provided by Univ. of Tennessee,
* Univ. of California Berkeley and Univ. of Colorado Denver
*
* @version 2.5.0
* @comment This file has been automatically generated
* from Plasma 2.5.0 for MORSE 1.0.0
* @author Jakub Kurzak
* @version 1.0.0
* @author Mathieu Faverge
* @author Emmanuel Agullo
* @author Cedric Castagnede
* @date 2010-11-15
* @author Raphael Boucherie
* @date 2017-05-17
* @precisions normal z -> s d c
*
**/
...
...
@@ -269,7 +264,7 @@ int MORSE_zgeqrs_param_Tile_Async(const libhqr_tree_t *qrtree,
MORSE_desc_t
*
subB
;
MORSE_context_t
*
morse
;
MORSE_desc_t
D
;
morse
=
morse_context_self
();
if
(
morse
==
NULL
)
{
morse_fatal_error
(
"MORSE_zgeqrs_param_Tile"
,
"MORSE not initialized"
);
...
...
compute/zunglq_param.c
View file @
b7d689d1
...
...
@@ -3,8 +3,7 @@
* @copyright (c) 2009-2014 The University of Tennessee and The University
* of Tennessee Research Foundation.
* All rights reserved.
* @copyright (c) 2012-2014 Inria. All rights reserved.
* @copyright (c) 2012-2014 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
* @copyright (c) 2012-2017 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
*
**/
...
...
@@ -16,15 +15,10 @@
* MORSE is a software package provided by Univ. of Tennessee,
* Univ. of California Berkeley and Univ. of Colorado Denver
*
* @version 2.5.0
* @comment This file has been automatically generated
* from Plasma 2.5.0 for MORSE 1.0.0
* @author Hatem Ltaief
* @author Jakub Kurzak
* @version 1.0.0
* @author Mathieu Faverge
* @author Emmanuel Agullo
* @author Cedric Castagnede
* @date 2010-11-15
* @author Raphael Boucherie
* @date 2017-05-17
* @precisions normal z -> s d c
*
**/
...
...
@@ -40,6 +34,9 @@
*
*******************************************************************************
*
* @param[in] qrtree
* The tree used for the factorization
*
* @param[in] M
* The number of rows of the matrix Q. M >= 0.
*
...
...
compute/zungqr_param.c
View file @
b7d689d1
...
...
@@ -3,8 +3,7 @@
* @copyright (c) 2009-2014 The University of Tennessee and The University
* of Tennessee Research Foundation.
* All rights reserved.
* @copyright (c) 2012-2014 Inria. All rights reserved.
* @copyright (c) 2012-2014 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
* @copyright (c) 2012-2017 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
*
**/
...
...
@@ -16,15 +15,10 @@
* MORSE is a software package provided by Univ. of Tennessee,
* Univ. of California Berkeley and Univ. of Colorado Denver
*
* @version 2.5.0
* @comment This file has been automatically generated
* from Plasma 2.5.0 for MORSE 1.0.0
* @author Hatem Ltaief
* @author Jakub Kurzak
* @version 1.0.0
* @author Mathieu Faverge
* @author Emmanuel Agullo
* @author Cedric Castagnede
* @date 2010-11-15
* @author Raphael Boucherie
* @date 2017-05-17
* @precisions normal z -> s d c
*
**/
...
...
compute/zunmlq_param.c
View file @
b7d689d1
...
...
@@ -3,8 +3,7 @@
* @copyright (c) 2009-2014 The University of Tennessee and The University
* of Tennessee Research Foundation.
* All rights reserved.