PLASMA
2.4.5
PLASMA - Parallel Linear Algebra for Scalable Multi-core Architectures
Main Page
Modules
Namespaces
Data Structures
Files
File List
Globals
All
Data Structures
Namespaces
Files
Functions
Variables
Typedefs
Enumerations
Enumerator
Macros
Groups
time_zposv_tile.c
Go to the documentation of this file.
1
6
#define _TYPE PLASMA_Complex64_t
7
#define _PREC double
8
#define _LAMCH LAPACKE_dlamch_work
9
10
#define _NAME "PLASMA_zposv_Tile"
11
/* See Lawn 41 page 120 */
12
#define _FMULS (FMULS_POTRF( N ) + FMULS_POTRS( N, NRHS ))
13
#define _FADDS (FADDS_POTRF( N ) + FADDS_POTRS( N, NRHS ))
14
15
#include "
./timing.c
"
16
17
static
int
18
RunTest(
int
*iparam,
double
*dparam,
real_Double_t
*t_)
19
{
20
PASTE_CODE_IPARAM_LOCALS
( iparam );
21
PLASMA_enum
uplo
=
PlasmaUpper
;
22
23
LDA =
max
(LDA, N);
24
25
/* Allocate Data */
26
PASTE_CODE_ALLOCATE_MATRIX_TILE
( descA, 1,
PLASMA_Complex64_t
,
PlasmaComplexDouble
, LDA, N, N );
27
PASTE_CODE_ALLOCATE_MATRIX_TILE
( descB, 1,
PLASMA_Complex64_t
,
PlasmaComplexDouble
, LDB, N, NRHS );
28
29
/* Initialize AT and bT for Symmetric Positif Matrix */
30
PLASMA_zplghe_Tile
((
double
)N, descA, 51 );
31
PLASMA_zplrnt_Tile
( descB, 7732 );
32
33
/* Save AT and bT in lapack layout for check */
34
PASTE_TILE_TO_LAPACK
( descA,
A
, check,
PLASMA_Complex64_t
, LDA, N );
35
PASTE_TILE_TO_LAPACK
( descB,
B
, check,
PLASMA_Complex64_t
, LDB, NRHS );
36
37
/* PLASMA ZPOSV */
38
START_TIMING
();
39
PLASMA_zposv_Tile
(uplo, descA, descB);
40
STOP_TIMING
();
41
42
/* Check the solution */
43
if
(check)
44
{
45
PASTE_TILE_TO_LAPACK
( descB, X, check,
PLASMA_Complex64_t
, LDB, NRHS );
46
47
dparam[
IPARAM_RES
] =
z_check_solution
(N, N, NRHS,
A
, LDA,
B
, X, LDB,
48
&(dparam[
IPARAM_ANORM
]),
49
&(dparam[
IPARAM_BNORM
]),
50
&(dparam[
IPARAM_XNORM
]));
51
free(
A
); free(
B
); free(X);
52
}
53
54
PASTE_CODE_FREE_MATRIX
( descA );
55
PASTE_CODE_FREE_MATRIX
( descB );
56
57
return
0;
58
}
plasma_2.4.5
timing
time_zposv_tile.c
Generated on Mon Jul 9 2012 12:45:08 for PLASMA by
1.8.1