Commit 206868b3 authored by Andreas Marek's avatar Andreas Marek

Lapack and Scalapack interfaces for C parts

parent 2ec31d9f
......@@ -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
......
......@@ -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)
......
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*);
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*);
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment