fix for gcc >=14 and -std=gnu23

edoapra · Feb 19, 2025 · 16b1870 · 16b1870
1 parent 55f0d20
commit 16b1870
Show file tree

Hide file tree

Showing 27 changed files with 7 additions and 72 deletions.
diff --git a/src/peigs/ctof/bortho_f.c b/src/peigs/ctof/bortho_f.c
@@ -110,7 +110,6 @@ void bortho_( n, matB, mapB, m, matZ, mapZ, iwork, work, ort, info)
   DoublePrecision **colZ, **colB, **ibuffptr;
 
   extern Integer mxmynd_();
-  extern void    b_ortho();
 
 
   me = mxmynd_();

diff --git a/src/peigs/ctof/choleski_f.c b/src/peigs/ctof/choleski_f.c
@@ -58,11 +58,6 @@ void choleski_( n, colQ, mapQ, iwork, work, info)
   DoublePrecision *dscrat;
 
   extern Integer mxmynd_();
-  extern Integer fil_mapvec_();
-  extern void choleski();
-  extern Integer count_list();
-  extern void xerbla_(), pxerbla2_();
-  extern void g_exit_();
 
    i = 0;
   me = mxmynd_();

diff --git a/src/peigs/ctof/inverse_f.c b/src/peigs/ctof/inverse_f.c
@@ -49,9 +49,6 @@ void inversel_( msize, map, matrix, iwork, work, info )
   DoublePrecision *dscrat;
 
   extern Integer mxmynd_();
-  extern Integer fil_mapvec_();
-  extern void xerbla_();
-  extern void inverseL();
 
   me = mxmynd_();
 

diff --git a/src/peigs/ctof/mxm25_f.c b/src/peigs/ctof/mxm25_f.c
@@ -65,9 +65,6 @@ void mxm25_( n1, n2, rowQ, mapQ, m, colW, mapW, colZ, iwork, work)
   DoublePrecision *dscrat;
 
   extern Integer mxmynd_();
-  extern Integer fil_mapvec_();
-  extern void mxm25();
-  extern Integer count_list();
 
 
   me = mxmynd_();

diff --git a/src/peigs/ctof/mxm5x_f.c b/src/peigs/ctof/mxm5x_f.c
@@ -54,9 +54,6 @@ void mxm5x_( n, matA, mapA, m, matB, mapB, iwork, work)
   DoublePrecision *scratch;
 
   extern Integer mxmynd_();
-  extern Integer count_list();
-
-  extern void mxm5x();
 
 
 

diff --git a/src/peigs/ctof/mxm88_f.c b/src/peigs/ctof/mxm88_f.c
@@ -56,9 +56,6 @@ void mxm88_( n, matA, mapA, m, matB, mapB, iwork, work)
   DoublePrecision *scratch;
 
   extern Integer mxmynd_();
-  extern Integer count_list();
-
-  extern void mxm88();
 
 
 

diff --git a/src/peigs/ctof/onenorm_f.c b/src/peigs/ctof/onenorm_f.c
@@ -49,7 +49,6 @@ void one_nrm_( n, m, matA,  mapA, norm, iwork, work)
   DoublePrecision **colA;
 
   extern Integer mxmynd_();
-  extern void    one_nrm();
 
 
 

diff --git a/src/peigs/ctof/ortho_f.c b/src/peigs/ctof/ortho_f.c
@@ -105,7 +105,6 @@ void ortho_( n, m, matZ, mapZ, iwork, work, ort, info)
   DoublePrecision **colZ, **ibuffptr;
 
   extern Integer mxmynd_();
-  extern void    ortho();
 
 
   me = mxmynd_();

diff --git a/src/peigs/ctof/pdspev_f.c b/src/peigs/ctof/pdspev_f.c
@@ -86,12 +86,6 @@ void pdspev_(n, matrixA, mapA, matZ, mapZ, eval, iscratch, iscsize,
 
   extern Integer      mxmynd_();
 
-  extern Integer      ci_entry();
-  extern Integer      count_list();
-  extern Integer fil_mapvec_();
-  extern void     l_exit_();
-
-  extern void     pdspev();
   extern void     mxinit_();
 
   /*

diff --git a/src/peigs/ctof/pdspevx_f.c b/src/peigs/ctof/pdspevx_f.c
@@ -91,11 +91,6 @@ void pdspevx_( ivector, irange, n, matrixA, mapA, lb, ub, ilb, iub, abstol,
 
     extern Integer      mxmynd_();
 
-    extern Integer      ci_entry();
-    extern Integer      count_list();
-    extern void     l_exit_();
-
-    extern void     pdspevx();
     extern void     mxinit_();
 
 

diff --git a/src/peigs/ctof/pdspgv_f.c b/src/peigs/ctof/pdspgv_f.c
@@ -88,11 +88,6 @@ void pdspgv_(ifact, n, matrixA, mapA, matrixB, mapB, matZ, mapZ, eval,
 
     extern Integer      mxmynd_();
 
-    extern Integer      ci_entry();
-    extern Integer      count_list();
-    extern void     l_exit_();
-
-    extern void     pdspgv();
     extern void     mxinit_();
 
 

diff --git a/src/peigs/ctof/pdspgvx_f.c b/src/peigs/ctof/pdspgvx_f.c
@@ -94,11 +94,6 @@ void pdspgvx_( ifact, ivector, irange, n, matrixA, mapA, matrixB, mapB,
 
     extern Integer      mxmynd_();
 
-    extern Integer      ci_entry();
-    extern Integer      count_list();
-    extern void     l_exit_();
-
-    extern void     pdspgvx();
     extern void     mxinit_();
 
 /*

diff --git a/src/peigs/ctof/resid_f.c b/src/peigs/ctof/resid_f.c
@@ -81,8 +81,6 @@ void resid_( n, matrixA, mapA, m, matrixZ, mapZ, eval, iwork, work, res, info)
 
 
   extern Integer  mxmynd_();
-  extern Integer  fil_mapvec_();
-  extern void     resid();
 
   /*
     usual story about error handling

diff --git a/src/peigs/ctof/residual_f.c b/src/peigs/ctof/residual_f.c
@@ -88,17 +88,6 @@ void residual_( n, matrixA, mapA, matrixB, mapB, m, matrixZ, mapZ, eval, iwork,
   DoublePrecision **buff_ptr, **ptrA, **ptrB, **ptrZ;
 
 
-  /*
-    blas call
-    */
-
-  extern Integer mxwrit_(), mxread_();
-  extern Integer menode_(), mxmynd_();
-
-  extern Integer fil_mapvec_();
-  extern Integer count_list();
-  extern void residual();
-
   /*
     usual story about error handling
     */

diff --git a/src/peigs/ctof/sonenorm_f.c b/src/peigs/ctof/sonenorm_f.c
@@ -75,9 +75,6 @@ void sonenrm_( n, matrixA, mapA, norm, iwork, work, info)
 
   extern Integer mxmynd_();
 
-  extern Integer fil_mapvec_();
-  extern Integer count_list();
-  extern void sonenrm();
 
   /*
     usual story about error handling

diff --git a/src/peigs/ctof/tresid_f.c b/src/peigs/ctof/tresid_f.c
@@ -92,8 +92,6 @@ void tresid_( n, m, d, e, matrixZ, mapZ, eval, iwork, work, res, info)
 
 
   extern Integer  mxmynd_();
-  extern Integer  count_list();
-  extern void     resid();
 
   /*
     usual story about error handling

diff --git a/src/peigs/src/c/b_ortho.c b/src/peigs/src/c/b_ortho.c
@@ -145,7 +145,7 @@ void b_ortho ( n, colB, mapB, m, colZ, mapZ, ibuffptr, iwork, work, ort, info)
   DoublePrecision *ptr, *scrat;
   DoublePrecision **vecZ1, **vecZ2; /* copies of the vecZ matrix */
 
-  extern Integer menode_(), mxmynd_();
+  extern Integer mxmynd_();
 
   /*
     usual story about error handling

diff --git a/src/peigs/src/c/clustrf3.c b/src/peigs/src/c/clustrf3.c
@@ -190,8 +190,7 @@ Integer clustrf_ (n, d, e, m, w, mapZ, vecZ, iblock, nsplit, isplit, ptbeval, nu
   Integer clustr_check();
   extern Integer count_list();
   extern Integer reduce_list2();
-  extern Integer menode_ ();  
-  extern Integer idamax_(), mxmynd_ (), mypid();
+  extern Integer mxmynd_ (), mypid();
   extern void fil_int_lst();
   extern void fil_dbl_lst();
 

diff --git a/src/peigs/src/c/clustrf4.c b/src/peigs/src/c/clustrf4.c
@@ -190,8 +190,7 @@ Integer clustrf4_ (n, d, e, m, w, mapZ, vecZ, iblock, nsplit, isplit,
   Integer clustr_check();
   extern Integer count_list();
   extern Integer reduce_list2();
-  extern Integer menode_ ();  
-  extern Integer idamax_(), mxmynd_ (), mypid();
+  extern Integer mxmynd_ (), mypid();
   extern void fil_int_lst();
   extern void fil_dbl_lst();
 

diff --git a/src/peigs/src/c/clustrf5.c b/src/peigs/src/c/clustrf5.c
@@ -187,7 +187,6 @@ Integer clustrf5_ (n, d, e, m, w, mapZ, vecZ, iblock, nsplit, isplit, ptbeval, n
   DoublePrecision xjm, eps1;
   DoublePrecision ortol, xj, sepfine;
 
-  extern Integer menode_ ();  
   extern Integer mxmynd_ (), mypid();
 
 

diff --git a/src/peigs/src/c/clustrfix.c b/src/peigs/src/c/clustrfix.c
@@ -139,7 +139,6 @@ Integer clustrfix_ (n, d, e, m, w, iblock, nsplit, isplit, num_clustr, clustr_in
   DoublePrecision eps, xj1, xj2;
   DoublePrecision xj, relgap(DoublePrecision, DoublePrecision), delta1, delta2;
 
-  extern Integer menode_ ();  
   extern Integer mxmynd_ (), mypid();
 
   me = mxmynd_ ();

diff --git a/src/peigs/src/c/clustrxx4.c b/src/peigs/src/c/clustrxx4.c
@@ -84,7 +84,7 @@ Integer clustrinv4_(n, d, e, dplus, lplus, ld, lld, eval, schedule, num_clustr,
   DoublePrecision eps;
   DoublePrecision *dscrat;
 
-  extern Integer idamax_(), mclock_(), succ_(), mxmynd_(), mxnprc_();
+  extern Integer mclock_(), succ_(), mxmynd_(), mxnprc_();
   extern void printff_();
   extern void mgspnl_();
 

diff --git a/src/peigs/src/c/clustrxx5.c b/src/peigs/src/c/clustrxx5.c
@@ -132,7 +132,6 @@ Integer clustrinv5_(n, d, e, dplus, lplus, ld, lld,
 
 
   extern Integer mclock_(), succ_(), mxmynd_(), mxnprc_();
-  extern DoublePrecision dasum_();
   extern void printff_();
   extern void mgspnl_();
   extern Integer inverm_();

diff --git a/src/peigs/src/c/mxm25.c b/src/peigs/src/c/mxm25.c
@@ -141,7 +141,7 @@ void mxm25 ( n1, n2, rowQ, mapQ, m, colW, mapW, colZ, iwork, work)
   DoublePrecision *buffer, *in_buffer, *out_buffer;
   DoublePrecision *dd_ptr, *dd_ptr2;
 
-  extern Integer menode_(), mxmynd_();
+  extern Integer  mxmynd_();
 
   extern Integer mxmynd_();
 

diff --git a/src/peigs/src/c/mxm88.c b/src/peigs/src/c/mxm88.c
@@ -128,7 +128,7 @@ void mxm88 ( n, colQ, mapQ, m, colW, mapW, iwork, work, iptr)
   DoublePrecision *ptr, *ptr1;
   DoublePrecision  **Wptr;
 
-  extern Integer menode_(), mxmynd_(), mxnprc_();
+  extern Integer mxmynd_(), mxnprc_();
 
   i = 0;
   me = mxmynd_();

diff --git a/src/peigs/src/c/pxerbla.c b/src/peigs/src/c/pxerbla.c
@@ -96,7 +96,6 @@ void pxerbla2_( n, array, procmap, len, iwork, info )
   Integer *iscrat, *proclist, *map_in;
 
   extern Integer mxcmp();
-  extern Integer      menode_();
   extern Integer mxmynd_();
   extern Integer mxnprc_();
 

diff --git a/src/peigs/src/c/residual.c b/src/peigs/src/c/residual.c
@@ -174,7 +174,7 @@ void residual2( n, colA, mapA, colB, mapB, m, colZ, mapZ, eval,
   DoublePrecision **dbuffptr, **vecZ1, **vecZ2;
 
 
-  extern Integer menode_(), mxmynd_();
+  extern Integer mxmynd_();
 
 
   /*
Original file line number	Diff line number	Diff line change
Expand Up		@@ -49,7 +49,6 @@ void one_nrm_( n, m, matA, mapA, norm, iwork, work)
		DoublePrecision **colA;

		extern Integer mxmynd_();
		extern void one_nrm();



Expand Down
-Original file line number
+Diff line change
@@ Expand Up @@
       DoublePrecision **dbuffptr, **vecZ1, **vecZ2;
-      extern Integer menode_(), mxmynd_();
+      extern Integer mxmynd_();
       /*
@@ Expand Down @@