Lapack and Scalapack interfaces for C parts

Makefile.am

@@ -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

@@ -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

+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

+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*);
+
+