Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Sebastian Ohlmann
elpa
Commits
206868b3
Commit
206868b3
authored
Sep 23, 2019
by
Andreas Marek
Browse files
Lapack and Scalapack interfaces for C parts
parent
2ec31d9f
Changes
4
Hide whitespace changes
Inline
Side-by-side
Makefile.am
View file @
206868b3
...
...
@@ -478,6 +478,8 @@ BUILT_SOURCES = $(generated_headers)
elpa_includedir
=
$(includedir)
/elpa@SUFFIX@-@PACKAGE_VERSION@
nobase_elpa_include_HEADERS
=
\
$(
wildcard
modules/
*
)
\
src/helpers/lapack_interfaces.h
\
src/helpers/scalapack_interfaces.h
\
elpa/elpa.h
\
elpa/elpa_generic.h
\
elpa/elpa_legacy.h
...
...
src/elpa_generalized/cannon_forw_template.c
View file @
206868b3
...
...
@@ -66,10 +66,13 @@
#include
"../general/precision_typedefs.h"
void
C_PLACPY
(
char
*
,
int
*
,
int
*
,
math_type
*
,
int
*
,
int
*
,
int
*
,
math_type
*
,
int
*
,
int
*
,
int
*
);
void
C_LACPY
(
char
*
,
int
*
,
int
*
,
math_type
*
,
int
*
,
math_type
*
,
int
*
);
void
C_GEMM
(
char
*
,
char
*
,
int
*
,
int
*
,
int
*
,
math_type
*
,
math_type
*
,
int
*
,
math_type
*
,
int
*
,
math_type
*
,
math_type
*
,
int
*
);
void
C_PTRAN
(
int
*
,
int
*
,
math_type
*
,
math_type
*
,
int
*
,
int
*
,
int
*
,
math_type
*
,
math_type
*
,
int
*
,
int
*
,
int
*
);
#include
"../helpers/lapack_interfaces.h"
#include
"../helpers/scalapack_interfaces.h"
//void C_PLACPY(char*, int*, int*, math_type*, int*, int*, int*, math_type*, int*, int*, int*);
//void C_LACPY(char*, int*, int*, math_type*, int*, math_type*, int*);
//void C_GEMM(char*, char*, int*, int*, int*, math_type*, math_type*, int*, math_type*, int*, math_type*, math_type*, int*);
//void C_PTRAN(int*, int*, math_type*, math_type*, int*, int*, int*, math_type*, math_type*, int*, int*, int*);
void
cannons_reduction_impl
(
math_type
*
A
,
math_type
*
U
,
int
np_rows
,
int
np_cols
,
int
my_prow
,
int
my_pcol
,
int
*
a_desc
,
math_type
*
Res
,
int
ToStore
,
MPI_Comm
row_comm
,
MPI_Comm
col_comm
)
...
...
src/helpers/lapack_interfaces.h
0 → 100644
View file @
206868b3
void
dlacpy_
(
char
*
,
int
*
,
int
*
,
double
*
,
int
*
,
double
*
,
int
*
);
void
dgemm_
(
char
*
,
char
*
,
int
*
,
int
*
,
int
*
,
double
*
,
double
*
,
int
*
,
double
*
,
int
*
,
double
*
,
double
*
,
int
*
);
void
slacpy_
(
char
*
,
int
*
,
int
*
,
float
*
,
int
*
,
float
*
,
int
*
);
void
sgemm_
(
char
*
,
char
*
,
int
*
,
int
*
,
int
*
,
float
*
,
float
*
,
int
*
,
float
*
,
int
*
,
float
*
,
float
*
,
int
*
);
void
zlacpy_
(
char
*
,
int
*
,
int
*
,
double
complex
*
,
int
*
,
double
complex
*
,
int
*
);
void
zgemm_
(
char
*
,
char
*
,
int
*
,
int
*
,
int
*
,
double
complex
*
,
double
complex
*
,
int
*
,
double
complex
*
,
int
*
,
double
complex
*
,
double
complex
*
,
int
*
);
void
clacpy_
(
char
*
,
int
*
,
int
*
,
float
complex
*
,
int
*
,
float
complex
*
,
int
*
);
void
cgemm_
(
char
*
,
char
*
,
int
*
,
int
*
,
int
*
,
float
complex
*
,
float
complex
*
,
int
*
,
float
complex
*
,
int
*
,
float
complex
*
,
float
complex
*
,
int
*
);
src/helpers/scalapack_interfaces.h
0 → 100644
View file @
206868b3
void
pdlacpy_
(
char
*
,
int
*
,
int
*
,
double
*
,
int
*
,
int
*
,
int
*
,
double
*
,
int
*
,
int
*
,
int
*
);
void
pslacpy_
(
char
*
,
int
*
,
int
*
,
float
*
,
int
*
,
int
*
,
int
*
,
float
*
,
int
*
,
int
*
,
int
*
);
void
pzlacpy_
(
char
*
,
int
*
,
int
*
,
double
complex
*
,
int
*
,
int
*
,
int
*
,
double
complex
*
,
int
*
,
int
*
,
int
*
);
void
pclacpy_
(
char
*
,
int
*
,
int
*
,
float
complex
*
,
int
*
,
int
*
,
int
*
,
float
complex
*
,
int
*
,
int
*
,
int
*
);
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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