Merge pull request #41 from e-kwsm/ansi

refactor: replace obsolescent K&R syntax

Author: langou

BLACS/TESTING/Cbt.c

@@ -16,7 +16,7 @@
 #include "../PBblacs.h"
 #include "../PBblas.h"
 
-PBTYP_T * PB_Cctypeset()
+PBTYP_T * PB_Cctypeset(void)
 {
 /*
 *  Purpose

PBLAS/SRC/PTOOLS/PB_Cctypeset.c

@@ -16,7 +16,7 @@
 #include "../PBblacs.h"
 #include "../PBblas.h"
 
-PBTYP_T * PB_Cdtypeset()
+PBTYP_T * PB_Cdtypeset(void)
 {
 /*
 *  Purpose

PBLAS/SRC/PTOOLS/PB_Cdtypeset.c

@@ -16,7 +16,7 @@
 #include "../PBblacs.h"
 #include "../PBblas.h"
 
-PBTYP_T * PB_Citypeset()
+PBTYP_T * PB_Citypeset(void)
 {
 /*
 *  Purpose

PBLAS/SRC/PTOOLS/PB_Citypeset.c

@@ -16,7 +16,7 @@
 #include "../PBblacs.h"
 #include "../PBblas.h"
 
-PBTYP_T * PB_Cstypeset()
+PBTYP_T * PB_Cstypeset(void)
 {
 /*
 *  Purpose

PBLAS/SRC/PTOOLS/PB_Cstypeset.c

@@ -16,7 +16,7 @@
 #include "../PBblacs.h"
 #include "../PBblas.h"
 
-PBTYP_T * PB_Cztypeset()
+PBTYP_T * PB_Cztypeset(void)
 {
 /*
 *  Purpose

PBLAS/SRC/PTOOLS/PB_Cztypeset.c

@@ -16,7 +16,7 @@
 #include "../PBblacs.h"
 #include "../PBblas.h"
 
-void PB_freebuf_()
+void PB_freebuf_(void)
 {
 /*
 *  Purpose

PBLAS/SRC/PTOOLS/PB_freebuf_.c

@@ -244,23 +244,16 @@ extern void Cpcgemr2d();
 #include <assert.h>
 #define DESCLEN 9
 void 
-fortran_mr2d(m, n, A, ia, ja, desc_A,
-	     B, ib, jb, desc_B)
-  Int  *ia, *ib, *ja, *jb, *m, *n;
-  Int   desc_A[DESCLEN], desc_B[DESCLEN];
-  complex *A, *B;
+fortran_mr2d(Int *m, Int *n, complex *A, Int *ia, Int *ja, Int desc_A[DESCLEN],
+	     complex *B, Int *ib, Int *jb, Int desc_B[DESCLEN])
 {
   Cpcgemr2do(*m, *n, A, *ia, *ja, (MDESC *) desc_A,
 	     B, *ib, *jb, (MDESC *) desc_B);
   return;
 }
 void 
-fortran_mr2dnew(m, n, A, ia, ja, desc_A,
-		B, ib, jb, desc_B, gcontext)
-  Int  *ia, *ib, *ja, *jb, *m, *n;
-  Int   desc_A[DESCLEN], desc_B[DESCLEN];
-  complex *A, *B;
-  Int  *gcontext;
+fortran_mr2dnew(Int *m, Int *n, complex *A, Int *ia, Int *ja, Int desc_A[DESCLEN],
+		complex *B, Int *ib, Int *jb, Int desc_B[DESCLEN], Int *gcontext)
 {
   Cpcgemr2d(*m, *n, A, *ia, *ja, (MDESC *) desc_A,
 	    B, *ib, *jb, (MDESC *) desc_B, *gcontext);
@@ -572,9 +565,7 @@ Cpcgemr2d(m, n,
   free(param);
 }/* distrib */
 static2 void 
-init_chenille(mypnum, nprocs, n0, proc0, n1, proc1, psend, precv, myrang)
-  Int   nprocs, mypnum, n0, n1;
-  Int  *proc0, *proc1, **psend, **precv, *myrang;
+init_chenille(Int mypnum, Int nprocs, Int n0, Int *proc0, Int n1, Int *proc1, Int **psend, Int **precv, Int *myrang)
 {
   Int   ns, nr, i, tot;
   Int  *sender, *recver, *g0, *g1;
@@ -645,11 +636,7 @@ Int _m,_n,_lda,_ldb; \
     } \
 }
 static2 Int 
-block2buff(vi, vinb, hi, hinb, ptra, ma, buff)
-  Int   hinb, vinb;
-  IDESC *hi, *vi;
-  MDESC *ma;
-  complex *buff, *ptra;
+block2buff(IDESC *vi, Int vinb, IDESC *hi, Int hinb, complex *ptra, MDESC *ma, complex *buff)
 {
   Int   h, v, sizebuff;
   complex *ptr2;
@@ -667,11 +654,7 @@ block2buff(vi, vinb, hi, hinb, ptra, ma, buff)
   return sizebuff;
 }
 static2 void 
-buff2block(vi, vinb, hi, hinb, buff, ptrb, mb)
-  Int   hinb, vinb;
-  IDESC *hi, *vi;
-  MDESC *mb;
-  complex *buff, *ptrb;
+buff2block(IDESC *vi, Int vinb, IDESC *hi, Int hinb, complex *buff, complex *ptrb, MDESC *mb)
 {
   Int   h, v, sizebuff;
   complex *ptr2;
@@ -688,9 +671,7 @@ buff2block(vi, vinb, hi, hinb, buff, ptrb, mb)
   }
 }
 static2 Int 
-inter_len(hinb, hi, vinb, vi)
-  Int   hinb, vinb;
-  IDESC *hi, *vi;
+inter_len(Int hinb, IDESC *hi, Int vinb, IDESC *vi)
 {
   Int   hlen, vlen, h, v;
   hlen = 0;
@@ -702,9 +683,7 @@ inter_len(hinb, hi, vinb, vi)
   return hlen * vlen;
 }
 void 
-Clacpy(m, n, a, lda, b, ldb)
-  complex *a, *b;
-  Int   m, n, lda, ldb;
+Clacpy(Int m, Int n, complex *a, Int lda, complex *b, Int ldb)
 {
   Int   i, j;
   lda -= m;
@@ -718,8 +697,7 @@ Clacpy(m, n, a, lda, b, ldb)
   }
 }
 static2 void 
-gridreshape(ctxtp)
-  Int  *ctxtp;
+gridreshape(Int *ctxtp)
 {
   Int   ori, final;	/* original context, and new context created, with
 			 * line form */

REDIST/SRC/pcgemr.c

@@ -113,9 +113,7 @@ extern void Cpcgemr2d();
 /************************************************************************/
 /* Set the memory space with the malloc function */
 void
-setmemory(adpointer, blocksize)
-  complex **adpointer;
-  Int   blocksize;
+setmemory(complex **adpointer, Int blocksize)
 {
   assert(blocksize >= 0);
   if (blocksize == 0) {
@@ -128,8 +126,7 @@ setmemory(adpointer, blocksize)
 /******************************************************************/
 /* Free the memory space after the malloc */
 void
-freememory(ptrtobefreed)
-  complex *ptrtobefreed;
+freememory(complex *ptrtobefreed)
 {
   if (ptrtobefreed == NULL)
     return;

REDIST/SRC/pcgemr2.c

@@ -259,25 +259,16 @@ extern void Cpctrmr2d();
 #include <assert.h>
 #define DESCLEN 9
 void 
-fortran_mr2d(uplo, diag, m, n, A, ia, ja, desc_A,
-	     B, ib, jb, desc_B)
-  char *uplo, *diag;
-  Int  *ia, *ib, *ja, *jb, *m, *n;
-  Int   desc_A[DESCLEN], desc_B[DESCLEN];
-  complex *A, *B;
+fortran_mr2d(char *uplo, char *diag, Int *m, Int *n, complex *A, Int *ia, Int *ja, Int desc_A[DESCLEN],
+	     complex *B, Int *ib, Int *jb, Int desc_B[DESCLEN])
 {
   Cpctrmr2do(uplo, diag, *m, *n, A, *ia, *ja, (MDESC *) desc_A,
 	     B, *ib, *jb, (MDESC *) desc_B);
   return;
 }
 void 
-fortran_mr2dnew(uplo, diag, m, n, A, ia, ja, desc_A,
-		B, ib, jb, desc_B, gcontext)
-  char *uplo, *diag;
-  Int  *ia, *ib, *ja, *jb, *m, *n;
-  Int   desc_A[DESCLEN], desc_B[DESCLEN];
-  complex *A, *B;
-  Int  *gcontext;
+fortran_mr2dnew(char *uplo, char *diag, Int *m, Int *n, complex *A, Int *ia, Int *ja, Int desc_A[DESCLEN],
+		complex *B, Int *ib, Int *jb, Int desc_B[DESCLEN], Int *gcontext)
 {
   Cpctrmr2d(uplo, diag, *m, *n, A, *ia, *ja, (MDESC *) desc_A,
 	    B, *ib, *jb, (MDESC *) desc_B, *gcontext);
@@ -596,9 +587,7 @@ Cpctrmr2d(uplo, diag, m, n,
   free(param);
 }/* distrib */
 static2 void 
-init_chenille(mypnum, nprocs, n0, proc0, n1, proc1, psend, precv, myrang)
-  Int   nprocs, mypnum, n0, n1;
-  Int  *proc0, *proc1, **psend, **precv, *myrang;
+init_chenille(Int mypnum, Int nprocs, Int n0, Int *proc0, Int n1, Int *proc1, Int **psend, Int **precv, Int *myrang)
 {
   Int   ns, nr, i, tot;
   Int  *sender, *recver, *g0, *g1;
@@ -652,9 +641,7 @@ init_chenille(mypnum, nprocs, n0, proc0, n1, proc1, psend, precv, myrang)
     }
 }
 void 
-Clacpy(m, n, a, lda, b, ldb)
-  complex *a, *b;
-  Int   m, n, lda, ldb;
+Clacpy(Int m, Int n, complex *a, Int lda, complex *b, Int ldb)
 {
   Int   i, j;
   lda -= m;
@@ -668,8 +655,7 @@ Clacpy(m, n, a, lda, b, ldb)
   }
 }
 static2 void 
-gridreshape(ctxtp)
-  Int  *ctxtp;
+gridreshape(Int *ctxtp)
 {
   Int   ori, final;	/* original context, and new context created, with
 			 * line form */