generating scalapack function prototypes to avoid warnings

src/elpa_generalized/cannon_forw.c

@@ -7,26 +7,8 @@
 #ifdef WITH_MPI
 #include <mpi.h>
 
-//#include <elpa/elpa.h>
-//#include <elpa/elpa_generated.h>
-//#include <elpa/elpa_constants.h>
-//#include <elpa/elpa_generated_legacy.h>
-//#include <elpa/elpa_generic.h>
-//#include <elpa/elpa_legacy.h>
-//
-void pdlacpy_(char*, int*, int*, double*, int*, int*, int*, double*, int*, int*, int*);
-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 pdtran_(int*, int*, double*, double*, int*, int*, int*, double*, double*, int*, int*, int*);
-//void pdelset_(double*, int*, int*, int*, double*);
-//void pdsymm_(char*, char*, int*, int*, double*, double*, int*, int*, int*, double*, int*, int*, int*, double*, double*, int*, int*, int*);
-//void pdpotrf_(char*, int*, double*, int*, int*, int*, int*);
-//void pdsyngst_(int*, char*, int*, double*, int*, int*, int*, double*, int*, int*, int*, double*, double*, int*, int*);
-//void descinit_(int*, int*, int*, int*, int*, int*, int*, int*, int*, int*);
+
 int numroc_(int*, int*, int*, int*, int*);
-//void set_up_blacsgrid_f1(int, int*, int*, int*, int*, int*, int*, int*);
-//void pdtrtrs_(char*, char*, char*, int*, int*, double*, int*, int*, int*, double*, int*, int*, int*, int*);
-//void pdsyevr_(char*, char*, char*, int*, double*, int*, int*, int*, int*, int*, int*, int*, int*, int*, double*, double*, int*, int*, int*, double*, int*, int*, int*, int*);
 
 #define REALCASE 1
 #define DOUBLE_PRECISION 1

src/elpa_generalized/cannon_forw_template.c

@@ -9,7 +9,12 @@
 #define cannons_reduction_c_impl cannons_reduction_c_impl_expand1(ELPA_IMPL_SUFFIX)
 
 #include "../general/precision_typedefs.h"
-//#define math_type double
+
+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)
 {