From fda221276591223afb86e3165eb4fce444fe662a Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Mon, 19 Jan 2026 21:32:46 +0800 Subject: [PATCH 01/30] WIP --- BLACS/TESTING/Cbt.c | 378 ++++++++++--------------------------- REDIST/TESTING/pigemrdrv.c | 64 +++---- TOOLS/SL_gridreshape.c | 7 + 3 files changed, 133 insertions(+), 316 deletions(-) diff --git a/BLACS/TESTING/Cbt.c b/BLACS/TESTING/Cbt.c index 294409ff..7c127467 100644 --- a/BLACS/TESTING/Cbt.c +++ b/BLACS/TESTING/Cbt.c @@ -1,429 +1,241 @@ #ifdef BTCINTFACE #include "Cbt.h" - +extern void Cblacs_gridinit(Int*, char*, Int, Int); +extern void Cblacs_setup(Int*, Int*); +extern void Cblacs_pinfo(Int*, Int*); +extern void Cblacs_gridmap(Int*, Int*, Int, Int, Int); +extern void Cblacs_gridexit(Int); +extern void Cblacs_abort(Int, Int); +extern void Cblacs_exit(Int); +extern void Cblacs_freebuff(Int, Int); +extern void Cblacs_gridinfo(Int, Int*, Int*, Int*, Int*); +extern void Cblacs_barrier(Int, char*); +extern Int Cblacs_pnum(Int, Int, Int); +extern void Cblacs_pcoord(Int, Int, Int*, Int*); +extern void Cblacs_get(Int, Int, Int*); +extern void Cblacs_set(Int, Int, Int*); +extern void Cigesd2d(Int, Int, Int, Int*, Int, Int, Int); +extern void Cigerv2d(Int, Int, Int, Int*, Int, Int, Int); +extern void Cigebs2d(Int, char*, char*, Int, Int, Int*, Int); +extern void Cigebr2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); +extern void Citrsd2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); +extern void Citrrv2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); +extern void Citrbs2d(Int, char*, char*, char*, char*, Int, Int, Int*, Int); +extern void Citrbr2d(Int, char*, char*, char*, char*, Int, Int, Int*, Int, Int, Int); +extern void Cigsum2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); +extern void Cigamx2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); +extern void Cigamn2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); +extern void Cdgesd2d(Int, Int, Int, double*, Int, Int, Int); +extern void Cdgerv2d(Int, Int, Int, double*, Int, Int, Int); +extern void Cdgebs2d(Int, char*, char*, Int, Int, double*, Int); +extern void Cdgebr2d(Int, char*, char*, Int, Int, double*, Int, Int, Int); +extern void Cdtrsd2d(Int, char*, char*, Int, Int, double*, Int, Int, Int); +extern void Cdtrrv2d(Int, char*, char*, Int, Int, double*, Int, Int, Int); +extern void Cdtrbs2d(Int, char*, char*, char*, char*, Int, Int, double*, Int); +extern void Cdtrbr2d(Int, char*, char*, char*, char*, Int, Int, double*, Int, Int, Int); +extern void Cdgsum2d(Int, char*, char*, Int, Int, double*, Int, Int, Int); +extern void Cdgamx2d(Int, char*, char*, Int, Int, double*, Int, Int*, Int*, Int, Int, Int); +extern void Cdgamn2d(Int, char*, char*, Int, Int, double*, Int, Int*, Int*, Int, Int, Int); +extern void Csgesd2d(Int, Int, Int, float*, Int, Int, Int); +extern void Csgerv2d(Int, Int, Int, float*, Int, Int, Int); +extern void Csgebs2d(Int, char*, char*, Int, Int, float*, Int); +extern void Csgebr2d(Int, char*, char*, Int, Int, float*, Int, Int, Int); +extern void Cstrsd2d(Int, char*, char*, Int, Int, float*, Int, Int, Int); +extern void Cstrrv2d(Int, char*, char*, Int, Int, float*, Int, Int, Int); +extern void Cstrbs2d(Int, char*, char*, char*, char*, Int, Int, float*, Int); +extern void Cstrbr2d(Int, char*, char*, char*, char*, Int, Int, float*, Int, Int, Int); +extern void Csgsum2d(Int, char*, char*, Int, Int, float*, Int, Int, Int); +extern void Csgamx2d(Int, char*, char*, Int, Int, float*, Int, Int*, Int*, Int, Int, Int); +extern void Csgamn2d(Int, char*, char*, Int, Int, float*, Int, Int*, Int*, Int, Int, Int); void blacs_gridinit_(Int *ConTxt, char *order, Int *nprow, Int *npcol) { - void Cblacs_gridinit(); - - Cblacs_gridinit(ConTxt, order, *nprow, *npcol); +Cblacs_gridinit(ConTxt, order, *nprow, *npcol); } - void blacs_setup_(Int *mypnum, Int *nprocs) { - void Cblacs_setup(); - Cblacs_setup(mypnum, nprocs); +Cblacs_setup(mypnum, nprocs); } - void blacs_pinfo_(Int *mypnum, Int *nprocs) { - void Cblacs_pinfo(); - Cblacs_pinfo(mypnum, nprocs); +Cblacs_pinfo(mypnum, nprocs); } - void blacs_gridmap_(Int *ConTxt, Int *usermap, Int *ldup, Int *nprow, Int *npcol) { - void Cblacs_gridmap(); - Cblacs_gridmap(ConTxt, usermap, *ldup, *nprow, *npcol); +Cblacs_gridmap(ConTxt, usermap, *ldup, *nprow, *npcol); } - void blacs_gridexit_(Int *ConTxt) { - void Cblacs_gridexit(); - Cblacs_gridexit(*ConTxt); +Cblacs_gridexit(*ConTxt); } - void blacs_abort_(Int *ConTxt, Int *ErrNo) { - void Cblacs_abort(); - Cblacs_abort(*ConTxt, *ErrNo); +Cblacs_abort(*ConTxt, *ErrNo); } - void blacs_exit_(Int *NotDone) { - void Cblacs_exit(); - Cblacs_exit(*NotDone); +Cblacs_exit(*NotDone); } - void blacs_freebuff_(Int *ConTxt, Int *Wait) { - void Cblacs_freebuff(); - Cblacs_freebuff(*ConTxt, *Wait); +Cblacs_freebuff(*ConTxt, *Wait); } - void blacs_gridinfo_(Int *ConTxt, Int *nprow, Int *npcol, Int *myrow, Int *mycol) { - void Cblacs_gridinfo(); - Cblacs_gridinfo(*ConTxt, nprow, npcol, myrow, mycol); +Cblacs_gridinfo(*ConTxt, nprow, npcol, myrow, mycol); } - void blacs_barrier_(Int *ConTxt, char *scope) { - void Cblacs_barrier(); - Cblacs_barrier(*ConTxt, scope); +Cblacs_barrier(*ConTxt, scope); } - Int blacs_pnum_(Int *ConTxt, Int *prow, Int *pcol) { - Int Cblacs_pnum(); - return( Cblacs_pnum(*ConTxt, *prow, *pcol) ); +return( Cblacs_pnum(*ConTxt, *prow, *pcol) ); } - void blacs_pcoord_(Int *ConTxt, Int *nodenum, Int *prow, Int *pcol) { - void Cblacs_pcoord(); - Cblacs_pcoord(*ConTxt, *nodenum, prow, pcol); +Cblacs_pcoord(*ConTxt, *nodenum, prow, pcol); } - void blacs_get_(Int *ConTxt, Int *what, Int *I) { - void Cblacs_get(); - Cblacs_get(*ConTxt, *what, I); +Cblacs_get(*ConTxt, *what, I); } - void blacs_set_(Int *ConTxt, Int *what, Int *I) { - void Cblacs_set(); - Cblacs_set(*ConTxt, *what, I); +Cblacs_set(*ConTxt, *what, I); } - - void igesd2d_(Int *ConTxt, Int *m, Int *n, Int *A, Int *lda, Int *rdest, Int *cdest) { - void Cigesd2d(); - Cigesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest); +Cigesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest); } - void igerv2d_(Int *ConTxt, Int *m, Int *n, Int *A, Int *lda, Int *rsrc, Int *csrc) { - void Cigerv2d(); - Cigerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc); +Cigerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc); } - void igebs2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, Int *A, Int *lda) { - void Cigebs2d(); - Cigebs2d(*ConTxt, scope, top, *m, *n, A, *lda); +Cigebs2d(*ConTxt, scope, top, *m, *n, A, *lda); } - void igebr2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, Int *A, Int *lda, Int *rsrc, Int *csrc) { - void Cigebr2d(); - Cigebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc); +Cigebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc); } - void itrsd2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, Int *A, Int *lda, Int *rdest, Int *cdest) { - void Citrsd2d(); - Citrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest); +Citrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest); } - void itrrv2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, Int *A, Int *lda, Int *rsrc, Int *csrc) { - void Citrrv2d(); - Citrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); +Citrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); } - void itrbs2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, Int *A, Int *lda) { - void Citrbs2d(); - Citrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda); +Citrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda); } - void itrbr2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, Int *A, Int *lda, Int *rsrc, Int *csrc) { - void Citrbr2d(); - Citrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); +Citrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); } - void igsum2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, Int *A, Int *lda, Int *rdest, Int *cdest) { - void Cigsum2d(); - Cigsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest); +Cigsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest); } - void igamx2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, Int *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) { - void Cigamx2d(); - Cigamx2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, - *rdest, *cdest); +Cigamx2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, *rdest, *cdest); } - void igamn2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, Int *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) { - void Cigamn2d(); - Cigamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, - *rdest, *cdest); +Cigamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, *rdest, *cdest); } - void dgesd2d_(Int *ConTxt, Int *m, Int *n, double *A, Int *lda, Int *rdest, Int *cdest) { - void Cdgesd2d(); - Cdgesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest); +Cdgesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest); } - void dgerv2d_(Int *ConTxt, Int *m, Int *n, double *A, Int *lda, Int *rsrc, Int *csrc) { - void Cdgerv2d(); - Cdgerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc); +Cdgerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc); } - void dgebs2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda) { - void Cdgebs2d(); - Cdgebs2d(*ConTxt, scope, top, *m, *n, A, *lda); +Cdgebs2d(*ConTxt, scope, top, *m, *n, A, *lda); } - void dgebr2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda, Int *rsrc, Int *csrc) { - void Cdgebr2d(); - Cdgebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc); +Cdgebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc); } - void dtrsd2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, double *A, Int *lda, Int *rdest, Int *cdest) { - void Cdtrsd2d(); - Cdtrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest); +Cdtrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest); } - void dtrrv2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, double *A, Int *lda, Int *rsrc, Int *csrc) { - void Cdtrrv2d(); - Cdtrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); +Cdtrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); } - void dtrbs2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, double *A, Int *lda) { - void Cdtrbs2d(); - Cdtrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda); +Cdtrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda); } - void dtrbr2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, double *A, Int *lda, Int *rsrc, Int *csrc) { - void Cdtrbr2d(); - Cdtrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); +Cdtrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); } - void dgsum2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda, Int *rdest, Int *cdest) { - void Cdgsum2d(); - Cdgsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest); +Cdgsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest); } - void dgamx2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) { - void Cdgamx2d(); - Cdgamx2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, - *rdest, *cdest); +Cdgamx2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, *rdest, *cdest); } - void dgamn2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) { - void Cdgamn2d(); - Cdgamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, - *rdest, *cdest); +Cdgamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, *rdest, *cdest); } - void sgesd2d_(Int *ConTxt, Int *m, Int *n, float *A, Int *lda, Int *rdest, Int *cdest) { - void Csgesd2d(); - Csgesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest); +Csgesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest); } - void sgerv2d_(Int *ConTxt, Int *m, Int *n, float *A, Int *lda, Int *rsrc, Int *csrc) { - void Csgerv2d(); - Csgerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc); +Csgerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc); } - void sgebs2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda) { - void Csgebs2d(); - Csgebs2d(*ConTxt, scope, top, *m, *n, A, *lda); +Csgebs2d(*ConTxt, scope, top, *m, *n, A, *lda); } - void sgebr2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda, Int *rsrc, Int *csrc) { - void Csgebr2d(); - Csgebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc); +Csgebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc); } - void strsd2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, float *A, Int *lda, Int *rdest, Int *cdest) { - void Cstrsd2d(); - Cstrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest); +Cstrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest); } - void strrv2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, float *A, Int *lda, Int *rsrc, Int *csrc) { - void Cstrrv2d(); - Cstrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); +Cstrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); } - void strbs2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, float *A, Int *lda) { - void Cstrbs2d(); - Cstrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda); +Cstrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda); } - void strbr2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, float *A, Int *lda, Int *rsrc, Int *csrc) { - void Cstrbr2d(); - Cstrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); +Cstrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); } - void sgsum2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda, Int *rdest, Int *cdest) { - void Csgsum2d(); - Csgsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest); +Csgsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest); } - void sgamx2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) { - void Csgamx2d(); - Csgamx2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, - *rdest, *cdest); +Csgamx2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, *rdest, *cdest); } - void sgamn2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) { - void Csgamn2d(); - Csgamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, - *rdest, *cdest); -} - -void cgesd2d_(Int *ConTxt, Int *m, Int *n, float *A, Int *lda, Int *rdest, Int *cdest) -{ - void Ccgesd2d(); - Ccgesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest); -} - -void cgerv2d_(Int *ConTxt, Int *m, Int *n, float *A, Int *lda, Int *rsrc, Int *csrc) -{ - void Ccgerv2d(); - Ccgerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc); -} - -void cgebs2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda) -{ - void Ccgebs2d(); - Ccgebs2d(*ConTxt, scope, top, *m, *n, A, *lda); -} - -void cgebr2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda, Int *rsrc, Int *csrc) -{ - void Ccgebr2d(); - Ccgebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc); -} - -void ctrsd2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, float *A, Int *lda, Int *rdest, Int *cdest) -{ - void Cctrsd2d(); - Cctrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest); -} - -void ctrrv2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, float *A, Int *lda, Int *rsrc, Int *csrc) -{ - void Cctrrv2d(); - Cctrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); -} - -void ctrbs2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, float *A, Int *lda) -{ - void Cctrbs2d(); - Cctrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda); -} - -void ctrbr2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, float *A, Int *lda, Int *rsrc, Int *csrc) -{ - void Cctrbr2d(); - Cctrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); -} - -void cgsum2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda, Int *rdest, Int *cdest) -{ - void Ccgsum2d(); - Ccgsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest); -} - -void cgamx2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) -{ - void Ccgamx2d(); - Ccgamx2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, - *rdest, *cdest); -} - -void cgamn2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) -{ - void Ccgamn2d(); - Ccgamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, - *rdest, *cdest); -} - -void zgesd2d_(Int *ConTxt, Int *m, Int *n, double *A, Int *lda, Int *rdest, Int *cdest) -{ - void Czgesd2d(); - Czgesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest); -} - -void zgerv2d_(Int *ConTxt, Int *m, Int *n, double *A, Int *lda, Int *rsrc, Int *csrc) -{ - void Czgerv2d(); - Czgerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc); -} - -void zgebs2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda) -{ - void Czgebs2d(); - Czgebs2d(*ConTxt, scope, top, *m, *n, A, *lda); -} - -void zgebr2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda, Int *rsrc, Int *csrc) -{ - void Czgebr2d(); - Czgebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc); -} - -void ztrsd2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, double *A, Int *lda, Int *rdest, Int *cdest) -{ - void Cztrsd2d(); - Cztrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest); -} - -void ztrrv2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, double *A, Int *lda, Int *rsrc, Int *csrc) -{ - void Cztrrv2d(); - Cztrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); -} - -void ztrbs2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, double *A, Int *lda) -{ - void Cztrbs2d(); - Cztrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda); -} - -void ztrbr2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, double *A, Int *lda, Int *rsrc, Int *csrc) -{ - void Cztrbr2d(); - Cztrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); +Csgamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, *rdest, *cdest); } +#endif -void zgsum2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda, Int *rdest, Int *cdest) -{ - void Czgsum2d(); - Czgsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest); -} -void zgamx2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) -{ - void Czgamx2d(); - Czgamx2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, - *rdest, *cdest); -} -void zgamn2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) -{ - void Czgamn2d(); - Czgamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, - *rdest, *cdest); -} -#endif diff --git a/REDIST/TESTING/pigemrdrv.c b/REDIST/TESTING/pigemrdrv.c index 05e0c78e..666b3ba8 100644 --- a/REDIST/TESTING/pigemrdrv.c +++ b/REDIST/TESTING/pigemrdrv.c @@ -101,48 +101,46 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord(); -extern Int Cblacs_pnum(); -extern void Csetpvmtids(); -extern void Cblacs_get(); -extern void Cblacs_pinfo(); -extern void Cblacs_gridinfo(); -extern void Cblacs_gridinit(); -extern void Cblacs_exit(); -extern void Cblacs_gridexit(); -extern void Cblacs_setup(); -extern void Cigebs2d(); -extern void Cigebr2d(); -extern void Cigesd2d(); -extern void Cigerv2d(); -extern void Cigsum2d(); -extern void Cigamn2d(); -extern void Cigamx2d(); -extern void Cigesd2d(); -extern void Cigerv2d(); +extern void Cblacs_pcoord(Int, Int, Int*, Int*); +extern Int Cblacs_pnum(Int, Int, Int); +extern void Csetpvmtids(Int, Int*); +extern void Cblacs_get(Int, Int, Int*); +extern void Cblacs_pinfo(Int*, Int*); +extern void Cblacs_gridinfo(Int, Int*, Int*, Int*, Int*); +extern void Cblacs_gridinit(Int*, char*, Int, Int); +extern void Cblacs_exit(Int); +extern void Cblacs_gridexit(Int); +extern void Cblacs_setup(Int*, Int*); +extern void Cigebs2d(Int, char*, char*, Int, Int, Int*, Int); +extern void Cigebr2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); +extern void Cigesd2d(Int, Int, Int, Int*, Int, Int, Int); +extern void Cigerv2d(Int, Int, Int, Int*, Int, Int, Int); +extern void Cigsum2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); +extern void Cigamn2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); +extern void Cigamx2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); /* lapack */ void ilacpy_(); /* aux fonctions */ -extern Int localindice(); -extern void *mr2d_malloc(); -extern Int ppcm(); -extern Int localsize(); -extern Int memoryblocksize(); -extern Int changeorigin(); -extern void paramcheck(); +extern Int localindice(Int, Int, Int, Int); +extern void *mr2d_malloc(Int); +extern Int ppcm(Int, Int); +extern Int localsize(Int, Int, Int, Int); +extern Int memoryblocksize(Int, Int, Int, Int, Int, Int); +extern Int changeorigin(Int, Int, Int); +extern void paramcheck(Int, char*, char*, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int*, Int*); /* tools and others function */ #define scanD0 igescanD0 #define dispmat igedispmat #define setmemory igesetmemory #define freememory igefreememory #define scan_intervals igescan_intervals -extern void scanD0(); -extern void dispmat(); -extern void setmemory(); -extern void freememory(); -extern Int scan_intervals(); -extern void Cpigemr2do(); -extern void Cpigemr2d(); +extern void scanD0(Int, Int, Int, Int, Int, Int, Int, Int*, Int*, Int*, Int*, Int*); +extern void dispmat(char*, Int, Int, Int, Int, Int, Int, double*, Int, Int, Int); +extern void setmemory(void**, Int); +extern void freememory(void*); +extern Int scan_intervals(Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int*, Int**, Int**, Int**); +extern void Cpigemr2do(Int, Int, Int*, Int, Int, Int, Int, Int*, Int, Int, Int, Int, Int); +extern void Cpigemr2d(Int, Int, Int*, Int, Int, Int, Int, Int*, Int, Int, Int, Int, Int); /* some defines for Cpigemr2do */ #define SENDBUFF 0 #define RECVBUFF 1 diff --git a/TOOLS/SL_gridreshape.c b/TOOLS/SL_gridreshape.c index 2dd7958f..094c1974 100644 --- a/TOOLS/SL_gridreshape.c +++ b/TOOLS/SL_gridreshape.c @@ -7,6 +7,13 @@ Int SL_Cgridreshape(Int ctxt, Int pstart, Int row_major_in, Int row_major_out, Int P, Int Q) { + + /** called subprograms **/ + void Cblacs_gridinfo(Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol); + void Cblacs_abort(Int ConTxt, Int ErrNo); + void Cblacs_get(Int context, Int what, Int * val); + void Cblacs_gridmap(Int* context, Int* usermap, Int ldumap, Int nprow, Int npcol); + Int Cblacs_pnum( Int context, Int prow, Int pcol ); Int nctxt, P0, Q0, Np, i, *g; From 365d461880ef64e51f8b4cb33aabe0b67e8de363 Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Tue, 20 Jan 2026 21:16:12 +0800 Subject: [PATCH 02/30] WIP --- REDIST/TESTING/pcgemrdrv.c | 66 +++++++++++++++++++------------------- REDIST/TESTING/pctrmrdrv.c | 66 +++++++++++++++++++------------------- REDIST/TESTING/pdgemrdrv.c | 66 +++++++++++++++++++------------------- REDIST/TESTING/pdtrmrdrv.c | 64 ++++++++++++++++++------------------ REDIST/TESTING/pigemrdrv.c | 20 ++++++------ REDIST/TESTING/pitrmrdrv.c | 62 +++++++++++++++++------------------ REDIST/TESTING/psgemrdrv.c | 63 ++++++++++++++++++------------------ REDIST/TESTING/pstrmrdrv.c | 66 +++++++++++++++++++------------------- REDIST/TESTING/pzgemrdrv.c | 66 +++++++++++++++++++------------------- REDIST/TESTING/pztrmrdrv.c | 66 +++++++++++++++++++------------------- 10 files changed, 301 insertions(+), 304 deletions(-) diff --git a/REDIST/TESTING/pcgemrdrv.c b/REDIST/TESTING/pcgemrdrv.c index 0803fc7c..8b8e1a68 100644 --- a/REDIST/TESTING/pcgemrdrv.c +++ b/REDIST/TESTING/pcgemrdrv.c @@ -105,48 +105,48 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord(); -extern Int Cblacs_pnum(); -extern void Csetpvmtids(); -extern void Cblacs_get(); -extern void Cblacs_pinfo(); -extern void Cblacs_gridinfo(); -extern void Cblacs_gridinit(); -extern void Cblacs_exit(); -extern void Cblacs_gridexit(); -extern void Cblacs_setup(); -extern void Cigebs2d(); -extern void Cigebr2d(); -extern void Cigesd2d(); -extern void Cigerv2d(); -extern void Cigsum2d(); -extern void Cigamn2d(); -extern void Cigamx2d(); -extern void Ccgesd2d(); -extern void Ccgerv2d(); +extern void Cblacs_pcoord(Int, Int, Int*, Int*); +extern Int Cblacs_pnum(Int, Int, Int); +extern void Csetpvmtids(Int, Int*); +extern void Cblacs_get(Int, Int, Int*); +extern void Cblacs_pinfo(Int*, Int*); +extern void Cblacs_gridinfo(Int, Int*, Int*, Int*, Int*); +extern void Cblacs_gridinit(Int*, char*, Int, Int); +extern void Cblacs_exit(Int); +extern void Cblacs_gridexit(Int); +extern void Cblacs_setup(Int*, Int*); +extern void Cigebs2d(Int, char*, char*, Int, Int, Int*, Int); +extern void Cigebr2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); +extern void Cigesd2d(Int, Int, Int, Int*, Int, Int, Int); +extern void Cigerv2d(Int, Int, Int, Int*, Int, Int, Int); +extern void Cigsum2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); +extern void Cigamn2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); +extern void Cigamx2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); +extern void Ccgesd2d(Int, Int, Int, float*, Int, Int, Int); +extern void Ccgerv2d(Int, Int, Int, float*, Int, Int, Int); /* lapack */ void clacpy_(); /* aux fonctions */ -extern Int localindice(); -extern void *mr2d_malloc(); -extern Int ppcm(); -extern Int localsize(); -extern Int memoryblocksize(); -extern Int changeorigin(); -extern void paramcheck(); +extern Int localindice(Int, Int, Int, Int); +extern void *mr2d_malloc(Int); +extern Int ppcm(Int, Int); +extern Int localsize(Int, Int, Int, Int); +extern Int memoryblocksize(MDESC*); +extern Int changeorigin(Int, Int, Int); +extern void paramcheck(Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int); /* tools and others function */ #define scanD0 cgescanD0 #define dispmat cgedispmat #define setmemory cgesetmemory #define freememory cgefreememory #define scan_intervals cgescan_intervals -extern void scanD0(); -extern void dispmat(); -extern void setmemory(); -extern void freememory(); -extern Int scan_intervals(); -extern void Cpcgemr2do(); -extern void Cpcgemr2d(); +extern void scanD0(char*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*); +extern void dispmat(float*, Int, Int, Int, Int, Int, Int, Int*); +extern void setmemory(complex**, Int); +extern void freememory(char*); +extern Int scan_intervals(Int, Int, Int, Int, Int, Int, Int**, Int**, Int**, Int**); +extern void Cpcgemr2do( Int m, Int n, complex *ptrmyblock, Int ia, Int ja, MDESC *ma, complex *ptrmynewblock, Int ib, Int jb, MDESC *mb ); +extern void Cpcgemr2d( Int m, Int n, complex *ptrmyblock, Int ia, Int ja, MDESC *ma, complex *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); /* some defines for Cpcgemr2do */ #define SENDBUFF 0 #define RECVBUFF 1 diff --git a/REDIST/TESTING/pctrmrdrv.c b/REDIST/TESTING/pctrmrdrv.c index 6df949ef..1dab660c 100644 --- a/REDIST/TESTING/pctrmrdrv.c +++ b/REDIST/TESTING/pctrmrdrv.c @@ -105,48 +105,48 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord(); -extern Int Cblacs_pnum(); -extern void Csetpvmtids(); -extern void Cblacs_get(); -extern void Cblacs_pinfo(); -extern void Cblacs_gridinfo(); -extern void Cblacs_gridinit(); -extern void Cblacs_exit(); -extern void Cblacs_gridexit(); -extern void Cblacs_setup(); -extern void Cigebs2d(); -extern void Cigebr2d(); -extern void Cigesd2d(); -extern void Cigerv2d(); -extern void Cigsum2d(); -extern void Cigamn2d(); -extern void Cigamx2d(); -extern void Ccgesd2d(); -extern void Ccgerv2d(); +extern void Cblacs_pcoord(Int, Int, Int*, Int*); +extern Int Cblacs_pnum(Int, Int, Int); +extern void Csetpvmtids(Int, Int*); +extern void Cblacs_get(Int, Int, Int*); +extern void Cblacs_pinfo(Int*, Int*); +extern void Cblacs_gridinfo(Int, Int*, Int*, Int*, Int*); +extern void Cblacs_gridinit(Int*, char*, Int, Int); +extern void Cblacs_exit(Int); +extern void Cblacs_gridexit(Int); +extern void Cblacs_setup(Int*, Int*); +extern void Cigebs2d(Int, char*, char*, Int, Int, Int*, Int); +extern void Cigebr2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); +extern void Cigesd2d(Int, Int, Int, Int*, Int, Int, Int); +extern void Cigerv2d(Int, Int, Int, Int*, Int, Int, Int); +extern void Cigsum2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); +extern void Cigamn2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); +extern void Cigamx2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); +extern void Ccgesd2d(Int, Int, Int, float*, Int, Int, Int); +extern void Ccgerv2d(Int, Int, Int, float*, Int, Int, Int); /* lapack */ void clacpy_(); /* aux fonctions */ -extern Int localindice(); -extern void *mr2d_malloc(); -extern Int ppcm(); -extern Int localsize(); -extern Int memoryblocksize(); -extern Int changeorigin(); -extern void paramcheck(); +extern Int localindice(Int, Int, Int, Int); +extern void *mr2d_malloc(Int); +extern Int ppcm(Int, Int); +extern Int localsize(Int, Int, Int, Int); +extern Int memoryblocksize(MDESC*); +extern Int changeorigin(Int, Int, Int); +extern void paramcheck(Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int); /* tools and others function */ #define scanD0 ctrscanD0 #define dispmat ctrdispmat #define setmemory ctrsetmemory #define freememory ctrfreememory #define scan_intervals ctrscan_intervals -extern void scanD0(); -extern void dispmat(); -extern void setmemory(); -extern void freememory(); -extern Int scan_intervals(); -extern void Cpctrmr2do(); -extern void Cpctrmr2d(); +extern void scanD0(char*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*); +extern void dispmat(float*, Int, Int, Int, Int, Int, Int, Int*); +extern void setmemory(complex**, Int); +extern void freememory(char*); +extern Int scan_intervals(Int, Int, Int, Int, Int, Int, Int**, Int**, Int**, Int**); +extern void Cpctrmr2do( char* uplo, char* diag, Int m, Int n, complex *ptrmyblock, Int ia, Int ja, MDESC *ma, complex *ptrmynewblock, Int ib, Int jb, MDESC *mb ); +extern void Cpctrmr2d( char* uplo, char* diag, Int m, Int n, complex *ptrmyblock, Int ia, Int ja, MDESC *ma, complex *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); /* some defines for Cpctrmr2do */ #define SENDBUFF 0 #define RECVBUFF 1 diff --git a/REDIST/TESTING/pdgemrdrv.c b/REDIST/TESTING/pdgemrdrv.c index 51149046..538bfb20 100644 --- a/REDIST/TESTING/pdgemrdrv.c +++ b/REDIST/TESTING/pdgemrdrv.c @@ -102,48 +102,48 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord(); -extern Int Cblacs_pnum(); -extern void Csetpvmtids(); -extern void Cblacs_get(); -extern void Cblacs_pinfo(); -extern void Cblacs_gridinfo(); -extern void Cblacs_gridinit(); -extern void Cblacs_exit(); -extern void Cblacs_gridexit(); -extern void Cblacs_setup(); -extern void Cigebs2d(); -extern void Cigebr2d(); -extern void Cigesd2d(); -extern void Cigerv2d(); -extern void Cigsum2d(); -extern void Cigamn2d(); -extern void Cigamx2d(); -extern void Cdgesd2d(); -extern void Cdgerv2d(); +extern void Cblacs_pcoord(Int, Int, Int*, Int*); +extern Int Cblacs_pnum(Int, Int, Int); +extern void Csetpvmtids(Int, Int*); +extern void Cblacs_get(Int, Int, Int*); +extern void Cblacs_pinfo(Int*, Int*); +extern void Cblacs_gridinfo(Int, Int*, Int*, Int*, Int*); +extern void Cblacs_gridinit(Int*, char*, Int, Int); +extern void Cblacs_exit(Int); +extern void Cblacs_gridexit(Int); +extern void Cblacs_setup(Int*, Int*); +extern void Cigebs2d(Int, char*, char*, Int, Int, Int*, Int); +extern void Cigebr2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); +extern void Cigesd2d(Int, Int, Int, Int*, Int, Int, Int); +extern void Cigerv2d(Int, Int, Int, Int*, Int, Int, Int); +extern void Cigsum2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); +extern void Cigamn2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); +extern void Cigamx2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); +extern void Cdgesd2d(Int, Int, Int, double*, Int, Int, Int); +extern void Cdgerv2d(Int, Int, Int, double*, Int, Int, Int); /* lapack */ void dlacpy_(); /* aux fonctions */ -extern Int localindice(); -extern void *mr2d_malloc(); -extern Int ppcm(); -extern Int localsize(); -extern Int memoryblocksize(); -extern Int changeorigin(); -extern void paramcheck(); +extern Int localindice(Int, Int, Int, Int); +extern void *mr2d_malloc(Int); +extern Int ppcm(Int, Int); +extern Int localsize(Int, Int, Int, Int); +extern Int memoryblocksize(MDESC*); +extern Int changeorigin(Int, Int, Int); +extern void paramcheck(Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int); /* tools and others function */ #define scanD0 dgescanD0 #define dispmat dgedispmat #define setmemory dgesetmemory #define freememory dgefreememory #define scan_intervals dgescan_intervals -extern void scanD0(); -extern void dispmat(); -extern void setmemory(); -extern void freememory(); -extern Int scan_intervals(); -extern void Cpdgemr2do(); -extern void Cpdgemr2d(); +extern void scanD0(char*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*); +extern void dispmat(double*, Int, Int, Int, Int, Int, Int, Int*); +extern void setmemory(double**, Int); +extern void freememory(char*); +extern Int scan_intervals(Int, Int, Int, Int, Int, Int, Int**, Int**, Int**, Int**); +extern void Cpdgemr2do( Int m, Int n, double *ptrmyblock, Int ia, Int ja, MDESC *ma, double *ptrmynewblock, Int ib, Int jb, MDESC *mb ); +extern void Cpdgemr2d( Int m, Int n, double *ptrmyblock, Int ia, Int ja, MDESC *ma, double *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); /* some defines for Cpdgemr2do */ #define SENDBUFF 0 #define RECVBUFF 1 diff --git a/REDIST/TESTING/pdtrmrdrv.c b/REDIST/TESTING/pdtrmrdrv.c index 6c2a05c9..7256475d 100644 --- a/REDIST/TESTING/pdtrmrdrv.c +++ b/REDIST/TESTING/pdtrmrdrv.c @@ -102,48 +102,46 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord(); -extern Int Cblacs_pnum(); -extern void Csetpvmtids(); -extern void Cblacs_get(); -extern void Cblacs_pinfo(); -extern void Cblacs_gridinfo(); -extern void Cblacs_gridinit(); -extern void Cblacs_exit(); -extern void Cblacs_gridexit(); -extern void Cblacs_setup(); -extern void Cigebs2d(); -extern void Cigebr2d(); -extern void Cigesd2d(); -extern void Cigerv2d(); -extern void Cigsum2d(); -extern void Cigamn2d(); -extern void Cigamx2d(); -extern void Cdgesd2d(); -extern void Cdgerv2d(); +extern void Cblacs_pcoord(Int, Int, Int*, Int*); +extern Int Cblacs_pnum(Int, Int, Int); +extern void Csetpvmtids(Int, Int*); +extern void Cblacs_get(Int, Int, Int*); +extern void Cblacs_pinfo(Int*, Int*); +extern void Cblacs_gridinfo(Int, Int*, Int*, Int*, Int*); +extern void Cblacs_gridinit(Int*, char*, Int, Int); +extern void Cblacs_exit(Int); +extern void Cblacs_gridexit(Int); +extern void Cblacs_setup(Int*, Int*); +extern void Cigebs2d(Int, char*, char*, Int, Int, Int*, Int); +extern void Cigebr2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); +extern void Cigesd2d(Int, Int, Int, Int*, Int, Int, Int); +extern void Cigerv2d(Int, Int, Int, Int*, Int, Int, Int); +extern void Cigsum2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); +extern void Cigamn2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); +extern void Cigamx2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); /* lapack */ void dlacpy_(); /* aux fonctions */ -extern Int localindice(); -extern void *mr2d_malloc(); -extern Int ppcm(); -extern Int localsize(); -extern Int memoryblocksize(); -extern Int changeorigin(); -extern void paramcheck(); +extern Int localindice(Int, Int, Int, Int); +extern void *mr2d_malloc(Int); +extern Int ppcm(Int, Int); +extern Int localsize(Int, Int, Int, Int); +extern Int memoryblocksize(MDESC*); +extern Int changeorigin(Int, Int, Int); +extern void paramcheck(Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int); /* tools and others function */ #define scanD0 dtrscanD0 #define dispmat dtrdispmat #define setmemory dtrsetmemory #define freememory dtrfreememory #define scan_intervals dtrscan_intervals -extern void scanD0(); -extern void dispmat(); -extern void setmemory(); -extern void freememory(); -extern Int scan_intervals(); -extern void Cpdtrmr2do(); -extern void Cpdtrmr2d(); +extern void scanD0(char*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*); +extern void dispmat(double*, Int, Int, Int, Int, Int, Int, Int*); +extern void setmemory(double**, Int); +extern void freememory(char*); +extern Int scan_intervals(Int, Int, Int, Int, Int, Int, Int**, Int**, Int**, Int**); +extern void Cpdtrmr2do( char* uplo, char* diag, Int m, Int n, double *ptrmyblock, Int ia, Int ja, MDESC *ma, double *ptrmynewblock, Int ib, Int jb, MDESC *mb ); +extern void Cpdtrmr2d( char* uplo, char* diag, Int m, Int n, double *ptrmyblock, Int ia, Int ja, MDESC *ma, double *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); /* some defines for Cpdtrmr2do */ #define SENDBUFF 0 #define RECVBUFF 1 diff --git a/REDIST/TESTING/pigemrdrv.c b/REDIST/TESTING/pigemrdrv.c index 666b3ba8..97f143ea 100644 --- a/REDIST/TESTING/pigemrdrv.c +++ b/REDIST/TESTING/pigemrdrv.c @@ -125,7 +125,7 @@ extern Int localindice(Int, Int, Int, Int); extern void *mr2d_malloc(Int); extern Int ppcm(Int, Int); extern Int localsize(Int, Int, Int, Int); -extern Int memoryblocksize(Int, Int, Int, Int, Int, Int); +extern Int memoryblocksize(MDESC *desc); extern Int changeorigin(Int, Int, Int); extern void paramcheck(Int, char*, char*, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int*, Int*); /* tools and others function */ @@ -140,7 +140,7 @@ extern void setmemory(void**, Int); extern void freememory(void*); extern Int scan_intervals(Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int*, Int**, Int**, Int**); extern void Cpigemr2do(Int, Int, Int*, Int, Int, Int, Int, Int*, Int, Int, Int, Int, Int); -extern void Cpigemr2d(Int, Int, Int*, Int, Int, Int, Int, Int*, Int, Int, Int, Int, Int); +extern void Cpigemr2d(Int, Int, Int*, Int, Int, Int*, Int*, Int, Int, Int*, Int); /* some defines for Cpigemr2do */ #define SENDBUFF 0 #define RECVBUFF 1 @@ -399,29 +399,29 @@ m1 n1 sr1 sc1 i1 j1 p1 q1 nbr1 nbc1\n\n"); if (myprow0 >= 0 && mypcol0 >= 0) { blocksize0 = memoryblocksize(&ma); ma.lda = localsize(SHIFT(myprow0, ma.sprow, p0), p0, ma.nbrow, ma.m); - setmemory(&ptrmyblock, blocksize0); + setmemory((void **)&ptrmyblock, blocksize0); initblock(ptrmyblock, 1, blocksize0); - setmemory(&ptrmyblockcopy, blocksize0); + setmemory((void **)&ptrmyblockcopy, blocksize0); memcpy((char *) ptrmyblockcopy, (char *) ptrmyblock, blocksize0 * sizeof(int)); - setmemory(&ptrmyblockvide, blocksize0); + setmemory((void **)&ptrmyblockvide, blocksize0); for (i = 0; i < blocksize0; i++) ptrmyblockvide[i] = -1; }; /* if (mypnum < p0 * q0) */ if (myprow1 >= 0 && mypcol1 >= 0) { - setmemory(&ptrsavemyblock, memoryblocksize(&mb)); + setmemory((void **)&ptrsavemyblock, memoryblocksize(&mb)); mb.lda = localsize(SHIFT(myprow1, mb.sprow, p1), p1, mb.nbrow, mb.m); }; /* if (mypnum < p1 * q1) */ /* Redistribute the matrix from grid 0 to grid 1 (memory location * ptrmyblock to ptrsavemyblock) */ Cpigemr2d(m, n, - ptrmyblock, ia, ja, &ma, - ptrsavemyblock, ib, jb, &mb, gcontext); + ptrmyblock, ia, ja, (Int*)&ma, + ptrsavemyblock, ib, jb, (Int*)&mb, gcontext); /* Perform the inverse redistribution of the matrix from grid 1 to grid 0 * (memory location ptrsavemyblock to ptrmyblockvide) */ Cpigemr2d(m, n, - ptrsavemyblock, ib, jb, &mb, - ptrmyblockvide, ia, ja, &ma, gcontext); + ptrsavemyblock, ib, jb, (Int*)&mb, + ptrmyblockvide, ia, ja, (Int*)&ma, gcontext); /* Check the differences */ nberrors = 0; if (myprow0 >= 0 && mypcol0 >= 0) { diff --git a/REDIST/TESTING/pitrmrdrv.c b/REDIST/TESTING/pitrmrdrv.c index e1945c25..d25c2bf1 100644 --- a/REDIST/TESTING/pitrmrdrv.c +++ b/REDIST/TESTING/pitrmrdrv.c @@ -101,48 +101,46 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord(); -extern Int Cblacs_pnum(); -extern void Csetpvmtids(); -extern void Cblacs_get(); -extern void Cblacs_pinfo(); -extern void Cblacs_gridinfo(); -extern void Cblacs_gridinit(); -extern void Cblacs_exit(); -extern void Cblacs_gridexit(); -extern void Cblacs_setup(); -extern void Cigebs2d(); -extern void Cigebr2d(); -extern void Cigesd2d(); -extern void Cigerv2d(); -extern void Cigsum2d(); -extern void Cigamn2d(); -extern void Cigamx2d(); -extern void Cigesd2d(); -extern void Cigerv2d(); +extern void Cblacs_pcoord(Int, Int, Int*, Int*); +extern Int Cblacs_pnum(Int, Int, Int); +extern void Csetpvmtids(Int, Int*); +extern void Cblacs_get(Int, Int, Int*); +extern void Cblacs_pinfo(Int*, Int*); +extern void Cblacs_gridinfo(Int, Int*, Int*, Int*, Int*); +extern void Cblacs_gridinit(Int*, char*, Int, Int); +extern void Cblacs_exit(Int); +extern void Cblacs_gridexit(Int); +extern void Cblacs_setup(Int*, Int*); +extern void Cigebs2d(Int, char*, char*, Int, Int, Int*, Int); +extern void Cigebr2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); +extern void Cigesd2d(Int, Int, Int, Int*, Int, Int, Int); +extern void Cigerv2d(Int, Int, Int, Int*, Int, Int, Int); +extern void Cigsum2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); +extern void Cigamn2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); +extern void Cigamx2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); /* lapack */ void ilacpy_(); /* aux fonctions */ -extern Int localindice(); -extern void *mr2d_malloc(); -extern Int ppcm(); -extern Int localsize(); -extern Int memoryblocksize(); -extern Int changeorigin(); -extern void paramcheck(); +extern Int localindice(Int, Int, Int, Int); +extern void *mr2d_malloc(Int); +extern Int ppcm(Int, Int); +extern Int localsize(Int, Int, Int, Int); +extern Int memoryblocksize(MDESC*); +extern Int changeorigin(Int, Int, Int); +extern void paramcheck(Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int); /* tools and others function */ #define scanD0 itrscanD0 #define dispmat itrdispmat #define setmemory itrsetmemory #define freememory itrfreememory #define scan_intervals itrscan_intervals -extern void scanD0(); +extern void scanD0( char* uplo, char* diag, Int action, Int* ptrbuff, Int* ptrsizebuff, Int m, Int n, MDESC* ma, Int ia, Int ja, Int p0, Int q0, MDESC* mb, Int ib, Int jb, Int p1, Int q1, IDESC* v_inter, Int vinter_nb, IDESC* h_inter, Int hinter_nb, Int* ptrblock ); extern void dispmat(); -extern void setmemory(); -extern void freememory(); -extern Int scan_intervals(); -extern void Cpitrmr2do(); -extern void Cpitrmr2d(); +extern void setmemory( Int** ptr, Int size ); +extern void freememory( char* ptr ); +extern Int scan_intervals( char rc, Int i0, Int i1, Int len, MDESC *m0, MDESC *m1, Int p0, Int p1, Int myp, Int otherp, IDESC *inter ); +extern void Cpitrmr2do( char* uplo, char* diag, Int m, Int n, Int *ptrmyblock, Int ia, Int ja, MDESC *ma, Int *ptrmynewblock, Int ib, Int jb, MDESC *mb ); +extern void Cpitrmr2d( char* uplo, char* diag, Int m, Int n, Int *ptrmyblock, Int ia, Int ja, MDESC *ma, Int *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); /* some defines for Cpitrmr2do */ #define SENDBUFF 0 #define RECVBUFF 1 diff --git a/REDIST/TESTING/psgemrdrv.c b/REDIST/TESTING/psgemrdrv.c index f9a98f0a..18f93fc6 100644 --- a/REDIST/TESTING/psgemrdrv.c +++ b/REDIST/TESTING/psgemrdrv.c @@ -1,4 +1,5 @@ #include "redist.h" +#include /* $Id: psgemrdrv.c,v 1.1.1.1 2000/02/15 18:04:10 susan Exp $ * * psgemrdrv.c : @@ -101,48 +102,48 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord(); -extern Int Cblacs_pnum(); +extern void Cblacs_pcoord( Int context, Int pnum, Int* prow, Int* pcol ); +extern Int Cblacs_pnum( Int context, Int prow, Int pcol ); extern void Csetpvmtids(); -extern void Cblacs_get(); -extern void Cblacs_pinfo(); -extern void Cblacs_gridinfo(); -extern void Cblacs_gridinit(); -extern void Cblacs_exit(); -extern void Cblacs_gridexit(); -extern void Cblacs_setup(); -extern void Cigebs2d(); -extern void Cigebr2d(); -extern void Cigesd2d(); -extern void Cigerv2d(); -extern void Cigsum2d(); -extern void Cigamn2d(); -extern void Cigamx2d(); -extern void Csgesd2d(); -extern void Csgerv2d(); +extern void Cblacs_get( Int context, Int what, Int* val ); +extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); +extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); +extern void Cblacs_gridinit( Int* context, char* order, Int nprow, Int npcol ); +extern void Cblacs_exit( Int continue_blacs ); +extern void Cblacs_gridexit( Int context ); +extern void Cblacs_setup( Int* mypnum, Int* nprocs ); +extern void Cigebs2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda ); +extern void Cigebr2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); +extern void Cigesd2d( Int context, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); +extern void Cigerv2d( Int context, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); +extern void Cigsum2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); +extern void Cigamn2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); +extern void Cigamx2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); +extern void Csgesd2d( Int context, Int m, Int n, float* A, Int lda, Int rdest, Int cdest ); +extern void Csgerv2d( Int context, Int m, Int n, float* A, Int lda, Int rsrc, Int csrc ); /* lapack */ void slacpy_(); /* aux fonctions */ -extern Int localindice(); -extern void *mr2d_malloc(); -extern Int ppcm(); -extern Int localsize(); -extern Int memoryblocksize(); -extern Int changeorigin(); -extern void paramcheck(); +extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); +extern void *mr2d_malloc( size_t n ); +extern Int ppcm( Int a, Int b ); +extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); +extern Int memoryblocksize( MDESC *a ); +extern Int changeorigin( Int myp, Int sp, Int p, Int bs, Int i, Int *decal, Int *newsp ); +extern void paramcheck( MDESC *a, Int i, Int j, Int m, Int n, Int p, Int q, Int gcontext ); /* tools and others function */ #define scanD0 sgescanD0 #define dispmat sgedispmat #define setmemory sgesetmemory #define freememory sgefreememory #define scan_intervals sgescan_intervals -extern void scanD0(); +extern void scanD0( char* uplo, char* diag, Int action, float* ptrbuff, Int* ptrsizebuff, Int m, Int n, MDESC* ma, Int ia, Int ja, Int p0, Int q0, MDESC* mb, Int ib, Int jb, Int p1, Int q1, IDESC* v_inter, Int vinter_nb, IDESC* h_inter, Int hinter_nb, float* ptrblock ); extern void dispmat(); -extern void setmemory(); -extern void freememory(); -extern Int scan_intervals(); -extern void Cpsgemr2do(); -extern void Cpsgemr2d(); +extern void setmemory( float** ptr, Int size ); +extern void freememory( char* ptr ); +extern Int scan_intervals( char type, Int ja, Int jb, Int n, MDESC *ma, MDESC *mb, Int q0, Int q1, Int col0, Int col1, IDESC *result ); +extern void Cpsgemr2do( Int m, Int n, float *ptrmyblock, Int ia, Int ja, MDESC *ma, float *ptrmynewblock, Int ib, Int jb, MDESC *mb ); +extern void Cpsgemr2d( Int m, Int n, float *ptrmyblock, Int ia, Int ja, MDESC *ma, float *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); /* some defines for Cpsgemr2do */ #define SENDBUFF 0 #define RECVBUFF 1 diff --git a/REDIST/TESTING/pstrmrdrv.c b/REDIST/TESTING/pstrmrdrv.c index 1e836d4d..f08dcf40 100644 --- a/REDIST/TESTING/pstrmrdrv.c +++ b/REDIST/TESTING/pstrmrdrv.c @@ -101,48 +101,48 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord(); -extern Int Cblacs_pnum(); -extern void Csetpvmtids(); -extern void Cblacs_get(); -extern void Cblacs_pinfo(); -extern void Cblacs_gridinfo(); -extern void Cblacs_gridinit(); -extern void Cblacs_exit(); -extern void Cblacs_gridexit(); -extern void Cblacs_setup(); -extern void Cigebs2d(); -extern void Cigebr2d(); -extern void Cigesd2d(); -extern void Cigerv2d(); -extern void Cigsum2d(); -extern void Cigamn2d(); -extern void Cigamx2d(); -extern void Csgesd2d(); -extern void Csgerv2d(); +extern void Cblacs_pcoord(Int, Int, Int*, Int*); +extern Int Cblacs_pnum(Int, Int, Int); +extern void Csetpvmtids(Int, Int*); +extern void Cblacs_get(Int, Int, Int*); +extern void Cblacs_pinfo(Int*, Int*); +extern void Cblacs_gridinfo(Int, Int*, Int*, Int*, Int*); +extern void Cblacs_gridinit(Int*, char*, Int, Int); +extern void Cblacs_exit(Int); +extern void Cblacs_gridexit(Int); +extern void Cblacs_setup(Int*, Int*); +extern void Cigebs2d(Int, char*, char*, Int, Int, Int*, Int); +extern void Cigebr2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); +extern void Cigesd2d(Int, Int, Int, Int*, Int, Int, Int); +extern void Cigerv2d(Int, Int, Int, Int*, Int, Int, Int); +extern void Cigsum2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); +extern void Cigamn2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); +extern void Cigamx2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); +extern void Csgesd2d(Int, Int, Int, float*, Int, Int, Int); +extern void Csgerv2d(Int, Int, Int, float*, Int, Int, Int); /* lapack */ void slacpy_(); /* aux fonctions */ -extern Int localindice(); -extern void *mr2d_malloc(); -extern Int ppcm(); -extern Int localsize(); -extern Int memoryblocksize(); -extern Int changeorigin(); -extern void paramcheck(); +extern Int localindice(Int, Int, Int, Int); +extern void *mr2d_malloc(Int); +extern Int ppcm(Int, Int); +extern Int localsize(Int, Int, Int, Int); +extern Int memoryblocksize(MDESC*); +extern Int changeorigin(Int, Int, Int); +extern void paramcheck(Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int); /* tools and others function */ #define scanD0 strscanD0 #define dispmat strdispmat #define setmemory strsetmemory #define freememory strfreememory #define scan_intervals strscan_intervals -extern void scanD0(); -extern void dispmat(); -extern void setmemory(); -extern void freememory(); -extern Int scan_intervals(); -extern void Cpstrmr2do(); -extern void Cpstrmr2d(); +extern void scanD0(char*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*); +extern void dispmat(Int*, Int, Int, Int, Int, Int, Int, Int*); +extern void setmemory(float**, Int); +extern void freememory(char*); +extern Int scan_intervals(Int, Int, Int, Int, Int, Int, Int**, Int**, Int**, Int**); +extern void Cpstrmr2do( char* uplo, char* diag, Int m, Int n, float *ptrmyblock, Int ia, Int ja, MDESC *ma, float *ptrmynewblock, Int ib, Int jb, MDESC *mb ); +extern void Cpstrmr2d( char* uplo, char* diag, Int m, Int n, float *ptrmyblock, Int ia, Int ja, MDESC *ma, float *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); /* some defines for Cpstrmr2do */ #define SENDBUFF 0 #define RECVBUFF 1 diff --git a/REDIST/TESTING/pzgemrdrv.c b/REDIST/TESTING/pzgemrdrv.c index e41ffeaa..90d947d0 100644 --- a/REDIST/TESTING/pzgemrdrv.c +++ b/REDIST/TESTING/pzgemrdrv.c @@ -105,48 +105,48 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord(); -extern Int Cblacs_pnum(); -extern void Csetpvmtids(); -extern void Cblacs_get(); -extern void Cblacs_pinfo(); -extern void Cblacs_gridinfo(); -extern void Cblacs_gridinit(); -extern void Cblacs_exit(); -extern void Cblacs_gridexit(); -extern void Cblacs_setup(); -extern void Cigebs2d(); -extern void Cigebr2d(); -extern void Cigesd2d(); -extern void Cigerv2d(); -extern void Cigsum2d(); -extern void Cigamn2d(); -extern void Cigamx2d(); -extern void Czgesd2d(); -extern void Czgerv2d(); +extern void Cblacs_pcoord(Int, Int, Int*, Int*); +extern Int Cblacs_pnum(Int, Int, Int); +extern void Csetpvmtids(Int, Int*); +extern void Cblacs_get(Int, Int, Int*); +extern void Cblacs_pinfo(Int*, Int*); +extern void Cblacs_gridinfo(Int, Int*, Int*, Int*, Int*); +extern void Cblacs_gridinit(Int*, char*, Int, Int); +extern void Cblacs_exit(Int); +extern void Cblacs_gridexit(Int); +extern void Cblacs_setup(Int*, Int*); +extern void Cigebs2d(Int, char*, char*, Int, Int, Int*, Int); +extern void Cigebr2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); +extern void Cigesd2d(Int, Int, Int, Int*, Int, Int, Int); +extern void Cigerv2d(Int, Int, Int, Int*, Int, Int, Int); +extern void Cigsum2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); +extern void Cigamn2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); +extern void Cigamx2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); +extern void Czgesd2d(Int, Int, Int, double*, Int, Int, Int); +extern void Czgerv2d(Int, Int, Int, double*, Int, Int, Int); /* lapack */ void zlacpy_(); /* aux fonctions */ -extern Int localindice(); -extern void *mr2d_malloc(); -extern Int ppcm(); -extern Int localsize(); -extern Int memoryblocksize(); -extern Int changeorigin(); -extern void paramcheck(); +extern Int localindice(Int, Int, Int, Int); +extern void *mr2d_malloc(Int); +extern Int ppcm(Int, Int); +extern Int localsize(Int, Int, Int, Int); +extern Int memoryblocksize(MDESC*); +extern Int changeorigin(Int, Int, Int); +extern void paramcheck(Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int); /* tools and others function */ #define scanD0 zgescanD0 #define dispmat zgedispmat #define setmemory zgesetmemory #define freememory zgefreememory #define scan_intervals zgescan_intervals -extern void scanD0(); -extern void dispmat(); -extern void setmemory(); -extern void freememory(); -extern Int scan_intervals(); -extern void Cpzgemr2do(); -extern void Cpzgemr2d(); +extern void scanD0(char*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*); +extern void dispmat(double*, Int, Int, Int, Int, Int, Int, Int*); +extern void setmemory(dcomplex**, Int); +extern void freememory(char*); +extern Int scan_intervals(Int, Int, Int, Int, Int, Int, Int**, Int**, Int**, Int**); +extern void Cpzgemr2do( Int m, Int n, dcomplex *ptrmyblock, Int ia, Int ja, MDESC *ma, dcomplex *ptrmynewblock, Int ib, Int jb, MDESC *mb ); +extern void Cpzgemr2d( Int m, Int n, dcomplex *ptrmyblock, Int ia, Int ja, MDESC *ma, dcomplex *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); /* some defines for Cpzgemr2do */ #define SENDBUFF 0 #define RECVBUFF 1 diff --git a/REDIST/TESTING/pztrmrdrv.c b/REDIST/TESTING/pztrmrdrv.c index 1089a99f..6135b27e 100644 --- a/REDIST/TESTING/pztrmrdrv.c +++ b/REDIST/TESTING/pztrmrdrv.c @@ -105,48 +105,48 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord(); -extern Int Cblacs_pnum(); -extern void Csetpvmtids(); -extern void Cblacs_get(); -extern void Cblacs_pinfo(); -extern void Cblacs_gridinfo(); -extern void Cblacs_gridinit(); -extern void Cblacs_exit(); -extern void Cblacs_gridexit(); -extern void Cblacs_setup(); -extern void Cigebs2d(); -extern void Cigebr2d(); -extern void Cigesd2d(); -extern void Cigerv2d(); -extern void Cigsum2d(); -extern void Cigamn2d(); -extern void Cigamx2d(); -extern void Czgesd2d(); -extern void Czgerv2d(); +extern void Cblacs_pcoord(Int, Int, Int*, Int*); +extern Int Cblacs_pnum(Int, Int, Int); +extern void Csetpvmtids(Int, Int*); +extern void Cblacs_get(Int, Int, Int*); +extern void Cblacs_pinfo(Int*, Int*); +extern void Cblacs_gridinfo(Int, Int*, Int*, Int*, Int*); +extern void Cblacs_gridinit(Int*, char*, Int, Int); +extern void Cblacs_exit(Int); +extern void Cblacs_gridexit(Int); +extern void Cblacs_setup(Int*, Int*); +extern void Cigebs2d(Int, char*, char*, Int, Int, Int*, Int); +extern void Cigebr2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); +extern void Cigesd2d(Int, Int, Int, Int*, Int, Int, Int); +extern void Cigerv2d(Int, Int, Int, Int*, Int, Int, Int); +extern void Cigsum2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); +extern void Cigamn2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); +extern void Cigamx2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); +extern void Czgesd2d(Int, Int, Int, double*, Int, Int, Int); +extern void Czgerv2d(Int, Int, Int, double*, Int, Int, Int); /* lapack */ void zlacpy_(); /* aux fonctions */ -extern Int localindice(); -extern void *mr2d_malloc(); -extern Int ppcm(); -extern Int localsize(); -extern Int memoryblocksize(); -extern Int changeorigin(); -extern void paramcheck(); +extern Int localindice(Int, Int, Int, Int); +extern void *mr2d_malloc(Int); +extern Int ppcm(Int, Int); +extern Int localsize(Int, Int, Int, Int); +extern Int memoryblocksize(MDESC*); +extern Int changeorigin(Int, Int, Int); +extern void paramcheck(Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int); /* tools and others function */ #define scanD0 ztrscanD0 #define dispmat ztrdispmat #define setmemory ztrsetmemory #define freememory ztrfreememory #define scan_intervals ztrscan_intervals -extern void scanD0(); -extern void dispmat(); -extern void setmemory(); -extern void freememory(); -extern Int scan_intervals(); -extern void Cpztrmr2do(); -extern void Cpztrmr2d(); +extern void scanD0(char*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*); +extern void dispmat(double*, Int, Int, Int, Int, Int, Int, Int*); +extern void setmemory(dcomplex**, Int); +extern void freememory(char*); +extern Int scan_intervals(Int, Int, Int, Int, Int, Int, Int**, Int**, Int**, Int**); +extern void Cpztrmr2do( char* uplo, char* diag, Int m, Int n, dcomplex *ptrmyblock, Int ia, Int ja, MDESC *ma, dcomplex *ptrmynewblock, Int ib, Int jb, MDESC *mb ); +extern void Cpztrmr2d( char* uplo, char* diag, Int m, Int n, dcomplex *ptrmyblock, Int ia, Int ja, MDESC *ma, dcomplex *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); /* some defines for Cpztrmr2do */ #define SENDBUFF 0 #define RECVBUFF 1 From 12e0068119357b657fd422c2aa95441daf220200 Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Tue, 20 Jan 2026 21:31:56 +0800 Subject: [PATCH 03/30] Add -fallow-argument-mismatch to NOOPT and FCFLAGS --- SLmake.inc.example | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/SLmake.inc.example b/SLmake.inc.example index 3a867c3b..b24dbcea 100644 --- a/SLmake.inc.example +++ b/SLmake.inc.example @@ -28,8 +28,8 @@ CDEFS = -DAdd_ FC = mpif90 CC = mpicc -NOOPT = -O0 -FCFLAGS = -O3 +NOOPT = -O0 -fallow-argument-mismatch +FCFLAGS = -O3 -fallow-argument-mismatch CCFLAGS = -O3 FCLOADER = $(FC) CCLOADER = $(CC) From 7b2c044830d71879870d3bdfbdda74c910675f25 Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Wed, 21 Jan 2026 09:31:54 +0800 Subject: [PATCH 04/30] Declare the prototype of each function internally --- BLACS/TESTING/Cbt.c | 290 +++++++++++++++++++++++++++++--------------- 1 file changed, 195 insertions(+), 95 deletions(-) diff --git a/BLACS/TESTING/Cbt.c b/BLACS/TESTING/Cbt.c index 7c127467..85a58e20 100644 --- a/BLACS/TESTING/Cbt.c +++ b/BLACS/TESTING/Cbt.c @@ -1,241 +1,341 @@ #ifdef BTCINTFACE #include "Cbt.h" -extern void Cblacs_gridinit(Int*, char*, Int, Int); -extern void Cblacs_setup(Int*, Int*); -extern void Cblacs_pinfo(Int*, Int*); -extern void Cblacs_gridmap(Int*, Int*, Int, Int, Int); -extern void Cblacs_gridexit(Int); -extern void Cblacs_abort(Int, Int); -extern void Cblacs_exit(Int); -extern void Cblacs_freebuff(Int, Int); -extern void Cblacs_gridinfo(Int, Int*, Int*, Int*, Int*); -extern void Cblacs_barrier(Int, char*); -extern Int Cblacs_pnum(Int, Int, Int); -extern void Cblacs_pcoord(Int, Int, Int*, Int*); -extern void Cblacs_get(Int, Int, Int*); -extern void Cblacs_set(Int, Int, Int*); -extern void Cigesd2d(Int, Int, Int, Int*, Int, Int, Int); -extern void Cigerv2d(Int, Int, Int, Int*, Int, Int, Int); -extern void Cigebs2d(Int, char*, char*, Int, Int, Int*, Int); -extern void Cigebr2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); -extern void Citrsd2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); -extern void Citrrv2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); -extern void Citrbs2d(Int, char*, char*, char*, char*, Int, Int, Int*, Int); -extern void Citrbr2d(Int, char*, char*, char*, char*, Int, Int, Int*, Int, Int, Int); -extern void Cigsum2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); -extern void Cigamx2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); -extern void Cigamn2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); -extern void Cdgesd2d(Int, Int, Int, double*, Int, Int, Int); -extern void Cdgerv2d(Int, Int, Int, double*, Int, Int, Int); -extern void Cdgebs2d(Int, char*, char*, Int, Int, double*, Int); -extern void Cdgebr2d(Int, char*, char*, Int, Int, double*, Int, Int, Int); -extern void Cdtrsd2d(Int, char*, char*, Int, Int, double*, Int, Int, Int); -extern void Cdtrrv2d(Int, char*, char*, Int, Int, double*, Int, Int, Int); -extern void Cdtrbs2d(Int, char*, char*, char*, char*, Int, Int, double*, Int); -extern void Cdtrbr2d(Int, char*, char*, char*, char*, Int, Int, double*, Int, Int, Int); -extern void Cdgsum2d(Int, char*, char*, Int, Int, double*, Int, Int, Int); -extern void Cdgamx2d(Int, char*, char*, Int, Int, double*, Int, Int*, Int*, Int, Int, Int); -extern void Cdgamn2d(Int, char*, char*, Int, Int, double*, Int, Int*, Int*, Int, Int, Int); -extern void Csgesd2d(Int, Int, Int, float*, Int, Int, Int); -extern void Csgerv2d(Int, Int, Int, float*, Int, Int, Int); -extern void Csgebs2d(Int, char*, char*, Int, Int, float*, Int); -extern void Csgebr2d(Int, char*, char*, Int, Int, float*, Int, Int, Int); -extern void Cstrsd2d(Int, char*, char*, Int, Int, float*, Int, Int, Int); -extern void Cstrrv2d(Int, char*, char*, Int, Int, float*, Int, Int, Int); -extern void Cstrbs2d(Int, char*, char*, char*, char*, Int, Int, float*, Int); -extern void Cstrbr2d(Int, char*, char*, char*, char*, Int, Int, float*, Int, Int, Int); -extern void Csgsum2d(Int, char*, char*, Int, Int, float*, Int, Int, Int); -extern void Csgamx2d(Int, char*, char*, Int, Int, float*, Int, Int*, Int*, Int, Int, Int); -extern void Csgamn2d(Int, char*, char*, Int, Int, float*, Int, Int*, Int*, Int, Int, Int); + void blacs_gridinit_(Int *ConTxt, char *order, Int *nprow, Int *npcol) { -Cblacs_gridinit(ConTxt, order, *nprow, *npcol); + void Cblacs_gridinit( Int* context, char* order, Int nprow, Int npcol ); + + Cblacs_gridinit(ConTxt, order, *nprow, *npcol); } + void blacs_setup_(Int *mypnum, Int *nprocs) { -Cblacs_setup(mypnum, nprocs); + void Cblacs_setup( Int* mypnum, Int* nprocs ); + Cblacs_setup(mypnum, nprocs); } + void blacs_pinfo_(Int *mypnum, Int *nprocs) { -Cblacs_pinfo(mypnum, nprocs); + void Cblacs_pinfo( Int* mypnum, Int* nprocs ); + Cblacs_pinfo(mypnum, nprocs); } + void blacs_gridmap_(Int *ConTxt, Int *usermap, Int *ldup, Int *nprow, Int *npcol) { -Cblacs_gridmap(ConTxt, usermap, *ldup, *nprow, *npcol); + void Cblacs_gridmap( Int* context, Int* usermap, Int ldumap, Int nprow, Int npcol ); + Cblacs_gridmap(ConTxt, usermap, *ldup, *nprow, *npcol); } + void blacs_gridexit_(Int *ConTxt) { -Cblacs_gridexit(*ConTxt); + void Cblacs_gridexit( Int context ); + Cblacs_gridexit(*ConTxt); } + void blacs_abort_(Int *ConTxt, Int *ErrNo) { -Cblacs_abort(*ConTxt, *ErrNo); + void Cblacs_abort(Int ConTxt, Int ErrNo); + Cblacs_abort(*ConTxt, *ErrNo); } + void blacs_exit_(Int *NotDone) { -Cblacs_exit(*NotDone); + void Cblacs_exit(Int NotDone); + Cblacs_exit(*NotDone); } + void blacs_freebuff_(Int *ConTxt, Int *Wait) { -Cblacs_freebuff(*ConTxt, *Wait); + void Cblacs_freebuff(Int ConTxt, Int Wait); + Cblacs_freebuff(*ConTxt, *Wait); } + void blacs_gridinfo_(Int *ConTxt, Int *nprow, Int *npcol, Int *myrow, Int *mycol) { -Cblacs_gridinfo(*ConTxt, nprow, npcol, myrow, mycol); + void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); + Cblacs_gridinfo(*ConTxt, nprow, npcol, myrow, mycol); } + void blacs_barrier_(Int *ConTxt, char *scope) { -Cblacs_barrier(*ConTxt, scope); + void Cblacs_barrier(Int ConTxt, char *scope); + Cblacs_barrier(*ConTxt, scope); } + Int blacs_pnum_(Int *ConTxt, Int *prow, Int *pcol) { -return( Cblacs_pnum(*ConTxt, *prow, *pcol) ); + Int Cblacs_pnum( Int context, Int prow, Int pcol ); + return( Cblacs_pnum(*ConTxt, *prow, *pcol) ); } + void blacs_pcoord_(Int *ConTxt, Int *nodenum, Int *prow, Int *pcol) { -Cblacs_pcoord(*ConTxt, *nodenum, prow, pcol); + void Cblacs_pcoord( Int context, Int pnum, Int* prow, Int* pcol ); + Cblacs_pcoord(*ConTxt, *nodenum, prow, pcol); } + void blacs_get_(Int *ConTxt, Int *what, Int *I) { -Cblacs_get(*ConTxt, *what, I); + void Cblacs_get( Int context, Int what, Int* I ); + Cblacs_get(*ConTxt, *what, I); } + void blacs_set_(Int *ConTxt, Int *what, Int *I) { -Cblacs_set(*ConTxt, *what, I); + void Cblacs_set(Int ConTxt, Int what, Int *I); + Cblacs_set(*ConTxt, *what, I); } + + void igesd2d_(Int *ConTxt, Int *m, Int *n, Int *A, Int *lda, Int *rdest, Int *cdest) { -Cigesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest); + void Cigesd2d(Int ConTxt, Int m, Int n, Int *A, Int lda, Int rdest, Int cdest); + Cigesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest); } + void igerv2d_(Int *ConTxt, Int *m, Int *n, Int *A, Int *lda, Int *rsrc, Int *csrc) { -Cigerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc); + void Cigerv2d(Int ConTxt, Int m, Int n, Int *A, Int lda, Int rsrc, Int csrc); + Cigerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc); } + void igebs2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, Int *A, Int *lda) { -Cigebs2d(*ConTxt, scope, top, *m, *n, A, *lda); + void Cigebs2d(Int ConTxt, char *scope, char *top, Int m, Int n, Int *A, Int lda); + Cigebs2d(*ConTxt, scope, top, *m, *n, A, *lda); } + void igebr2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, Int *A, Int *lda, Int *rsrc, Int *csrc) { -Cigebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc); + void Cigebr2d(Int ConTxt, char *scope, char *top, Int m, Int n, Int *A, Int lda, Int rsrc, Int csrc); + Cigebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc); } + void itrsd2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, Int *A, Int *lda, Int *rdest, Int *cdest) { -Citrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest); + void Citrsd2d(Int ConTxt, char *uplo, char *diag, Int m, Int n, Int *A, Int lda, Int rdest, Int cdest); + Citrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest); } + void itrrv2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, Int *A, Int *lda, Int *rsrc, Int *csrc) { -Citrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); + void Citrrv2d(Int ConTxt, char *uplo, char *diag, Int m, Int n, Int *A, Int lda, Int rsrc, Int csrc); + Citrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); } + void itrbs2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, Int *A, Int *lda) { -Citrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda); + void Citrbs2d(Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, Int *A, Int lda); + Citrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda); } + void itrbr2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, Int *A, Int *lda, Int *rsrc, Int *csrc) { -Citrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); + void Citrbr2d(Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, Int *A, Int lda, Int rsrc, Int csrc); + Citrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); } + void igsum2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, Int *A, Int *lda, Int *rdest, Int *cdest) { -Cigsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest); + void Cigsum2d(Int ConTxt, char *scope, char *top, Int m, Int n, Int *A, Int lda, Int rdest, Int cdest); + Cigsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest); } + void igamx2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, Int *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) { -Cigamx2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, *rdest, *cdest); + void Cigamx2d(Int ConTxt, char *scope, char *top, Int m, Int n, Int *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest); + Cigamx2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, + *rdest, *cdest); } + void igamn2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, Int *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) { -Cigamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, *rdest, *cdest); + void Cigamn2d(Int ConTxt, char *scope, char *top, Int m, Int n, Int *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest); + Cigamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, + *rdest, *cdest); } + void dgesd2d_(Int *ConTxt, Int *m, Int *n, double *A, Int *lda, Int *rdest, Int *cdest) { -Cdgesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest); + void Cdgesd2d(Int ConTxt, Int m, Int n, double *A, Int lda, Int rdest, Int cdest); + Cdgesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest); } + void dgerv2d_(Int *ConTxt, Int *m, Int *n, double *A, Int *lda, Int *rsrc, Int *csrc) { -Cdgerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc); + void Cdgerv2d(Int ConTxt, Int m, Int n, double *A, Int lda, Int rsrc, Int csrc); + Cdgerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc); } + void dgebs2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda) { -Cdgebs2d(*ConTxt, scope, top, *m, *n, A, *lda); + void Cdgebs2d(Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda); + Cdgebs2d(*ConTxt, scope, top, *m, *n, A, *lda); } + void dgebr2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda, Int *rsrc, Int *csrc) { -Cdgebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc); + void Cdgebr2d(Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda, Int rsrc, Int csrc); + Cdgebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc); } + void dtrsd2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, double *A, Int *lda, Int *rdest, Int *cdest) { -Cdtrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest); + void Cdtrsd2d(Int ConTxt, char *uplo, char *diag, Int m, Int n, double *A, Int lda, Int rdest, Int cdest); + Cdtrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest); } + void dtrrv2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, double *A, Int *lda, Int *rsrc, Int *csrc) { -Cdtrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); + void Cdtrrv2d(Int ConTxt, char *uplo, char *diag, Int m, Int n, double *A, Int lda, Int rsrc, Int csrc); + Cdtrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); } + void dtrbs2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, double *A, Int *lda) { -Cdtrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda); + void Cdtrbs2d(Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, double *A, Int lda); + Cdtrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda); } + void dtrbr2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, double *A, Int *lda, Int *rsrc, Int *csrc) { -Cdtrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); + void Cdtrbr2d(Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, double *A, Int lda, Int rsrc, Int csrc); + Cdtrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); } + void dgsum2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda, Int *rdest, Int *cdest) { -Cdgsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest); + void Cdgsum2d(Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda, Int rdest, Int cdest); + Cdgsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest); } + void dgamx2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) { -Cdgamx2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, *rdest, *cdest); + void Cdgamx2d(Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest); + Cdgamx2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, + *rdest, *cdest); } + void dgamn2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) { -Cdgamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, *rdest, *cdest); + void Cdgamn2d(Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest); + Cdgamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, + *rdest, *cdest); } + void sgesd2d_(Int *ConTxt, Int *m, Int *n, float *A, Int *lda, Int *rdest, Int *cdest) { -Csgesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest); + void Csgesd2d(Int ConTxt, Int m, Int n, float *A, Int lda, Int rdest, Int cdest); + Csgesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest); } + void sgerv2d_(Int *ConTxt, Int *m, Int *n, float *A, Int *lda, Int *rsrc, Int *csrc) { -Csgerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc); + void Csgerv2d(Int ConTxt, Int m, Int n, float *A, Int lda, Int rsrc, Int csrc); + Csgerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc); } + void sgebs2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda) { -Csgebs2d(*ConTxt, scope, top, *m, *n, A, *lda); + void Csgebs2d(Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda); + Csgebs2d(*ConTxt, scope, top, *m, *n, A, *lda); } + void sgebr2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda, Int *rsrc, Int *csrc) { -Csgebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc); + void Csgebr2d(Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda, Int rsrc, Int csrc); + Csgebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc); } + void strsd2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, float *A, Int *lda, Int *rdest, Int *cdest) { -Cstrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest); + void Cstrsd2d(Int ConTxt, char *uplo, char *diag, Int m, Int n, float *A, Int lda, Int rdest, Int cdest); + Cstrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest); } + void strrv2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, float *A, Int *lda, Int *rsrc, Int *csrc) { -Cstrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); + void Cstrrv2d(Int ConTxt, char *uplo, char *diag, Int m, Int n, float *A, Int lda, Int rsrc, Int csrc); + Cstrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); } + void strbs2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, float *A, Int *lda) { -Cstrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda); + void Cstrbs2d(Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, float *A, Int lda); + Cstrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda); } + void strbr2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, float *A, Int *lda, Int *rsrc, Int *csrc) { -Cstrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); + void Cstrbr2d(Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, float *A, Int lda, Int rsrc, Int csrc); + Cstrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); } + void sgsum2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda, Int *rdest, Int *cdest) { -Csgsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest); + void Csgsum2d(Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda, Int rdest, Int cdest); + Csgsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest); } + void sgamx2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) { -Csgamx2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, *rdest, *cdest); + void Csgamx2d(Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest); + Csgamx2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, + *rdest, *cdest); } + void sgamn2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) { -Csgamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, *rdest, *cdest); + void Csgamn2d(Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest); + Csgamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, + *rdest, *cdest); +} + +void cgesd2d_(Int *ConTxt, Int *m, Int *n, float *A, Int *lda, Int *rdest, Int *cdest) +{ + void Ccgesd2d(Int ConTxt, Int m, Int n, float *A, Int lda, Int rdest, Int cdest); + Ccgesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest); +} + +void cgerv2d_(Int *ConTxt, Int *m, Int *n, float *A, Int *lda, Int *rsrc, Int *csrc) +{ + void Ccgerv2d(Int ConTxt, Int m, Int n, float *A, Int lda, Int rsrc, Int csrc); + Ccgerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc); +} + +void cgebs2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda) +{ + void Ccgebs2d(Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda); + Ccgebs2d(*ConTxt, scope, top, *m, *n, A, *lda); +} + +void cgebr2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda, Int *rsrc, Int *csrc) +{ + void Ccgebr2d(Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda, Int rsrc, Int csrc); + Ccgebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc); +} + +void ctrsd2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, float *A, Int *lda, Int *rdest, Int *cdest) +{ + void Cctrsd2d(Int ConTxt, char *uplo, char *diag, Int m, Int n, float *A, Int lda, Int rdest, Int cdest); + Cctrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest); } -#endif +void ctrrv2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, float *A, Int *lda, Int *rsrc, Int *csrc) +{ + void Cctrrv2d(Int ConTxt, char *uplo, char *diag, Int m, Int n, float *A, Int lda, Int rsrc, Int csrc); + Cctrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); +} +void ctrbs2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, float *A, Int *lda) +{ + void Cctrbs2d(Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, float *A, Int lda); + Cctrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda); +} +void ctrbr2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, float *A, Int *lda, Int *rsrc, Int *csrc) +{ + void Cctrbr2d(Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, float *A, Int lda, Int rsrc, Int csrc); + Cctrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); +} +#endif From 52462a2a1a9c06a17995ad7453acf1973d7c872b Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Wed, 21 Jan 2026 09:34:18 +0800 Subject: [PATCH 05/30] Add missing parts in the last commit --- BLACS/TESTING/Cbt.c | 88 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 88 insertions(+) diff --git a/BLACS/TESTING/Cbt.c b/BLACS/TESTING/Cbt.c index 85a58e20..ac917bde 100644 --- a/BLACS/TESTING/Cbt.c +++ b/BLACS/TESTING/Cbt.c @@ -338,4 +338,92 @@ void ctrbr2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int * void Cctrbr2d(Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, float *A, Int lda, Int rsrc, Int csrc); Cctrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); } + +void cgsum2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda, Int *rdest, Int *cdest) +{ + void Ccgsum2d(Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda, Int rdest, Int cdest); + Ccgsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest); +} + +void cgamx2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) +{ + void Ccgamx2d(Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest); + Ccgamx2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, + *rdest, *cdest); +} + +void cgamn2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) +{ + void Ccgamn2d(Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest); + Ccgamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, + *rdest, *cdest); +} + +void zgesd2d_(Int *ConTxt, Int *m, Int *n, double *A, Int *lda, Int *rdest, Int *cdest) +{ + void Czgesd2d(Int ConTxt, Int m, Int n, double *A, Int lda, Int rdest, Int cdest); + Czgesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest); +} + +void zgerv2d_(Int *ConTxt, Int *m, Int *n, double *A, Int *lda, Int *rsrc, Int *csrc) +{ + void Czgerv2d(Int ConTxt, Int m, Int n, double *A, Int lda, Int rsrc, Int csrc); + Czgerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc); +} + +void zgebs2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda) +{ + void Czgebs2d(Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda); + Czgebs2d(*ConTxt, scope, top, *m, *n, A, *lda); +} + +void zgebr2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda, Int *rsrc, Int *csrc) +{ + void Czgebr2d(Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda, Int rsrc, Int csrc); + Czgebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc); +} + +void ztrsd2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, double *A, Int *lda, Int *rdest, Int *cdest) +{ + void Cztrsd2d(Int ConTxt, char *uplo, char *diag, Int m, Int n, double *A, Int lda, Int rdest, Int cdest); + Cztrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest); +} + +void ztrrv2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, double *A, Int *lda, Int *rsrc, Int *csrc) +{ + void Cztrrv2d(Int ConTxt, char *uplo, char *diag, Int m, Int n, double *A, Int lda, Int rsrc, Int csrc); + Cztrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); +} + +void ztrbs2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, double *A, Int *lda) +{ + void Cztrbs2d(Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, double *A, Int lda); + Cztrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda); +} + +void ztrbr2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, double *A, Int *lda, Int *rsrc, Int *csrc) +{ + void Cztrbr2d(Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, double *A, Int lda, Int rsrc, Int csrc); + Cztrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); +} + +void zgsum2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda, Int *rdest, Int *cdest) +{ + void Czgsum2d(Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda, Int rdest, Int cdest); + Czgsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest); +} + +void zgamx2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) +{ + void Czgamx2d(Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest); + Czgamx2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, + *rdest, *cdest); +} + +void zgamn2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) +{ + void Czgamn2d(Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest); + Czgamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, + *rdest, *cdest); +} #endif From 49e71989ab367d44a10eac5c08b7bca4a08f4119 Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Wed, 21 Jan 2026 09:41:55 +0800 Subject: [PATCH 06/30] Update Cbt.c --- BLACS/TESTING/Cbt.c | 138 ++++++++++++++++++++++---------------------- 1 file changed, 69 insertions(+), 69 deletions(-) diff --git a/BLACS/TESTING/Cbt.c b/BLACS/TESTING/Cbt.c index ac917bde..6e48bcea 100644 --- a/BLACS/TESTING/Cbt.c +++ b/BLACS/TESTING/Cbt.c @@ -3,426 +3,426 @@ void blacs_gridinit_(Int *ConTxt, char *order, Int *nprow, Int *npcol) { - void Cblacs_gridinit( Int* context, char* order, Int nprow, Int npcol ); + void Cblacs_gridinit( Int *ConTxt, char *order, Int nprow, Int npcol ); Cblacs_gridinit(ConTxt, order, *nprow, *npcol); } void blacs_setup_(Int *mypnum, Int *nprocs) { - void Cblacs_setup( Int* mypnum, Int* nprocs ); + void Cblacs_setup( Int *mypnum, Int *nprocs ); Cblacs_setup(mypnum, nprocs); } void blacs_pinfo_(Int *mypnum, Int *nprocs) { - void Cblacs_pinfo( Int* mypnum, Int* nprocs ); + void Cblacs_pinfo( Int *mypnum, Int *nprocs ); Cblacs_pinfo(mypnum, nprocs); } void blacs_gridmap_(Int *ConTxt, Int *usermap, Int *ldup, Int *nprow, Int *npcol) { - void Cblacs_gridmap( Int* context, Int* usermap, Int ldumap, Int nprow, Int npcol ); + void Cblacs_gridmap( Int *ConTxt, Int *usermap, Int ldup, Int nprow, Int npcol ); Cblacs_gridmap(ConTxt, usermap, *ldup, *nprow, *npcol); } void blacs_gridexit_(Int *ConTxt) { - void Cblacs_gridexit( Int context ); + void Cblacs_gridexit( Int ConTxt ); Cblacs_gridexit(*ConTxt); } void blacs_abort_(Int *ConTxt, Int *ErrNo) { - void Cblacs_abort(Int ConTxt, Int ErrNo); + void Cblacs_abort( Int ConTxt, Int ErrNo ); Cblacs_abort(*ConTxt, *ErrNo); } void blacs_exit_(Int *NotDone) { - void Cblacs_exit(Int NotDone); + void Cblacs_exit( Int NotDone ); Cblacs_exit(*NotDone); } void blacs_freebuff_(Int *ConTxt, Int *Wait) { - void Cblacs_freebuff(Int ConTxt, Int Wait); + void Cblacs_freebuff( Int ConTxt, Int Wait ); Cblacs_freebuff(*ConTxt, *Wait); } void blacs_gridinfo_(Int *ConTxt, Int *nprow, Int *npcol, Int *myrow, Int *mycol) { - void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); + void Cblacs_gridinfo( Int ConTxt, Int *nprow, Int *npcol, Int *myrow, Int *mycol ); Cblacs_gridinfo(*ConTxt, nprow, npcol, myrow, mycol); } void blacs_barrier_(Int *ConTxt, char *scope) { - void Cblacs_barrier(Int ConTxt, char *scope); + void Cblacs_barrier( Int ConTxt, char *scope ); Cblacs_barrier(*ConTxt, scope); } Int blacs_pnum_(Int *ConTxt, Int *prow, Int *pcol) { - Int Cblacs_pnum( Int context, Int prow, Int pcol ); + Int Cblacs_pnum( Int ConTxt, Int prow, Int pcol ); return( Cblacs_pnum(*ConTxt, *prow, *pcol) ); } void blacs_pcoord_(Int *ConTxt, Int *nodenum, Int *prow, Int *pcol) { - void Cblacs_pcoord( Int context, Int pnum, Int* prow, Int* pcol ); + void Cblacs_pcoord( Int ConTxt, Int nodenum, Int *prow, Int *pcol ); Cblacs_pcoord(*ConTxt, *nodenum, prow, pcol); } void blacs_get_(Int *ConTxt, Int *what, Int *I) { - void Cblacs_get( Int context, Int what, Int* I ); + void Cblacs_get( Int ConTxt, Int what, Int *I ); Cblacs_get(*ConTxt, *what, I); } void blacs_set_(Int *ConTxt, Int *what, Int *I) { - void Cblacs_set(Int ConTxt, Int what, Int *I); + void Cblacs_set( Int ConTxt, Int what, Int *I ); Cblacs_set(*ConTxt, *what, I); } void igesd2d_(Int *ConTxt, Int *m, Int *n, Int *A, Int *lda, Int *rdest, Int *cdest) { - void Cigesd2d(Int ConTxt, Int m, Int n, Int *A, Int lda, Int rdest, Int cdest); + void Cigesd2d( Int ConTxt, Int m, Int n, Int *A, Int lda, Int rdest, Int cdest ); Cigesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest); } void igerv2d_(Int *ConTxt, Int *m, Int *n, Int *A, Int *lda, Int *rsrc, Int *csrc) { - void Cigerv2d(Int ConTxt, Int m, Int n, Int *A, Int lda, Int rsrc, Int csrc); + void Cigerv2d( Int ConTxt, Int m, Int n, Int *A, Int lda, Int rsrc, Int csrc ); Cigerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc); } void igebs2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, Int *A, Int *lda) { - void Cigebs2d(Int ConTxt, char *scope, char *top, Int m, Int n, Int *A, Int lda); + void Cigebs2d( Int ConTxt, char *scope, char *top, Int m, Int n, Int *A, Int lda ); Cigebs2d(*ConTxt, scope, top, *m, *n, A, *lda); } void igebr2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, Int *A, Int *lda, Int *rsrc, Int *csrc) { - void Cigebr2d(Int ConTxt, char *scope, char *top, Int m, Int n, Int *A, Int lda, Int rsrc, Int csrc); + void Cigebr2d( Int ConTxt, char *scope, char *top, Int m, Int n, Int *A, Int lda, Int rsrc, Int csrc ); Cigebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc); } void itrsd2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, Int *A, Int *lda, Int *rdest, Int *cdest) { - void Citrsd2d(Int ConTxt, char *uplo, char *diag, Int m, Int n, Int *A, Int lda, Int rdest, Int cdest); + void Citrsd2d( Int ConTxt, char *uplo, char *diag, Int m, Int n, Int *A, Int lda, Int rdest, Int cdest ); Citrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest); } void itrrv2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, Int *A, Int *lda, Int *rsrc, Int *csrc) { - void Citrrv2d(Int ConTxt, char *uplo, char *diag, Int m, Int n, Int *A, Int lda, Int rsrc, Int csrc); + void Citrrv2d( Int ConTxt, char *uplo, char *diag, Int m, Int n, Int *A, Int lda, Int rsrc, Int csrc ); Citrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); } void itrbs2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, Int *A, Int *lda) { - void Citrbs2d(Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, Int *A, Int lda); + void Citrbs2d( Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, Int *A, Int lda ); Citrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda); } void itrbr2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, Int *A, Int *lda, Int *rsrc, Int *csrc) { - void Citrbr2d(Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, Int *A, Int lda, Int rsrc, Int csrc); + void Citrbr2d( Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, Int *A, Int lda, Int rsrc, Int csrc ); Citrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); } void igsum2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, Int *A, Int *lda, Int *rdest, Int *cdest) { - void Cigsum2d(Int ConTxt, char *scope, char *top, Int m, Int n, Int *A, Int lda, Int rdest, Int cdest); + void Cigsum2d( Int ConTxt, char *scope, char *top, Int m, Int n, Int *A, Int lda, Int rdest, Int cdest ); Cigsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest); } void igamx2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, Int *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) { - void Cigamx2d(Int ConTxt, char *scope, char *top, Int m, Int n, Int *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest); + void Cigamx2d( Int ConTxt, char *scope, char *top, Int m, Int n, Int *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest ); Cigamx2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, *rdest, *cdest); } void igamn2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, Int *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) { - void Cigamn2d(Int ConTxt, char *scope, char *top, Int m, Int n, Int *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest); + void Cigamn2d( Int ConTxt, char *scope, char *top, Int m, Int n, Int *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest ); Cigamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, *rdest, *cdest); } void dgesd2d_(Int *ConTxt, Int *m, Int *n, double *A, Int *lda, Int *rdest, Int *cdest) { - void Cdgesd2d(Int ConTxt, Int m, Int n, double *A, Int lda, Int rdest, Int cdest); + void Cdgesd2d( Int ConTxt, Int m, Int n, double *A, Int lda, Int rdest, Int cdest ); Cdgesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest); } void dgerv2d_(Int *ConTxt, Int *m, Int *n, double *A, Int *lda, Int *rsrc, Int *csrc) { - void Cdgerv2d(Int ConTxt, Int m, Int n, double *A, Int lda, Int rsrc, Int csrc); + void Cdgerv2d( Int ConTxt, Int m, Int n, double *A, Int lda, Int rsrc, Int csrc ); Cdgerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc); } void dgebs2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda) { - void Cdgebs2d(Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda); + void Cdgebs2d( Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda ); Cdgebs2d(*ConTxt, scope, top, *m, *n, A, *lda); } void dgebr2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda, Int *rsrc, Int *csrc) { - void Cdgebr2d(Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda, Int rsrc, Int csrc); + void Cdgebr2d( Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda, Int rsrc, Int csrc ); Cdgebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc); } void dtrsd2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, double *A, Int *lda, Int *rdest, Int *cdest) { - void Cdtrsd2d(Int ConTxt, char *uplo, char *diag, Int m, Int n, double *A, Int lda, Int rdest, Int cdest); + void Cdtrsd2d( Int ConTxt, char *uplo, char *diag, Int m, Int n, double *A, Int lda, Int rdest, Int cdest ); Cdtrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest); } void dtrrv2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, double *A, Int *lda, Int *rsrc, Int *csrc) { - void Cdtrrv2d(Int ConTxt, char *uplo, char *diag, Int m, Int n, double *A, Int lda, Int rsrc, Int csrc); + void Cdtrrv2d( Int ConTxt, char *uplo, char *diag, Int m, Int n, double *A, Int lda, Int rsrc, Int csrc ); Cdtrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); } void dtrbs2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, double *A, Int *lda) { - void Cdtrbs2d(Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, double *A, Int lda); + void Cdtrbs2d( Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, double *A, Int lda ); Cdtrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda); } void dtrbr2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, double *A, Int *lda, Int *rsrc, Int *csrc) { - void Cdtrbr2d(Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, double *A, Int lda, Int rsrc, Int csrc); + void Cdtrbr2d( Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, double *A, Int lda, Int rsrc, Int csrc ); Cdtrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); } void dgsum2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda, Int *rdest, Int *cdest) { - void Cdgsum2d(Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda, Int rdest, Int cdest); + void Cdgsum2d( Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda, Int rdest, Int cdest ); Cdgsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest); } void dgamx2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) { - void Cdgamx2d(Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest); + void Cdgamx2d( Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest ); Cdgamx2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, *rdest, *cdest); } void dgamn2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) { - void Cdgamn2d(Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest); + void Cdgamn2d( Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest ); Cdgamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, *rdest, *cdest); } void sgesd2d_(Int *ConTxt, Int *m, Int *n, float *A, Int *lda, Int *rdest, Int *cdest) { - void Csgesd2d(Int ConTxt, Int m, Int n, float *A, Int lda, Int rdest, Int cdest); + void Csgesd2d( Int ConTxt, Int m, Int n, float *A, Int lda, Int rdest, Int cdest ); Csgesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest); } void sgerv2d_(Int *ConTxt, Int *m, Int *n, float *A, Int *lda, Int *rsrc, Int *csrc) { - void Csgerv2d(Int ConTxt, Int m, Int n, float *A, Int lda, Int rsrc, Int csrc); + void Csgerv2d( Int ConTxt, Int m, Int n, float *A, Int lda, Int rsrc, Int csrc ); Csgerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc); } void sgebs2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda) { - void Csgebs2d(Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda); + void Csgebs2d( Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda ); Csgebs2d(*ConTxt, scope, top, *m, *n, A, *lda); } void sgebr2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda, Int *rsrc, Int *csrc) { - void Csgebr2d(Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda, Int rsrc, Int csrc); + void Csgebr2d( Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda, Int rsrc, Int csrc ); Csgebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc); } void strsd2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, float *A, Int *lda, Int *rdest, Int *cdest) { - void Cstrsd2d(Int ConTxt, char *uplo, char *diag, Int m, Int n, float *A, Int lda, Int rdest, Int cdest); + void Cstrsd2d( Int ConTxt, char *uplo, char *diag, Int m, Int n, float *A, Int lda, Int rdest, Int cdest ); Cstrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest); } void strrv2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, float *A, Int *lda, Int *rsrc, Int *csrc) { - void Cstrrv2d(Int ConTxt, char *uplo, char *diag, Int m, Int n, float *A, Int lda, Int rsrc, Int csrc); + void Cstrrv2d( Int ConTxt, char *uplo, char *diag, Int m, Int n, float *A, Int lda, Int rsrc, Int csrc ); Cstrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); } void strbs2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, float *A, Int *lda) { - void Cstrbs2d(Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, float *A, Int lda); + void Cstrbs2d( Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, float *A, Int lda ); Cstrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda); } void strbr2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, float *A, Int *lda, Int *rsrc, Int *csrc) { - void Cstrbr2d(Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, float *A, Int lda, Int rsrc, Int csrc); + void Cstrbr2d( Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, float *A, Int lda, Int rsrc, Int csrc ); Cstrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); } void sgsum2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda, Int *rdest, Int *cdest) { - void Csgsum2d(Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda, Int rdest, Int cdest); + void Csgsum2d( Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda, Int rdest, Int cdest ); Csgsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest); } void sgamx2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) { - void Csgamx2d(Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest); + void Csgamx2d( Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest ); Csgamx2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, *rdest, *cdest); } void sgamn2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) { - void Csgamn2d(Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest); + void Csgamn2d( Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest ); Csgamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, *rdest, *cdest); } void cgesd2d_(Int *ConTxt, Int *m, Int *n, float *A, Int *lda, Int *rdest, Int *cdest) { - void Ccgesd2d(Int ConTxt, Int m, Int n, float *A, Int lda, Int rdest, Int cdest); + void Ccgesd2d( Int ConTxt, Int m, Int n, float *A, Int lda, Int rdest, Int cdest ); Ccgesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest); } void cgerv2d_(Int *ConTxt, Int *m, Int *n, float *A, Int *lda, Int *rsrc, Int *csrc) { - void Ccgerv2d(Int ConTxt, Int m, Int n, float *A, Int lda, Int rsrc, Int csrc); + void Ccgerv2d( Int ConTxt, Int m, Int n, float *A, Int lda, Int rsrc, Int csrc ); Ccgerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc); } void cgebs2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda) { - void Ccgebs2d(Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda); + void Ccgebs2d( Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda ); Ccgebs2d(*ConTxt, scope, top, *m, *n, A, *lda); } void cgebr2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda, Int *rsrc, Int *csrc) { - void Ccgebr2d(Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda, Int rsrc, Int csrc); + void Ccgebr2d( Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda, Int rsrc, Int csrc ); Ccgebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc); } void ctrsd2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, float *A, Int *lda, Int *rdest, Int *cdest) { - void Cctrsd2d(Int ConTxt, char *uplo, char *diag, Int m, Int n, float *A, Int lda, Int rdest, Int cdest); + void Cctrsd2d( Int ConTxt, char *uplo, char *diag, Int m, Int n, float *A, Int lda, Int rdest, Int cdest ); Cctrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest); } void ctrrv2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, float *A, Int *lda, Int *rsrc, Int *csrc) { - void Cctrrv2d(Int ConTxt, char *uplo, char *diag, Int m, Int n, float *A, Int lda, Int rsrc, Int csrc); + void Cctrrv2d( Int ConTxt, char *uplo, char *diag, Int m, Int n, float *A, Int lda, Int rsrc, Int csrc ); Cctrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); } void ctrbs2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, float *A, Int *lda) { - void Cctrbs2d(Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, float *A, Int lda); + void Cctrbs2d( Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, float *A, Int lda ); Cctrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda); } void ctrbr2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, float *A, Int *lda, Int *rsrc, Int *csrc) { - void Cctrbr2d(Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, float *A, Int lda, Int rsrc, Int csrc); + void Cctrbr2d( Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, float *A, Int lda, Int rsrc, Int csrc ); Cctrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); } void cgsum2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda, Int *rdest, Int *cdest) { - void Ccgsum2d(Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda, Int rdest, Int cdest); + void Ccgsum2d( Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda, Int rdest, Int cdest ); Ccgsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest); } void cgamx2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) { - void Ccgamx2d(Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest); + void Ccgamx2d( Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest ); Ccgamx2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, *rdest, *cdest); } void cgamn2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, float *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) { - void Ccgamn2d(Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest); + void Ccgamn2d( Int ConTxt, char *scope, char *top, Int m, Int n, float *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest ); Ccgamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, *rdest, *cdest); } void zgesd2d_(Int *ConTxt, Int *m, Int *n, double *A, Int *lda, Int *rdest, Int *cdest) { - void Czgesd2d(Int ConTxt, Int m, Int n, double *A, Int lda, Int rdest, Int cdest); + void Czgesd2d( Int ConTxt, Int m, Int n, double *A, Int lda, Int rdest, Int cdest ); Czgesd2d(*ConTxt, *m, *n, A, *lda, *rdest, *cdest); } void zgerv2d_(Int *ConTxt, Int *m, Int *n, double *A, Int *lda, Int *rsrc, Int *csrc) { - void Czgerv2d(Int ConTxt, Int m, Int n, double *A, Int lda, Int rsrc, Int csrc); + void Czgerv2d( Int ConTxt, Int m, Int n, double *A, Int lda, Int rsrc, Int csrc ); Czgerv2d(*ConTxt, *m, *n, A, *lda, *rsrc, *csrc); } void zgebs2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda) { - void Czgebs2d(Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda); + void Czgebs2d( Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda ); Czgebs2d(*ConTxt, scope, top, *m, *n, A, *lda); } void zgebr2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda, Int *rsrc, Int *csrc) { - void Czgebr2d(Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda, Int rsrc, Int csrc); + void Czgebr2d( Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda, Int rsrc, Int csrc ); Czgebr2d(*ConTxt, scope, top, *m, *n, A, *lda, *rsrc, *csrc); } void ztrsd2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, double *A, Int *lda, Int *rdest, Int *cdest) { - void Cztrsd2d(Int ConTxt, char *uplo, char *diag, Int m, Int n, double *A, Int lda, Int rdest, Int cdest); + void Cztrsd2d( Int ConTxt, char *uplo, char *diag, Int m, Int n, double *A, Int lda, Int rdest, Int cdest ); Cztrsd2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rdest, *cdest); } void ztrrv2d_(Int *ConTxt, char *uplo, char *diag, Int *m, Int *n, double *A, Int *lda, Int *rsrc, Int *csrc) { - void Cztrrv2d(Int ConTxt, char *uplo, char *diag, Int m, Int n, double *A, Int lda, Int rsrc, Int csrc); + void Cztrrv2d( Int ConTxt, char *uplo, char *diag, Int m, Int n, double *A, Int lda, Int rsrc, Int csrc ); Cztrrv2d(*ConTxt, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); } void ztrbs2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, double *A, Int *lda) { - void Cztrbs2d(Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, double *A, Int lda); + void Cztrbs2d( Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, double *A, Int lda ); Cztrbs2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda); } void ztrbr2d_(Int *ConTxt, char *scope, char *top, char *uplo, char *diag, Int *m, Int *n, double *A, Int *lda, Int *rsrc, Int *csrc) { - void Cztrbr2d(Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, double *A, Int lda, Int rsrc, Int csrc); + void Cztrbr2d( Int ConTxt, char *scope, char *top, char *uplo, char *diag, Int m, Int n, double *A, Int lda, Int rsrc, Int csrc ); Cztrbr2d(*ConTxt, scope, top, uplo, diag, *m, *n, A, *lda, *rsrc, *csrc); } void zgsum2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda, Int *rdest, Int *cdest) { - void Czgsum2d(Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda, Int rdest, Int cdest); + void Czgsum2d( Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda, Int rdest, Int cdest ); Czgsum2d(*ConTxt, scope, top, *m, *n, A, *lda, *rdest, *cdest); } void zgamx2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) { - void Czgamx2d(Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest); + void Czgamx2d( Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest ); Czgamx2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, *rdest, *cdest); } void zgamn2d_(Int *ConTxt, char *scope, char *top, Int *m, Int *n, double *A, Int *lda, Int *rA, Int *cA, Int *ldia, Int *rdest, Int *cdest) { - void Czgamn2d(Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest); + void Czgamn2d( Int ConTxt, char *scope, char *top, Int m, Int n, double *A, Int lda, Int *rA, Int *cA, Int ldia, Int rdest, Int cdest ); Czgamn2d(*ConTxt, scope, top, *m, *n, A, *lda, rA, cA, *ldia, *rdest, *cdest); } From 67cc1505aa66903e7ee181b83ab01f151e966710 Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Wed, 21 Jan 2026 09:59:12 +0800 Subject: [PATCH 07/30] WIP --- REDIST/TESTING/pcgemrdrv.c | 59 +++++++++++++++++------------------ REDIST/TESTING/pctrmrdrv.c | 63 +++++++++++++++++++------------------- REDIST/TESTING/pdgemrdrv.c | 59 +++++++++++++++++------------------ REDIST/TESTING/pdtrmrdrv.c | 61 ++++++++++++++++++------------------ REDIST/TESTING/pigemrdrv.c | 59 +++++++++++++++++------------------ REDIST/TESTING/pitrmrdrv.c | 49 ++++++++++++++--------------- REDIST/TESTING/psgemrdrv.c | 1 + REDIST/TESTING/pstrmrdrv.c | 63 +++++++++++++++++++------------------- REDIST/TESTING/pzgemrdrv.c | 59 +++++++++++++++++------------------ REDIST/TESTING/pztrmrdrv.c | 63 +++++++++++++++++++------------------- 10 files changed, 274 insertions(+), 262 deletions(-) diff --git a/REDIST/TESTING/pcgemrdrv.c b/REDIST/TESTING/pcgemrdrv.c index 8b8e1a68..03af0397 100644 --- a/REDIST/TESTING/pcgemrdrv.c +++ b/REDIST/TESTING/pcgemrdrv.c @@ -105,35 +105,36 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord(Int, Int, Int*, Int*); -extern Int Cblacs_pnum(Int, Int, Int); -extern void Csetpvmtids(Int, Int*); -extern void Cblacs_get(Int, Int, Int*); -extern void Cblacs_pinfo(Int*, Int*); -extern void Cblacs_gridinfo(Int, Int*, Int*, Int*, Int*); -extern void Cblacs_gridinit(Int*, char*, Int, Int); -extern void Cblacs_exit(Int); -extern void Cblacs_gridexit(Int); -extern void Cblacs_setup(Int*, Int*); -extern void Cigebs2d(Int, char*, char*, Int, Int, Int*, Int); -extern void Cigebr2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); -extern void Cigesd2d(Int, Int, Int, Int*, Int, Int, Int); -extern void Cigerv2d(Int, Int, Int, Int*, Int, Int, Int); -extern void Cigsum2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); -extern void Cigamn2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); -extern void Cigamx2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); -extern void Ccgesd2d(Int, Int, Int, float*, Int, Int, Int); -extern void Ccgerv2d(Int, Int, Int, float*, Int, Int, Int); +extern void Cblacs_pcoord( Int context, Int pnum, Int* prow, Int* pcol ); +extern Int Cblacs_pnum( Int context, Int prow, Int pcol ); +extern void Csetpvmtids(); +extern void Cblacs_get( Int context, Int what, Int* val ); +extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); +extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); +extern void Cblacs_gridinit( Int* context, char* order, Int nprow, Int npcol ); +extern void Cblacs_gridmap( Int* context, Int* usermap, Int ldumap, Int nprow, Int npcol ); +extern void Cblacs_exit( Int continue_blacs ); +extern void Cblacs_gridexit( Int context ); +extern void Cblacs_setup( Int* mypnum, Int* nprocs ); +extern void Cigebs2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda ); +extern void Cigebr2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); +extern void Cigesd2d( Int context, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); +extern void Cigerv2d( Int context, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); +extern void Cigsum2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); +extern void Cigamn2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); +extern void Cigamx2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); +extern void Ccgesd2d( Int context, Int m, Int n, complex* A, Int lda, Int rdest, Int cdest ); +extern void Ccgerv2d( Int context, Int m, Int n, complex* A, Int lda, Int rsrc, Int csrc ); /* lapack */ void clacpy_(); /* aux fonctions */ -extern Int localindice(Int, Int, Int, Int); -extern void *mr2d_malloc(Int); -extern Int ppcm(Int, Int); -extern Int localsize(Int, Int, Int, Int); -extern Int memoryblocksize(MDESC*); -extern Int changeorigin(Int, Int, Int); -extern void paramcheck(Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int); +extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); +extern void *mr2d_malloc( size_t n ); +extern Int ppcm( Int a, Int b ); +extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); +extern Int memoryblocksize( MDESC *a ); +extern Int changeorigin( Int myp, Int sp, Int p, Int bs, Int i, Int *decal, Int *newsp ); +extern void paramcheck( MDESC *a, Int i, Int j, Int m, Int n, Int p, Int q, Int gcontext ); /* tools and others function */ #define scanD0 cgescanD0 #define dispmat cgedispmat @@ -142,9 +143,9 @@ extern void paramcheck(Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, In #define scan_intervals cgescan_intervals extern void scanD0(char*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*); extern void dispmat(float*, Int, Int, Int, Int, Int, Int, Int*); -extern void setmemory(complex**, Int); -extern void freememory(char*); -extern Int scan_intervals(Int, Int, Int, Int, Int, Int, Int**, Int**, Int**, Int**); +extern void setmemory( complex** ptr, Int size ); +extern void freememory( char* ptr ); +extern Int scan_intervals( char type, Int ja, Int jb, Int n, MDESC *ma, MDESC *mb, Int q0, Int q1, Int col0, Int col1, IDESC *result ); extern void Cpcgemr2do( Int m, Int n, complex *ptrmyblock, Int ia, Int ja, MDESC *ma, complex *ptrmynewblock, Int ib, Int jb, MDESC *mb ); extern void Cpcgemr2d( Int m, Int n, complex *ptrmyblock, Int ia, Int ja, MDESC *ma, complex *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); /* some defines for Cpcgemr2do */ diff --git a/REDIST/TESTING/pctrmrdrv.c b/REDIST/TESTING/pctrmrdrv.c index 1dab660c..f8dd014d 100644 --- a/REDIST/TESTING/pctrmrdrv.c +++ b/REDIST/TESTING/pctrmrdrv.c @@ -105,46 +105,47 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord(Int, Int, Int*, Int*); -extern Int Cblacs_pnum(Int, Int, Int); -extern void Csetpvmtids(Int, Int*); -extern void Cblacs_get(Int, Int, Int*); -extern void Cblacs_pinfo(Int*, Int*); -extern void Cblacs_gridinfo(Int, Int*, Int*, Int*, Int*); -extern void Cblacs_gridinit(Int*, char*, Int, Int); -extern void Cblacs_exit(Int); -extern void Cblacs_gridexit(Int); -extern void Cblacs_setup(Int*, Int*); -extern void Cigebs2d(Int, char*, char*, Int, Int, Int*, Int); -extern void Cigebr2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); -extern void Cigesd2d(Int, Int, Int, Int*, Int, Int, Int); -extern void Cigerv2d(Int, Int, Int, Int*, Int, Int, Int); -extern void Cigsum2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); -extern void Cigamn2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); -extern void Cigamx2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); -extern void Ccgesd2d(Int, Int, Int, float*, Int, Int, Int); -extern void Ccgerv2d(Int, Int, Int, float*, Int, Int, Int); +extern void Cblacs_pcoord( Int context, Int pnum, Int* prow, Int* pcol ); +extern Int Cblacs_pnum( Int context, Int prow, Int pcol ); +extern void Csetpvmtids(); +extern void Cblacs_get( Int context, Int what, Int* val ); +extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); +extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); +extern void Cblacs_gridinit( Int* context, char* order, Int nprow, Int npcol ); +extern void Cblacs_gridmap( Int* context, Int* usermap, Int ldumap, Int nprow, Int npcol ); +extern void Cblacs_exit( Int continue_blacs ); +extern void Cblacs_gridexit( Int context ); +extern void Cblacs_setup( Int* mypnum, Int* nprocs ); +extern void Cigebs2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda ); +extern void Cigebr2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); +extern void Cigesd2d( Int context, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); +extern void Cigerv2d( Int context, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); +extern void Cigsum2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); +extern void Cigamn2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); +extern void Cigamx2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); +extern void Ccgesd2d( Int context, Int m, Int n, complex* A, Int lda, Int rdest, Int cdest ); +extern void Ccgerv2d( Int context, Int m, Int n, complex* A, Int lda, Int rsrc, Int csrc ); /* lapack */ void clacpy_(); /* aux fonctions */ -extern Int localindice(Int, Int, Int, Int); -extern void *mr2d_malloc(Int); -extern Int ppcm(Int, Int); -extern Int localsize(Int, Int, Int, Int); -extern Int memoryblocksize(MDESC*); -extern Int changeorigin(Int, Int, Int); -extern void paramcheck(Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int); +extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); +extern void *mr2d_malloc( size_t n ); +extern Int ppcm( Int a, Int b ); +extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); +extern Int memoryblocksize( MDESC *a ); +extern Int changeorigin( Int myp, Int sp, Int p, Int bs, Int i, Int *decal, Int *newsp ); +extern void paramcheck( MDESC *a, Int i, Int j, Int m, Int n, Int p, Int q, Int gcontext ); /* tools and others function */ #define scanD0 ctrscanD0 #define dispmat ctrdispmat #define setmemory ctrsetmemory #define freememory ctrfreememory #define scan_intervals ctrscan_intervals -extern void scanD0(char*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*); -extern void dispmat(float*, Int, Int, Int, Int, Int, Int, Int*); -extern void setmemory(complex**, Int); -extern void freememory(char*); -extern Int scan_intervals(Int, Int, Int, Int, Int, Int, Int**, Int**, Int**, Int**); +extern void scanD0( char* uplo, char* diag, Int action, complex* ptrbuff, Int* ptrsizebuff, Int m, Int n, MDESC* ma, Int ia, Int ja, Int p0, Int q0, MDESC* mb, Int ib, Int jb, Int p1, Int q1, IDESC* v_inter, Int vinter_nb, IDESC* h_inter, Int hinter_nb, complex* ptrblock ); +extern void dispmat(); +extern void setmemory( complex** ptr, Int size ); +extern void freememory( char* ptr ); +extern Int scan_intervals( char type, Int ja, Int jb, Int n, MDESC *ma, MDESC *mb, Int q0, Int q1, Int col0, Int col1, IDESC *result ); extern void Cpctrmr2do( char* uplo, char* diag, Int m, Int n, complex *ptrmyblock, Int ia, Int ja, MDESC *ma, complex *ptrmynewblock, Int ib, Int jb, MDESC *mb ); extern void Cpctrmr2d( char* uplo, char* diag, Int m, Int n, complex *ptrmyblock, Int ia, Int ja, MDESC *ma, complex *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); /* some defines for Cpctrmr2do */ diff --git a/REDIST/TESTING/pdgemrdrv.c b/REDIST/TESTING/pdgemrdrv.c index 538bfb20..d1ce8f65 100644 --- a/REDIST/TESTING/pdgemrdrv.c +++ b/REDIST/TESTING/pdgemrdrv.c @@ -102,35 +102,36 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord(Int, Int, Int*, Int*); -extern Int Cblacs_pnum(Int, Int, Int); -extern void Csetpvmtids(Int, Int*); -extern void Cblacs_get(Int, Int, Int*); -extern void Cblacs_pinfo(Int*, Int*); -extern void Cblacs_gridinfo(Int, Int*, Int*, Int*, Int*); -extern void Cblacs_gridinit(Int*, char*, Int, Int); -extern void Cblacs_exit(Int); -extern void Cblacs_gridexit(Int); -extern void Cblacs_setup(Int*, Int*); -extern void Cigebs2d(Int, char*, char*, Int, Int, Int*, Int); -extern void Cigebr2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); -extern void Cigesd2d(Int, Int, Int, Int*, Int, Int, Int); -extern void Cigerv2d(Int, Int, Int, Int*, Int, Int, Int); -extern void Cigsum2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); -extern void Cigamn2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); -extern void Cigamx2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); -extern void Cdgesd2d(Int, Int, Int, double*, Int, Int, Int); -extern void Cdgerv2d(Int, Int, Int, double*, Int, Int, Int); +extern void Cblacs_pcoord( Int context, Int pnum, Int* prow, Int* pcol ); +extern Int Cblacs_pnum( Int context, Int prow, Int pcol ); +extern void Csetpvmtids(); +extern void Cblacs_get( Int context, Int what, Int* val ); +extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); +extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); +extern void Cblacs_gridinit( Int* context, char* order, Int nprow, Int npcol ); +extern void Cblacs_gridmap( Int* context, Int* usermap, Int ldumap, Int nprow, Int npcol ); +extern void Cblacs_exit( Int continue_blacs ); +extern void Cblacs_gridexit( Int context ); +extern void Cblacs_setup( Int* mypnum, Int* nprocs ); +extern void Cigebs2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda ); +extern void Cigebr2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); +extern void Cigesd2d( Int context, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); +extern void Cigerv2d( Int context, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); +extern void Cigsum2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); +extern void Cigamn2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); +extern void Cigamx2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); +extern void Cdgesd2d( Int context, Int m, Int n, double* A, Int lda, Int rdest, Int cdest ); +extern void Cdgerv2d( Int context, Int m, Int n, double* A, Int lda, Int rsrc, Int csrc ); /* lapack */ void dlacpy_(); /* aux fonctions */ -extern Int localindice(Int, Int, Int, Int); -extern void *mr2d_malloc(Int); -extern Int ppcm(Int, Int); -extern Int localsize(Int, Int, Int, Int); -extern Int memoryblocksize(MDESC*); -extern Int changeorigin(Int, Int, Int); -extern void paramcheck(Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int); +extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); +extern void *mr2d_malloc( size_t n ); +extern Int ppcm( Int a, Int b ); +extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); +extern Int memoryblocksize( MDESC *a ); +extern Int changeorigin( Int myp, Int sp, Int p, Int bs, Int i, Int *decal, Int *newsp ); +extern void paramcheck( MDESC *a, Int i, Int j, Int m, Int n, Int p, Int q, Int gcontext ); /* tools and others function */ #define scanD0 dgescanD0 #define dispmat dgedispmat @@ -139,9 +140,9 @@ extern void paramcheck(Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, In #define scan_intervals dgescan_intervals extern void scanD0(char*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*); extern void dispmat(double*, Int, Int, Int, Int, Int, Int, Int*); -extern void setmemory(double**, Int); -extern void freememory(char*); -extern Int scan_intervals(Int, Int, Int, Int, Int, Int, Int**, Int**, Int**, Int**); +extern void setmemory( double** ptr, Int size ); +extern void freememory( char* ptr ); +extern Int scan_intervals( char type, Int ja, Int jb, Int n, MDESC *ma, MDESC *mb, Int q0, Int q1, Int col0, Int col1, IDESC *result ); extern void Cpdgemr2do( Int m, Int n, double *ptrmyblock, Int ia, Int ja, MDESC *ma, double *ptrmynewblock, Int ib, Int jb, MDESC *mb ); extern void Cpdgemr2d( Int m, Int n, double *ptrmyblock, Int ia, Int ja, MDESC *ma, double *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); /* some defines for Cpdgemr2do */ diff --git a/REDIST/TESTING/pdtrmrdrv.c b/REDIST/TESTING/pdtrmrdrv.c index 7256475d..3ede01df 100644 --- a/REDIST/TESTING/pdtrmrdrv.c +++ b/REDIST/TESTING/pdtrmrdrv.c @@ -102,44 +102,47 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord(Int, Int, Int*, Int*); -extern Int Cblacs_pnum(Int, Int, Int); -extern void Csetpvmtids(Int, Int*); -extern void Cblacs_get(Int, Int, Int*); -extern void Cblacs_pinfo(Int*, Int*); -extern void Cblacs_gridinfo(Int, Int*, Int*, Int*, Int*); -extern void Cblacs_gridinit(Int*, char*, Int, Int); -extern void Cblacs_exit(Int); -extern void Cblacs_gridexit(Int); -extern void Cblacs_setup(Int*, Int*); -extern void Cigebs2d(Int, char*, char*, Int, Int, Int*, Int); -extern void Cigebr2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); -extern void Cigesd2d(Int, Int, Int, Int*, Int, Int, Int); -extern void Cigerv2d(Int, Int, Int, Int*, Int, Int, Int); -extern void Cigsum2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); -extern void Cigamn2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); -extern void Cigamx2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); +extern void Cblacs_pcoord( Int context, Int pnum, Int* prow, Int* pcol ); +extern Int Cblacs_pnum( Int context, Int prow, Int pcol ); +extern void Csetpvmtids(); +extern void Cblacs_get( Int context, Int what, Int* val ); +extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); +extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); +extern void Cblacs_gridinit( Int* context, char* order, Int nprow, Int npcol ); +extern void Cblacs_gridmap( Int* context, Int* usermap, Int ldumap, Int nprow, Int npcol ); +extern void Cblacs_exit( Int continue_blacs ); +extern void Cblacs_gridexit( Int context ); +extern void Cblacs_setup( Int* mypnum, Int* nprocs ); +extern void Cigebs2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda ); +extern void Cigebr2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); +extern void Cigesd2d( Int context, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); +extern void Cigerv2d( Int context, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); +extern void Cigsum2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); +extern void Cigamn2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); +extern void Cigamx2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); +extern void Cdgesd2d( Int context, Int m, Int n, double* A, Int lda, Int rdest, Int cdest ); +extern void Cdgerv2d( Int context, Int m, Int n, double* A, Int lda, Int rsrc, Int csrc ); /* lapack */ void dlacpy_(); /* aux fonctions */ -extern Int localindice(Int, Int, Int, Int); -extern void *mr2d_malloc(Int); -extern Int ppcm(Int, Int); -extern Int localsize(Int, Int, Int, Int); -extern Int memoryblocksize(MDESC*); -extern Int changeorigin(Int, Int, Int); -extern void paramcheck(Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int); +extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); +extern void *mr2d_malloc( size_t n ); +extern Int ppcm( Int a, Int b ); +extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); +extern Int memoryblocksize( MDESC *a ); +extern Int changeorigin( Int myp, Int sp, Int p, Int bs, Int i, Int *decal, Int *newsp ); +extern void paramcheck( MDESC *a, Int i, Int j, Int m, Int n, Int p, Int q, Int gcontext ); /* tools and others function */ #define scanD0 dtrscanD0 #define dispmat dtrdispmat #define setmemory dtrsetmemory #define freememory dtrfreememory #define scan_intervals dtrscan_intervals -extern void scanD0(char*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*); -extern void dispmat(double*, Int, Int, Int, Int, Int, Int, Int*); -extern void setmemory(double**, Int); -extern void freememory(char*); -extern Int scan_intervals(Int, Int, Int, Int, Int, Int, Int**, Int**, Int**, Int**); +extern void scanD0( char* uplo, char* diag, Int action, double* ptrbuff, Int* ptrsizebuff, Int m, Int n, MDESC* ma, Int ia, Int ja, Int p0, Int q0, MDESC* mb, Int ib, Int jb, Int p1, Int q1, IDESC* v_inter, Int vinter_nb, IDESC* h_inter, Int hinter_nb, double* ptrblock ); +extern void dispmat(); +extern void setmemory( double** ptr, Int size ); +extern void freememory( char* ptr ); +extern Int scan_intervals( char type, Int ja, Int jb, Int n, MDESC *ma, MDESC *mb, Int q0, Int q1, Int col0, Int col1, IDESC *result ); extern void Cpdtrmr2do( char* uplo, char* diag, Int m, Int n, double *ptrmyblock, Int ia, Int ja, MDESC *ma, double *ptrmynewblock, Int ib, Int jb, MDESC *mb ); extern void Cpdtrmr2d( char* uplo, char* diag, Int m, Int n, double *ptrmyblock, Int ia, Int ja, MDESC *ma, double *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); /* some defines for Cpdtrmr2do */ diff --git a/REDIST/TESTING/pigemrdrv.c b/REDIST/TESTING/pigemrdrv.c index 97f143ea..fb40baca 100644 --- a/REDIST/TESTING/pigemrdrv.c +++ b/REDIST/TESTING/pigemrdrv.c @@ -101,33 +101,34 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord(Int, Int, Int*, Int*); -extern Int Cblacs_pnum(Int, Int, Int); -extern void Csetpvmtids(Int, Int*); -extern void Cblacs_get(Int, Int, Int*); -extern void Cblacs_pinfo(Int*, Int*); -extern void Cblacs_gridinfo(Int, Int*, Int*, Int*, Int*); -extern void Cblacs_gridinit(Int*, char*, Int, Int); -extern void Cblacs_exit(Int); -extern void Cblacs_gridexit(Int); -extern void Cblacs_setup(Int*, Int*); -extern void Cigebs2d(Int, char*, char*, Int, Int, Int*, Int); -extern void Cigebr2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); -extern void Cigesd2d(Int, Int, Int, Int*, Int, Int, Int); -extern void Cigerv2d(Int, Int, Int, Int*, Int, Int, Int); -extern void Cigsum2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); -extern void Cigamn2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); -extern void Cigamx2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); +extern void Cblacs_pcoord( Int context, Int pnum, Int* prow, Int* pcol ); +extern Int Cblacs_pnum( Int context, Int prow, Int pcol ); +extern void Csetpvmtids(); +extern void Cblacs_get( Int context, Int what, Int* val ); +extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); +extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); +extern void Cblacs_gridinit( Int* context, char* order, Int nprow, Int npcol ); +extern void Cblacs_gridmap( Int* context, Int* usermap, Int ldumap, Int nprow, Int npcol ); +extern void Cblacs_exit( Int continue_blacs ); +extern void Cblacs_gridexit( Int context ); +extern void Cblacs_setup( Int* mypnum, Int* nprocs ); +extern void Cigebs2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda ); +extern void Cigebr2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); +extern void Cigesd2d( Int context, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); +extern void Cigerv2d( Int context, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); +extern void Cigsum2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); +extern void Cigamn2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); +extern void Cigamx2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); /* lapack */ void ilacpy_(); /* aux fonctions */ -extern Int localindice(Int, Int, Int, Int); -extern void *mr2d_malloc(Int); -extern Int ppcm(Int, Int); -extern Int localsize(Int, Int, Int, Int); -extern Int memoryblocksize(MDESC *desc); -extern Int changeorigin(Int, Int, Int); -extern void paramcheck(Int, char*, char*, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int*, Int*); +extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); +extern void *mr2d_malloc( size_t n ); +extern Int ppcm( Int a, Int b ); +extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); +extern Int memoryblocksize( MDESC *a ); +extern Int changeorigin( Int myp, Int sp, Int p, Int bs, Int i, Int *decal, Int *newsp ); +extern void paramcheck( MDESC *a, Int i, Int j, Int m, Int n, Int p, Int q, Int gcontext ); /* tools and others function */ #define scanD0 igescanD0 #define dispmat igedispmat @@ -136,11 +137,11 @@ extern void paramcheck(Int, char*, char*, Int, Int, Int, Int, Int, Int, Int, Int #define scan_intervals igescan_intervals extern void scanD0(Int, Int, Int, Int, Int, Int, Int, Int*, Int*, Int*, Int*, Int*); extern void dispmat(char*, Int, Int, Int, Int, Int, Int, double*, Int, Int, Int); -extern void setmemory(void**, Int); -extern void freememory(void*); -extern Int scan_intervals(Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int*, Int**, Int**, Int**); -extern void Cpigemr2do(Int, Int, Int*, Int, Int, Int, Int, Int*, Int, Int, Int, Int, Int); -extern void Cpigemr2d(Int, Int, Int*, Int, Int, Int*, Int*, Int, Int, Int*, Int); +extern void setmemory( Int** ptr, Int size ); +extern void freememory( char* ptr ); +extern Int scan_intervals( char rc, Int i0, Int i1, Int len, MDESC *m0, MDESC *m1, Int p0, Int p1, Int myp, Int otherp, IDESC *inter ); +extern void Cpigemr2do( Int m, Int n, Int *ptrmyblock, Int ia, Int ja, MDESC *ma, Int *ptrmynewblock, Int ib, Int jb, MDESC *mb ); +extern void Cpigemr2d( Int m, Int n, Int *ptrmyblock, Int ia, Int ja, MDESC *ma, Int *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); /* some defines for Cpigemr2do */ #define SENDBUFF 0 #define RECVBUFF 1 diff --git a/REDIST/TESTING/pitrmrdrv.c b/REDIST/TESTING/pitrmrdrv.c index d25c2bf1..a1e09bfb 100644 --- a/REDIST/TESTING/pitrmrdrv.c +++ b/REDIST/TESTING/pitrmrdrv.c @@ -101,33 +101,34 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord(Int, Int, Int*, Int*); -extern Int Cblacs_pnum(Int, Int, Int); -extern void Csetpvmtids(Int, Int*); -extern void Cblacs_get(Int, Int, Int*); -extern void Cblacs_pinfo(Int*, Int*); -extern void Cblacs_gridinfo(Int, Int*, Int*, Int*, Int*); -extern void Cblacs_gridinit(Int*, char*, Int, Int); -extern void Cblacs_exit(Int); -extern void Cblacs_gridexit(Int); -extern void Cblacs_setup(Int*, Int*); -extern void Cigebs2d(Int, char*, char*, Int, Int, Int*, Int); -extern void Cigebr2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); -extern void Cigesd2d(Int, Int, Int, Int*, Int, Int, Int); -extern void Cigerv2d(Int, Int, Int, Int*, Int, Int, Int); -extern void Cigsum2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); -extern void Cigamn2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); -extern void Cigamx2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); +extern void Cblacs_pcoord( Int context, Int pnum, Int* prow, Int* pcol ); +extern Int Cblacs_pnum( Int context, Int prow, Int pcol ); +extern void Csetpvmtids(); +extern void Cblacs_get( Int context, Int what, Int* val ); +extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); +extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); +extern void Cblacs_gridinit( Int* context, char* order, Int nprow, Int npcol ); +extern void Cblacs_gridmap( Int* context, Int* usermap, Int ldumap, Int nprow, Int npcol ); +extern void Cblacs_exit( Int continue_blacs ); +extern void Cblacs_gridexit( Int context ); +extern void Cblacs_setup( Int* mypnum, Int* nprocs ); +extern void Cigebs2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda ); +extern void Cigebr2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); +extern void Cigesd2d( Int context, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); +extern void Cigerv2d( Int context, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); +extern void Cigsum2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); +extern void Cigamn2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); +extern void Cigamx2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); /* lapack */ void ilacpy_(); /* aux fonctions */ -extern Int localindice(Int, Int, Int, Int); -extern void *mr2d_malloc(Int); -extern Int ppcm(Int, Int); -extern Int localsize(Int, Int, Int, Int); -extern Int memoryblocksize(MDESC*); -extern Int changeorigin(Int, Int, Int); -extern void paramcheck(Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int); +extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); +extern void *mr2d_malloc( size_t n ); +extern Int ppcm( Int a, Int b ); +extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); +extern Int memoryblocksize( MDESC *a ); +extern Int changeorigin( Int myp, Int sp, Int p, Int bs, Int i, Int *decal, Int *newsp ); +extern void paramcheck( MDESC *a, Int i, Int j, Int m, Int n, Int p, Int q, Int gcontext ); /* tools and others function */ #define scanD0 itrscanD0 #define dispmat itrdispmat diff --git a/REDIST/TESTING/psgemrdrv.c b/REDIST/TESTING/psgemrdrv.c index 18f93fc6..fb816524 100644 --- a/REDIST/TESTING/psgemrdrv.c +++ b/REDIST/TESTING/psgemrdrv.c @@ -109,6 +109,7 @@ extern void Cblacs_get( Int context, Int what, Int* val ); extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); extern void Cblacs_gridinit( Int* context, char* order, Int nprow, Int npcol ); +extern void Cblacs_gridmap( Int* context, Int* usermap, Int ldumap, Int nprow, Int npcol ); extern void Cblacs_exit( Int continue_blacs ); extern void Cblacs_gridexit( Int context ); extern void Cblacs_setup( Int* mypnum, Int* nprocs ); diff --git a/REDIST/TESTING/pstrmrdrv.c b/REDIST/TESTING/pstrmrdrv.c index f08dcf40..16ce5ca9 100644 --- a/REDIST/TESTING/pstrmrdrv.c +++ b/REDIST/TESTING/pstrmrdrv.c @@ -101,46 +101,47 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord(Int, Int, Int*, Int*); -extern Int Cblacs_pnum(Int, Int, Int); -extern void Csetpvmtids(Int, Int*); -extern void Cblacs_get(Int, Int, Int*); -extern void Cblacs_pinfo(Int*, Int*); -extern void Cblacs_gridinfo(Int, Int*, Int*, Int*, Int*); -extern void Cblacs_gridinit(Int*, char*, Int, Int); -extern void Cblacs_exit(Int); -extern void Cblacs_gridexit(Int); -extern void Cblacs_setup(Int*, Int*); -extern void Cigebs2d(Int, char*, char*, Int, Int, Int*, Int); -extern void Cigebr2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); -extern void Cigesd2d(Int, Int, Int, Int*, Int, Int, Int); -extern void Cigerv2d(Int, Int, Int, Int*, Int, Int, Int); -extern void Cigsum2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); -extern void Cigamn2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); -extern void Cigamx2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); -extern void Csgesd2d(Int, Int, Int, float*, Int, Int, Int); -extern void Csgerv2d(Int, Int, Int, float*, Int, Int, Int); +extern void Cblacs_pcoord( Int context, Int pnum, Int* prow, Int* pcol ); +extern Int Cblacs_pnum( Int context, Int prow, Int pcol ); +extern void Csetpvmtids(); +extern void Cblacs_get( Int context, Int what, Int* val ); +extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); +extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); +extern void Cblacs_gridinit( Int* context, char* order, Int nprow, Int npcol ); +extern void Cblacs_gridmap( Int* context, Int* usermap, Int ldumap, Int nprow, Int npcol ); +extern void Cblacs_exit( Int continue_blacs ); +extern void Cblacs_gridexit( Int context ); +extern void Cblacs_setup( Int* mypnum, Int* nprocs ); +extern void Cigebs2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda ); +extern void Cigebr2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); +extern void Cigesd2d( Int context, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); +extern void Cigerv2d( Int context, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); +extern void Cigsum2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); +extern void Cigamn2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); +extern void Cigamx2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); +extern void Csgesd2d( Int context, Int m, Int n, float* A, Int lda, Int rdest, Int cdest ); +extern void Csgerv2d( Int context, Int m, Int n, float* A, Int lda, Int rsrc, Int csrc ); /* lapack */ void slacpy_(); /* aux fonctions */ -extern Int localindice(Int, Int, Int, Int); -extern void *mr2d_malloc(Int); -extern Int ppcm(Int, Int); -extern Int localsize(Int, Int, Int, Int); -extern Int memoryblocksize(MDESC*); -extern Int changeorigin(Int, Int, Int); -extern void paramcheck(Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int); +extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); +extern void *mr2d_malloc( size_t n ); +extern Int ppcm( Int a, Int b ); +extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); +extern Int memoryblocksize( MDESC *a ); +extern Int changeorigin( Int myp, Int sp, Int p, Int bs, Int i, Int *decal, Int *newsp ); +extern void paramcheck( MDESC *a, Int i, Int j, Int m, Int n, Int p, Int q, Int gcontext ); /* tools and others function */ #define scanD0 strscanD0 #define dispmat strdispmat #define setmemory strsetmemory #define freememory strfreememory #define scan_intervals strscan_intervals -extern void scanD0(char*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*); -extern void dispmat(Int*, Int, Int, Int, Int, Int, Int, Int*); -extern void setmemory(float**, Int); -extern void freememory(char*); -extern Int scan_intervals(Int, Int, Int, Int, Int, Int, Int**, Int**, Int**, Int**); +extern void scanD0( char* uplo, char* diag, Int action, float* ptrbuff, Int* ptrsizebuff, Int m, Int n, MDESC* ma, Int ia, Int ja, Int p0, Int q0, MDESC* mb, Int ib, Int jb, Int p1, Int q1, IDESC* v_inter, Int vinter_nb, IDESC* h_inter, Int hinter_nb, float* ptrblock ); +extern void dispmat(); +extern void setmemory( float** ptr, Int size ); +extern void freememory( char* ptr ); +extern Int scan_intervals( char type, Int ja, Int jb, Int n, MDESC *ma, MDESC *mb, Int q0, Int q1, Int col0, Int col1, IDESC *result ); extern void Cpstrmr2do( char* uplo, char* diag, Int m, Int n, float *ptrmyblock, Int ia, Int ja, MDESC *ma, float *ptrmynewblock, Int ib, Int jb, MDESC *mb ); extern void Cpstrmr2d( char* uplo, char* diag, Int m, Int n, float *ptrmyblock, Int ia, Int ja, MDESC *ma, float *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); /* some defines for Cpstrmr2do */ diff --git a/REDIST/TESTING/pzgemrdrv.c b/REDIST/TESTING/pzgemrdrv.c index 90d947d0..6ef81284 100644 --- a/REDIST/TESTING/pzgemrdrv.c +++ b/REDIST/TESTING/pzgemrdrv.c @@ -105,35 +105,36 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord(Int, Int, Int*, Int*); -extern Int Cblacs_pnum(Int, Int, Int); -extern void Csetpvmtids(Int, Int*); -extern void Cblacs_get(Int, Int, Int*); -extern void Cblacs_pinfo(Int*, Int*); -extern void Cblacs_gridinfo(Int, Int*, Int*, Int*, Int*); -extern void Cblacs_gridinit(Int*, char*, Int, Int); -extern void Cblacs_exit(Int); -extern void Cblacs_gridexit(Int); -extern void Cblacs_setup(Int*, Int*); -extern void Cigebs2d(Int, char*, char*, Int, Int, Int*, Int); -extern void Cigebr2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); -extern void Cigesd2d(Int, Int, Int, Int*, Int, Int, Int); -extern void Cigerv2d(Int, Int, Int, Int*, Int, Int, Int); -extern void Cigsum2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); -extern void Cigamn2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); -extern void Cigamx2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); -extern void Czgesd2d(Int, Int, Int, double*, Int, Int, Int); -extern void Czgerv2d(Int, Int, Int, double*, Int, Int, Int); +extern void Cblacs_pcoord( Int context, Int pnum, Int* prow, Int* pcol ); +extern Int Cblacs_pnum( Int context, Int prow, Int pcol ); +extern void Csetpvmtids(); +extern void Cblacs_get( Int context, Int what, Int* val ); +extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); +extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); +extern void Cblacs_gridinit( Int* context, char* order, Int nprow, Int npcol ); +extern void Cblacs_gridmap( Int* context, Int* usermap, Int ldumap, Int nprow, Int npcol ); +extern void Cblacs_exit( Int continue_blacs ); +extern void Cblacs_gridexit( Int context ); +extern void Cblacs_setup( Int* mypnum, Int* nprocs ); +extern void Cigebs2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda ); +extern void Cigebr2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); +extern void Cigesd2d( Int context, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); +extern void Cigerv2d( Int context, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); +extern void Cigsum2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); +extern void Cigamn2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); +extern void Cigamx2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); +extern void Czgesd2d( Int context, Int m, Int n, dcomplex* A, Int lda, Int rdest, Int cdest ); +extern void Czgerv2d( Int context, Int m, Int n, dcomplex* A, Int lda, Int rsrc, Int csrc ); /* lapack */ void zlacpy_(); /* aux fonctions */ -extern Int localindice(Int, Int, Int, Int); -extern void *mr2d_malloc(Int); -extern Int ppcm(Int, Int); -extern Int localsize(Int, Int, Int, Int); -extern Int memoryblocksize(MDESC*); -extern Int changeorigin(Int, Int, Int); -extern void paramcheck(Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int); +extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); +extern void *mr2d_malloc( size_t n ); +extern Int ppcm( Int a, Int b ); +extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); +extern Int memoryblocksize( MDESC *a ); +extern Int changeorigin( Int myp, Int sp, Int p, Int bs, Int i, Int *decal, Int *newsp ); +extern void paramcheck( MDESC *a, Int i, Int j, Int m, Int n, Int p, Int q, Int gcontext ); /* tools and others function */ #define scanD0 zgescanD0 #define dispmat zgedispmat @@ -142,9 +143,9 @@ extern void paramcheck(Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, In #define scan_intervals zgescan_intervals extern void scanD0(char*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*); extern void dispmat(double*, Int, Int, Int, Int, Int, Int, Int*); -extern void setmemory(dcomplex**, Int); -extern void freememory(char*); -extern Int scan_intervals(Int, Int, Int, Int, Int, Int, Int**, Int**, Int**, Int**); +extern void setmemory( dcomplex** ptr, Int size ); +extern void freememory( char* ptr ); +extern Int scan_intervals( char type, Int ja, Int jb, Int n, MDESC *ma, MDESC *mb, Int q0, Int q1, Int col0, Int col1, IDESC *result ); extern void Cpzgemr2do( Int m, Int n, dcomplex *ptrmyblock, Int ia, Int ja, MDESC *ma, dcomplex *ptrmynewblock, Int ib, Int jb, MDESC *mb ); extern void Cpzgemr2d( Int m, Int n, dcomplex *ptrmyblock, Int ia, Int ja, MDESC *ma, dcomplex *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); /* some defines for Cpzgemr2do */ diff --git a/REDIST/TESTING/pztrmrdrv.c b/REDIST/TESTING/pztrmrdrv.c index 6135b27e..ab8208f3 100644 --- a/REDIST/TESTING/pztrmrdrv.c +++ b/REDIST/TESTING/pztrmrdrv.c @@ -105,46 +105,47 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord(Int, Int, Int*, Int*); -extern Int Cblacs_pnum(Int, Int, Int); -extern void Csetpvmtids(Int, Int*); -extern void Cblacs_get(Int, Int, Int*); -extern void Cblacs_pinfo(Int*, Int*); -extern void Cblacs_gridinfo(Int, Int*, Int*, Int*, Int*); -extern void Cblacs_gridinit(Int*, char*, Int, Int); -extern void Cblacs_exit(Int); -extern void Cblacs_gridexit(Int); -extern void Cblacs_setup(Int*, Int*); -extern void Cigebs2d(Int, char*, char*, Int, Int, Int*, Int); -extern void Cigebr2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); -extern void Cigesd2d(Int, Int, Int, Int*, Int, Int, Int); -extern void Cigerv2d(Int, Int, Int, Int*, Int, Int, Int); -extern void Cigsum2d(Int, char*, char*, Int, Int, Int*, Int, Int, Int); -extern void Cigamn2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); -extern void Cigamx2d(Int, char*, char*, Int, Int, Int*, Int, Int*, Int*, Int, Int, Int); -extern void Czgesd2d(Int, Int, Int, double*, Int, Int, Int); -extern void Czgerv2d(Int, Int, Int, double*, Int, Int, Int); +extern void Cblacs_pcoord( Int context, Int pnum, Int* prow, Int* pcol ); +extern Int Cblacs_pnum( Int context, Int prow, Int pcol ); +extern void Csetpvmtids(); +extern void Cblacs_get( Int context, Int what, Int* val ); +extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); +extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); +extern void Cblacs_gridinit( Int* context, char* order, Int nprow, Int npcol ); +extern void Cblacs_gridmap( Int* context, Int* usermap, Int ldumap, Int nprow, Int npcol ); +extern void Cblacs_exit( Int continue_blacs ); +extern void Cblacs_gridexit( Int context ); +extern void Cblacs_setup( Int* mypnum, Int* nprocs ); +extern void Cigebs2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda ); +extern void Cigebr2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); +extern void Cigesd2d( Int context, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); +extern void Cigerv2d( Int context, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); +extern void Cigsum2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); +extern void Cigamn2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); +extern void Cigamx2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); +extern void Czgesd2d( Int context, Int m, Int n, dcomplex* A, Int lda, Int rdest, Int cdest ); +extern void Czgerv2d( Int context, Int m, Int n, dcomplex* A, Int lda, Int rsrc, Int csrc ); /* lapack */ void zlacpy_(); /* aux fonctions */ -extern Int localindice(Int, Int, Int, Int); -extern void *mr2d_malloc(Int); -extern Int ppcm(Int, Int); -extern Int localsize(Int, Int, Int, Int); -extern Int memoryblocksize(MDESC*); -extern Int changeorigin(Int, Int, Int); -extern void paramcheck(Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int, Int); +extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); +extern void *mr2d_malloc( size_t n ); +extern Int ppcm( Int a, Int b ); +extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); +extern Int memoryblocksize( MDESC *a ); +extern Int changeorigin( Int myp, Int sp, Int p, Int bs, Int i, Int *decal, Int *newsp ); +extern void paramcheck( MDESC *a, Int i, Int j, Int m, Int n, Int p, Int q, Int gcontext ); /* tools and others function */ #define scanD0 ztrscanD0 #define dispmat ztrdispmat #define setmemory ztrsetmemory #define freememory ztrfreememory #define scan_intervals ztrscan_intervals -extern void scanD0(char*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*); -extern void dispmat(double*, Int, Int, Int, Int, Int, Int, Int*); -extern void setmemory(dcomplex**, Int); -extern void freememory(char*); -extern Int scan_intervals(Int, Int, Int, Int, Int, Int, Int**, Int**, Int**, Int**); +extern void scanD0( char* uplo, char* diag, Int action, dcomplex* ptrbuff, Int* ptrsizebuff, Int m, Int n, MDESC* ma, Int ia, Int ja, Int p0, Int q0, MDESC* mb, Int ib, Int jb, Int p1, Int q1, IDESC* v_inter, Int vinter_nb, IDESC* h_inter, Int hinter_nb, dcomplex* ptrblock ); +extern void dispmat(); +extern void setmemory( dcomplex** ptr, Int size ); +extern void freememory( char* ptr ); +extern Int scan_intervals( char type, Int ja, Int jb, Int n, MDESC *ma, MDESC *mb, Int q0, Int q1, Int col0, Int col1, IDESC *result ); extern void Cpztrmr2do( char* uplo, char* diag, Int m, Int n, dcomplex *ptrmyblock, Int ia, Int ja, MDESC *ma, dcomplex *ptrmynewblock, Int ib, Int jb, MDESC *mb ); extern void Cpztrmr2d( char* uplo, char* diag, Int m, Int n, dcomplex *ptrmyblock, Int ia, Int ja, MDESC *ma, dcomplex *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); /* some defines for Cpztrmr2do */ From c69b36a5292cd4df0eb40ee520f618c10596ed48 Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Wed, 21 Jan 2026 10:09:52 +0800 Subject: [PATCH 08/30] Remove Cblacs_gridmap --- REDIST/TESTING/pcgemrdrv.c | 1 - REDIST/TESTING/pctrmrdrv.c | 1 - REDIST/TESTING/pdgemrdrv.c | 1 - REDIST/TESTING/pdtrmrdrv.c | 1 - REDIST/TESTING/pigemrdrv.c | 1 - REDIST/TESTING/pitrmrdrv.c | 1 - REDIST/TESTING/psgemrdrv.c | 1 - REDIST/TESTING/pstrmrdrv.c | 1 - REDIST/TESTING/pzgemrdrv.c | 1 - REDIST/TESTING/pztrmrdrv.c | 1 - 10 files changed, 10 deletions(-) diff --git a/REDIST/TESTING/pcgemrdrv.c b/REDIST/TESTING/pcgemrdrv.c index 03af0397..124fb67a 100644 --- a/REDIST/TESTING/pcgemrdrv.c +++ b/REDIST/TESTING/pcgemrdrv.c @@ -112,7 +112,6 @@ extern void Cblacs_get( Int context, Int what, Int* val ); extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); extern void Cblacs_gridinit( Int* context, char* order, Int nprow, Int npcol ); -extern void Cblacs_gridmap( Int* context, Int* usermap, Int ldumap, Int nprow, Int npcol ); extern void Cblacs_exit( Int continue_blacs ); extern void Cblacs_gridexit( Int context ); extern void Cblacs_setup( Int* mypnum, Int* nprocs ); diff --git a/REDIST/TESTING/pctrmrdrv.c b/REDIST/TESTING/pctrmrdrv.c index f8dd014d..b6d1154d 100644 --- a/REDIST/TESTING/pctrmrdrv.c +++ b/REDIST/TESTING/pctrmrdrv.c @@ -112,7 +112,6 @@ extern void Cblacs_get( Int context, Int what, Int* val ); extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); extern void Cblacs_gridinit( Int* context, char* order, Int nprow, Int npcol ); -extern void Cblacs_gridmap( Int* context, Int* usermap, Int ldumap, Int nprow, Int npcol ); extern void Cblacs_exit( Int continue_blacs ); extern void Cblacs_gridexit( Int context ); extern void Cblacs_setup( Int* mypnum, Int* nprocs ); diff --git a/REDIST/TESTING/pdgemrdrv.c b/REDIST/TESTING/pdgemrdrv.c index d1ce8f65..909f79fc 100644 --- a/REDIST/TESTING/pdgemrdrv.c +++ b/REDIST/TESTING/pdgemrdrv.c @@ -109,7 +109,6 @@ extern void Cblacs_get( Int context, Int what, Int* val ); extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); extern void Cblacs_gridinit( Int* context, char* order, Int nprow, Int npcol ); -extern void Cblacs_gridmap( Int* context, Int* usermap, Int ldumap, Int nprow, Int npcol ); extern void Cblacs_exit( Int continue_blacs ); extern void Cblacs_gridexit( Int context ); extern void Cblacs_setup( Int* mypnum, Int* nprocs ); diff --git a/REDIST/TESTING/pdtrmrdrv.c b/REDIST/TESTING/pdtrmrdrv.c index 3ede01df..97d3576f 100644 --- a/REDIST/TESTING/pdtrmrdrv.c +++ b/REDIST/TESTING/pdtrmrdrv.c @@ -109,7 +109,6 @@ extern void Cblacs_get( Int context, Int what, Int* val ); extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); extern void Cblacs_gridinit( Int* context, char* order, Int nprow, Int npcol ); -extern void Cblacs_gridmap( Int* context, Int* usermap, Int ldumap, Int nprow, Int npcol ); extern void Cblacs_exit( Int continue_blacs ); extern void Cblacs_gridexit( Int context ); extern void Cblacs_setup( Int* mypnum, Int* nprocs ); diff --git a/REDIST/TESTING/pigemrdrv.c b/REDIST/TESTING/pigemrdrv.c index fb40baca..5e4f23af 100644 --- a/REDIST/TESTING/pigemrdrv.c +++ b/REDIST/TESTING/pigemrdrv.c @@ -108,7 +108,6 @@ extern void Cblacs_get( Int context, Int what, Int* val ); extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); extern void Cblacs_gridinit( Int* context, char* order, Int nprow, Int npcol ); -extern void Cblacs_gridmap( Int* context, Int* usermap, Int ldumap, Int nprow, Int npcol ); extern void Cblacs_exit( Int continue_blacs ); extern void Cblacs_gridexit( Int context ); extern void Cblacs_setup( Int* mypnum, Int* nprocs ); diff --git a/REDIST/TESTING/pitrmrdrv.c b/REDIST/TESTING/pitrmrdrv.c index a1e09bfb..2bef8bd9 100644 --- a/REDIST/TESTING/pitrmrdrv.c +++ b/REDIST/TESTING/pitrmrdrv.c @@ -108,7 +108,6 @@ extern void Cblacs_get( Int context, Int what, Int* val ); extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); extern void Cblacs_gridinit( Int* context, char* order, Int nprow, Int npcol ); -extern void Cblacs_gridmap( Int* context, Int* usermap, Int ldumap, Int nprow, Int npcol ); extern void Cblacs_exit( Int continue_blacs ); extern void Cblacs_gridexit( Int context ); extern void Cblacs_setup( Int* mypnum, Int* nprocs ); diff --git a/REDIST/TESTING/psgemrdrv.c b/REDIST/TESTING/psgemrdrv.c index fb816524..18f93fc6 100644 --- a/REDIST/TESTING/psgemrdrv.c +++ b/REDIST/TESTING/psgemrdrv.c @@ -109,7 +109,6 @@ extern void Cblacs_get( Int context, Int what, Int* val ); extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); extern void Cblacs_gridinit( Int* context, char* order, Int nprow, Int npcol ); -extern void Cblacs_gridmap( Int* context, Int* usermap, Int ldumap, Int nprow, Int npcol ); extern void Cblacs_exit( Int continue_blacs ); extern void Cblacs_gridexit( Int context ); extern void Cblacs_setup( Int* mypnum, Int* nprocs ); diff --git a/REDIST/TESTING/pstrmrdrv.c b/REDIST/TESTING/pstrmrdrv.c index 16ce5ca9..5f0aab01 100644 --- a/REDIST/TESTING/pstrmrdrv.c +++ b/REDIST/TESTING/pstrmrdrv.c @@ -108,7 +108,6 @@ extern void Cblacs_get( Int context, Int what, Int* val ); extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); extern void Cblacs_gridinit( Int* context, char* order, Int nprow, Int npcol ); -extern void Cblacs_gridmap( Int* context, Int* usermap, Int ldumap, Int nprow, Int npcol ); extern void Cblacs_exit( Int continue_blacs ); extern void Cblacs_gridexit( Int context ); extern void Cblacs_setup( Int* mypnum, Int* nprocs ); diff --git a/REDIST/TESTING/pzgemrdrv.c b/REDIST/TESTING/pzgemrdrv.c index 6ef81284..b28d4613 100644 --- a/REDIST/TESTING/pzgemrdrv.c +++ b/REDIST/TESTING/pzgemrdrv.c @@ -112,7 +112,6 @@ extern void Cblacs_get( Int context, Int what, Int* val ); extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); extern void Cblacs_gridinit( Int* context, char* order, Int nprow, Int npcol ); -extern void Cblacs_gridmap( Int* context, Int* usermap, Int ldumap, Int nprow, Int npcol ); extern void Cblacs_exit( Int continue_blacs ); extern void Cblacs_gridexit( Int context ); extern void Cblacs_setup( Int* mypnum, Int* nprocs ); diff --git a/REDIST/TESTING/pztrmrdrv.c b/REDIST/TESTING/pztrmrdrv.c index ab8208f3..b33c8fe0 100644 --- a/REDIST/TESTING/pztrmrdrv.c +++ b/REDIST/TESTING/pztrmrdrv.c @@ -112,7 +112,6 @@ extern void Cblacs_get( Int context, Int what, Int* val ); extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); extern void Cblacs_gridinit( Int* context, char* order, Int nprow, Int npcol ); -extern void Cblacs_gridmap( Int* context, Int* usermap, Int ldumap, Int nprow, Int npcol ); extern void Cblacs_exit( Int continue_blacs ); extern void Cblacs_gridexit( Int context ); extern void Cblacs_setup( Int* mypnum, Int* nprocs ); From a2be379fef0eb315ddd3fdbc3d5a7986ae8a895e Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Wed, 21 Jan 2026 10:14:25 +0800 Subject: [PATCH 09/30] Ignore .DS_Store for macOS --- .gitignore | 1 + 1 file changed, 1 insertion(+) diff --git a/.gitignore b/.gitignore index 597313e5..b70c9b13 100644 --- a/.gitignore +++ b/.gitignore @@ -15,4 +15,5 @@ PBLAS/TIMING/PB_Cwarn.c BLACS/TESTING/xCbtest BLACS/TESTING/xFbtest SLmake.inc +.DS_Store From 3543688e1068c256b13d8ff89ff6f3d403e00275 Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Wed, 21 Jan 2026 10:16:40 +0800 Subject: [PATCH 10/30] Update SL_gridreshape.c --- TOOLS/SL_gridreshape.c | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/TOOLS/SL_gridreshape.c b/TOOLS/SL_gridreshape.c index 094c1974..d76ce979 100644 --- a/TOOLS/SL_gridreshape.c +++ b/TOOLS/SL_gridreshape.c @@ -7,12 +7,11 @@ Int SL_Cgridreshape(Int ctxt, Int pstart, Int row_major_in, Int row_major_out, Int P, Int Q) { - /** called subprograms **/ - void Cblacs_gridinfo(Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol); - void Cblacs_abort(Int ConTxt, Int ErrNo); - void Cblacs_get(Int context, Int what, Int * val); - void Cblacs_gridmap(Int* context, Int* usermap, Int ldumap, Int nprow, Int npcol); + void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); + void Cblacs_abort( Int ConTxt, Int ErrNo ); + void Cblacs_get( Int context, Int what, Int * val ); + void Cblacs_gridmap( Int* context, Int* usermap, Int ldumap, Int nprow, Int npcol ); Int Cblacs_pnum( Int context, Int prow, Int pcol ); Int nctxt, P0, Q0, Np, i, *g; From aa453efb0ca3336f9cb3015efb3247c3d5ea7d57 Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Wed, 21 Jan 2026 10:17:40 +0800 Subject: [PATCH 11/30] Remove comment --- TOOLS/SL_gridreshape.c | 1 - 1 file changed, 1 deletion(-) diff --git a/TOOLS/SL_gridreshape.c b/TOOLS/SL_gridreshape.c index d76ce979..cb0c6aba 100644 --- a/TOOLS/SL_gridreshape.c +++ b/TOOLS/SL_gridreshape.c @@ -7,7 +7,6 @@ Int SL_Cgridreshape(Int ctxt, Int pstart, Int row_major_in, Int row_major_out, Int P, Int Q) { - /** called subprograms **/ void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); void Cblacs_abort( Int ConTxt, Int ErrNo ); void Cblacs_get( Int context, Int what, Int * val ); From 7ab7363b3f1d949835c0c161c34f3c986d0f7daf Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Wed, 21 Jan 2026 10:20:07 +0800 Subject: [PATCH 12/30] Remove unused mr2d_malloc --- REDIST/TESTING/pigemrdrv.c | 1 - 1 file changed, 1 deletion(-) diff --git a/REDIST/TESTING/pigemrdrv.c b/REDIST/TESTING/pigemrdrv.c index 5e4f23af..b316aa3d 100644 --- a/REDIST/TESTING/pigemrdrv.c +++ b/REDIST/TESTING/pigemrdrv.c @@ -122,7 +122,6 @@ extern void Cigamx2d( Int context, char* scope, char* top, Int m, Int n, Int* A, void ilacpy_(); /* aux fonctions */ extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); -extern void *mr2d_malloc( size_t n ); extern Int ppcm( Int a, Int b ); extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); extern Int memoryblocksize( MDESC *a ); From 433f69dededdfcc741a45d0a78470c81a68cbc75 Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Wed, 21 Jan 2026 10:22:35 +0800 Subject: [PATCH 13/30] Remove (void **) --- REDIST/TESTING/pigemrdrv.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/REDIST/TESTING/pigemrdrv.c b/REDIST/TESTING/pigemrdrv.c index b316aa3d..656b91dc 100644 --- a/REDIST/TESTING/pigemrdrv.c +++ b/REDIST/TESTING/pigemrdrv.c @@ -398,17 +398,17 @@ m1 n1 sr1 sc1 i1 j1 p1 q1 nbr1 nbc1\n\n"); if (myprow0 >= 0 && mypcol0 >= 0) { blocksize0 = memoryblocksize(&ma); ma.lda = localsize(SHIFT(myprow0, ma.sprow, p0), p0, ma.nbrow, ma.m); - setmemory((void **)&ptrmyblock, blocksize0); + setmemory(&ptrmyblock, blocksize0); initblock(ptrmyblock, 1, blocksize0); - setmemory((void **)&ptrmyblockcopy, blocksize0); + setmemory(&ptrmyblockcopy, blocksize0); memcpy((char *) ptrmyblockcopy, (char *) ptrmyblock, blocksize0 * sizeof(int)); - setmemory((void **)&ptrmyblockvide, blocksize0); + setmemory(&ptrmyblockvide, blocksize0); for (i = 0; i < blocksize0; i++) ptrmyblockvide[i] = -1; }; /* if (mypnum < p0 * q0) */ if (myprow1 >= 0 && mypcol1 >= 0) { - setmemory((void **)&ptrsavemyblock, memoryblocksize(&mb)); + setmemory((&ptrsavemyblock, memoryblocksize(&mb)); mb.lda = localsize(SHIFT(myprow1, mb.sprow, p1), p1, mb.nbrow, mb.m); }; /* if (mypnum < p1 * q1) */ /* Redistribute the matrix from grid 0 to grid 1 (memory location From 1c705af19e6126715268b6ccf54ea9beb20b34b1 Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Wed, 21 Jan 2026 10:23:33 +0800 Subject: [PATCH 14/30] Update pigemrdrv.c --- REDIST/TESTING/pigemrdrv.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/REDIST/TESTING/pigemrdrv.c b/REDIST/TESTING/pigemrdrv.c index 656b91dc..f21ac03e 100644 --- a/REDIST/TESTING/pigemrdrv.c +++ b/REDIST/TESTING/pigemrdrv.c @@ -408,7 +408,7 @@ m1 n1 sr1 sc1 i1 j1 p1 q1 nbr1 nbc1\n\n"); ptrmyblockvide[i] = -1; }; /* if (mypnum < p0 * q0) */ if (myprow1 >= 0 && mypcol1 >= 0) { - setmemory((&ptrsavemyblock, memoryblocksize(&mb)); + setmemory(&ptrsavemyblock, memoryblocksize(&mb)); mb.lda = localsize(SHIFT(myprow1, mb.sprow, p1), p1, mb.nbrow, mb.m); }; /* if (mypnum < p1 * q1) */ /* Redistribute the matrix from grid 0 to grid 1 (memory location From 2e7b8efbe3c235aad53a2655262d0704e3b672b7 Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Wed, 21 Jan 2026 10:24:43 +0800 Subject: [PATCH 15/30] Remove (Int*) --- REDIST/TESTING/pigemrdrv.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/REDIST/TESTING/pigemrdrv.c b/REDIST/TESTING/pigemrdrv.c index f21ac03e..801fd23e 100644 --- a/REDIST/TESTING/pigemrdrv.c +++ b/REDIST/TESTING/pigemrdrv.c @@ -414,13 +414,13 @@ m1 n1 sr1 sc1 i1 j1 p1 q1 nbr1 nbc1\n\n"); /* Redistribute the matrix from grid 0 to grid 1 (memory location * ptrmyblock to ptrsavemyblock) */ Cpigemr2d(m, n, - ptrmyblock, ia, ja, (Int*)&ma, - ptrsavemyblock, ib, jb, (Int*)&mb, gcontext); + ptrmyblock, ia, ja, &ma, + ptrsavemyblock, ib, jb, &mb, gcontext); /* Perform the inverse redistribution of the matrix from grid 1 to grid 0 * (memory location ptrsavemyblock to ptrmyblockvide) */ Cpigemr2d(m, n, - ptrsavemyblock, ib, jb, (Int*)&mb, - ptrmyblockvide, ia, ja, (Int*)&ma, gcontext); + ptrsavemyblock, ib, jb, &mb, + ptrmyblockvide, ia, ja, &ma, gcontext); /* Check the differences */ nberrors = 0; if (myprow0 >= 0 && mypcol0 >= 0) { From bdfc1a4766efcbee8759bfdb67d4bf3d18d1f89b Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Wed, 21 Jan 2026 10:25:53 +0800 Subject: [PATCH 16/30] Remove unused mr2d_malloc --- REDIST/TESTING/pitrmrdrv.c | 1 - 1 file changed, 1 deletion(-) diff --git a/REDIST/TESTING/pitrmrdrv.c b/REDIST/TESTING/pitrmrdrv.c index 2bef8bd9..0b10fe11 100644 --- a/REDIST/TESTING/pitrmrdrv.c +++ b/REDIST/TESTING/pitrmrdrv.c @@ -122,7 +122,6 @@ extern void Cigamx2d( Int context, char* scope, char* top, Int m, Int n, Int* A, void ilacpy_(); /* aux fonctions */ extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); -extern void *mr2d_malloc( size_t n ); extern Int ppcm( Int a, Int b ); extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); extern Int memoryblocksize( MDESC *a ); From 0b17f5288128647b6f56518a7e52e1c8c6dd6ee3 Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Wed, 21 Jan 2026 10:26:55 +0800 Subject: [PATCH 17/30] Remove unused mr2d_malloc --- REDIST/TESTING/pstrmrdrv.c | 1 - REDIST/TESTING/pzgemrdrv.c | 1 - REDIST/TESTING/pztrmrdrv.c | 1 - 3 files changed, 3 deletions(-) diff --git a/REDIST/TESTING/pstrmrdrv.c b/REDIST/TESTING/pstrmrdrv.c index 5f0aab01..71d1ebaf 100644 --- a/REDIST/TESTING/pstrmrdrv.c +++ b/REDIST/TESTING/pstrmrdrv.c @@ -124,7 +124,6 @@ extern void Csgerv2d( Int context, Int m, Int n, float* A, Int lda, Int rsrc, In void slacpy_(); /* aux fonctions */ extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); -extern void *mr2d_malloc( size_t n ); extern Int ppcm( Int a, Int b ); extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); extern Int memoryblocksize( MDESC *a ); diff --git a/REDIST/TESTING/pzgemrdrv.c b/REDIST/TESTING/pzgemrdrv.c index b28d4613..a0e4182e 100644 --- a/REDIST/TESTING/pzgemrdrv.c +++ b/REDIST/TESTING/pzgemrdrv.c @@ -128,7 +128,6 @@ extern void Czgerv2d( Int context, Int m, Int n, dcomplex* A, Int lda, Int rsrc, void zlacpy_(); /* aux fonctions */ extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); -extern void *mr2d_malloc( size_t n ); extern Int ppcm( Int a, Int b ); extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); extern Int memoryblocksize( MDESC *a ); diff --git a/REDIST/TESTING/pztrmrdrv.c b/REDIST/TESTING/pztrmrdrv.c index b33c8fe0..01fdafd0 100644 --- a/REDIST/TESTING/pztrmrdrv.c +++ b/REDIST/TESTING/pztrmrdrv.c @@ -128,7 +128,6 @@ extern void Czgerv2d( Int context, Int m, Int n, dcomplex* A, Int lda, Int rsrc, void zlacpy_(); /* aux fonctions */ extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); -extern void *mr2d_malloc( size_t n ); extern Int ppcm( Int a, Int b ); extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); extern Int memoryblocksize( MDESC *a ); From 0e45168276110441c633290330365c756e58a4bc Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Wed, 21 Jan 2026 10:28:38 +0800 Subject: [PATCH 18/30] Remove unused mr2d_malloc --- REDIST/TESTING/pcgemrdrv.c | 1 - REDIST/TESTING/pctrmrdrv.c | 1 - REDIST/TESTING/pdgemrdrv.c | 1 - REDIST/TESTING/pdtrmrdrv.c | 1 - REDIST/TESTING/psgemrdrv.c | 1 - 5 files changed, 5 deletions(-) diff --git a/REDIST/TESTING/pcgemrdrv.c b/REDIST/TESTING/pcgemrdrv.c index 124fb67a..de83ab85 100644 --- a/REDIST/TESTING/pcgemrdrv.c +++ b/REDIST/TESTING/pcgemrdrv.c @@ -128,7 +128,6 @@ extern void Ccgerv2d( Int context, Int m, Int n, complex* A, Int lda, Int rsrc, void clacpy_(); /* aux fonctions */ extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); -extern void *mr2d_malloc( size_t n ); extern Int ppcm( Int a, Int b ); extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); extern Int memoryblocksize( MDESC *a ); diff --git a/REDIST/TESTING/pctrmrdrv.c b/REDIST/TESTING/pctrmrdrv.c index b6d1154d..b2af5b5c 100644 --- a/REDIST/TESTING/pctrmrdrv.c +++ b/REDIST/TESTING/pctrmrdrv.c @@ -128,7 +128,6 @@ extern void Ccgerv2d( Int context, Int m, Int n, complex* A, Int lda, Int rsrc, void clacpy_(); /* aux fonctions */ extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); -extern void *mr2d_malloc( size_t n ); extern Int ppcm( Int a, Int b ); extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); extern Int memoryblocksize( MDESC *a ); diff --git a/REDIST/TESTING/pdgemrdrv.c b/REDIST/TESTING/pdgemrdrv.c index 909f79fc..7d804ea0 100644 --- a/REDIST/TESTING/pdgemrdrv.c +++ b/REDIST/TESTING/pdgemrdrv.c @@ -125,7 +125,6 @@ extern void Cdgerv2d( Int context, Int m, Int n, double* A, Int lda, Int rsrc, I void dlacpy_(); /* aux fonctions */ extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); -extern void *mr2d_malloc( size_t n ); extern Int ppcm( Int a, Int b ); extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); extern Int memoryblocksize( MDESC *a ); diff --git a/REDIST/TESTING/pdtrmrdrv.c b/REDIST/TESTING/pdtrmrdrv.c index 97d3576f..c4048e95 100644 --- a/REDIST/TESTING/pdtrmrdrv.c +++ b/REDIST/TESTING/pdtrmrdrv.c @@ -125,7 +125,6 @@ extern void Cdgerv2d( Int context, Int m, Int n, double* A, Int lda, Int rsrc, I void dlacpy_(); /* aux fonctions */ extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); -extern void *mr2d_malloc( size_t n ); extern Int ppcm( Int a, Int b ); extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); extern Int memoryblocksize( MDESC *a ); diff --git a/REDIST/TESTING/psgemrdrv.c b/REDIST/TESTING/psgemrdrv.c index 18f93fc6..a0dd8b91 100644 --- a/REDIST/TESTING/psgemrdrv.c +++ b/REDIST/TESTING/psgemrdrv.c @@ -125,7 +125,6 @@ extern void Csgerv2d( Int context, Int m, Int n, float* A, Int lda, Int rsrc, In void slacpy_(); /* aux fonctions */ extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); -extern void *mr2d_malloc( size_t n ); extern Int ppcm( Int a, Int b ); extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); extern Int memoryblocksize( MDESC *a ); From f40292b8861aaddc0c3a1516e4c7c3e06b4eff18 Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Wed, 21 Jan 2026 10:31:59 +0800 Subject: [PATCH 19/30] The generated binaries are in TESTING/traditional --- .gitignore | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/.gitignore b/.gitignore index b70c9b13..90e5ace7 100644 --- a/.gitignore +++ b/.gitignore @@ -3,7 +3,7 @@ BLACS/INSTALL/cmake_install.cmake BLACS/INSTALL/Makefile BLACS/INSTALL/x* -TESTING/x* +TESTING/traditional/x* REDIST/TESTING/x* PBLAS/TESTING/x* PBLAS/TESTING/PB_Cabort.c From bd47f5a506974478e52a8c78265bb0646ced7db5 Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Wed, 21 Jan 2026 10:34:18 +0800 Subject: [PATCH 20/30] Remove the include of --- REDIST/TESTING/psgemrdrv.c | 1 - 1 file changed, 1 deletion(-) diff --git a/REDIST/TESTING/psgemrdrv.c b/REDIST/TESTING/psgemrdrv.c index a0dd8b91..315f2782 100644 --- a/REDIST/TESTING/psgemrdrv.c +++ b/REDIST/TESTING/psgemrdrv.c @@ -1,5 +1,4 @@ #include "redist.h" -#include /* $Id: psgemrdrv.c,v 1.1.1.1 2000/02/15 18:04:10 susan Exp $ * * psgemrdrv.c : From 0a9ca46e89b51892915a36968d506789fbf977c5 Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Wed, 21 Jan 2026 10:41:46 +0800 Subject: [PATCH 21/30] Remove unused functions --- REDIST/TESTING/pcgemrdrv.c | 4 ---- 1 file changed, 4 deletions(-) diff --git a/REDIST/TESTING/pcgemrdrv.c b/REDIST/TESTING/pcgemrdrv.c index de83ab85..8a3825ad 100644 --- a/REDIST/TESTING/pcgemrdrv.c +++ b/REDIST/TESTING/pcgemrdrv.c @@ -134,13 +134,9 @@ extern Int memoryblocksize( MDESC *a ); extern Int changeorigin( Int myp, Int sp, Int p, Int bs, Int i, Int *decal, Int *newsp ); extern void paramcheck( MDESC *a, Int i, Int j, Int m, Int n, Int p, Int q, Int gcontext ); /* tools and others function */ -#define scanD0 cgescanD0 -#define dispmat cgedispmat #define setmemory cgesetmemory #define freememory cgefreememory #define scan_intervals cgescan_intervals -extern void scanD0(char*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*); -extern void dispmat(float*, Int, Int, Int, Int, Int, Int, Int*); extern void setmemory( complex** ptr, Int size ); extern void freememory( char* ptr ); extern Int scan_intervals( char type, Int ja, Int jb, Int n, MDESC *ma, MDESC *mb, Int q0, Int q1, Int col0, Int col1, IDESC *result ); From be37d104e896fb0f3ade1b6fbcefe080e7d8ff75 Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Wed, 21 Jan 2026 10:44:52 +0800 Subject: [PATCH 22/30] Update pcgemrdrv.c --- REDIST/TESTING/pcgemrdrv.c | 9 --------- 1 file changed, 9 deletions(-) diff --git a/REDIST/TESTING/pcgemrdrv.c b/REDIST/TESTING/pcgemrdrv.c index 8a3825ad..c293eabc 100644 --- a/REDIST/TESTING/pcgemrdrv.c +++ b/REDIST/TESTING/pcgemrdrv.c @@ -127,12 +127,8 @@ extern void Ccgerv2d( Int context, Int m, Int n, complex* A, Int lda, Int rsrc, /* lapack */ void clacpy_(); /* aux fonctions */ -extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); -extern Int ppcm( Int a, Int b ); extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); extern Int memoryblocksize( MDESC *a ); -extern Int changeorigin( Int myp, Int sp, Int p, Int bs, Int i, Int *decal, Int *newsp ); -extern void paramcheck( MDESC *a, Int i, Int j, Int m, Int n, Int p, Int q, Int gcontext ); /* tools and others function */ #define setmemory cgesetmemory #define freememory cgefreememory @@ -140,12 +136,7 @@ extern void paramcheck( MDESC *a, Int i, Int j, Int m, Int n, Int p, Int q, Int extern void setmemory( complex** ptr, Int size ); extern void freememory( char* ptr ); extern Int scan_intervals( char type, Int ja, Int jb, Int n, MDESC *ma, MDESC *mb, Int q0, Int q1, Int col0, Int col1, IDESC *result ); -extern void Cpcgemr2do( Int m, Int n, complex *ptrmyblock, Int ia, Int ja, MDESC *ma, complex *ptrmynewblock, Int ib, Int jb, MDESC *mb ); extern void Cpcgemr2d( Int m, Int n, complex *ptrmyblock, Int ia, Int ja, MDESC *ma, complex *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); -/* some defines for Cpcgemr2do */ -#define SENDBUFF 0 -#define RECVBUFF 1 -#define SIZEBUFF 2 #if 0 #define DEBUG #endif From 066f7b65f9d9e23c76a8e23c321ba172ff3bf64c Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Wed, 21 Jan 2026 10:50:33 +0800 Subject: [PATCH 23/30] Remove unused functions --- REDIST/TESTING/pctrmrdrv.c | 15 --------------- REDIST/TESTING/pdgemrdrv.c | 13 ------------- REDIST/TESTING/pdtrmrdrv.c | 15 --------------- REDIST/TESTING/pigemrdrv.c | 15 --------------- 4 files changed, 58 deletions(-) diff --git a/REDIST/TESTING/pctrmrdrv.c b/REDIST/TESTING/pctrmrdrv.c index b2af5b5c..31f23f20 100644 --- a/REDIST/TESTING/pctrmrdrv.c +++ b/REDIST/TESTING/pctrmrdrv.c @@ -127,29 +127,14 @@ extern void Ccgerv2d( Int context, Int m, Int n, complex* A, Int lda, Int rsrc, /* lapack */ void clacpy_(); /* aux fonctions */ -extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); -extern Int ppcm( Int a, Int b ); extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); extern Int memoryblocksize( MDESC *a ); -extern Int changeorigin( Int myp, Int sp, Int p, Int bs, Int i, Int *decal, Int *newsp ); -extern void paramcheck( MDESC *a, Int i, Int j, Int m, Int n, Int p, Int q, Int gcontext ); /* tools and others function */ -#define scanD0 ctrscanD0 -#define dispmat ctrdispmat #define setmemory ctrsetmemory #define freememory ctrfreememory -#define scan_intervals ctrscan_intervals -extern void scanD0( char* uplo, char* diag, Int action, complex* ptrbuff, Int* ptrsizebuff, Int m, Int n, MDESC* ma, Int ia, Int ja, Int p0, Int q0, MDESC* mb, Int ib, Int jb, Int p1, Int q1, IDESC* v_inter, Int vinter_nb, IDESC* h_inter, Int hinter_nb, complex* ptrblock ); -extern void dispmat(); extern void setmemory( complex** ptr, Int size ); extern void freememory( char* ptr ); -extern Int scan_intervals( char type, Int ja, Int jb, Int n, MDESC *ma, MDESC *mb, Int q0, Int q1, Int col0, Int col1, IDESC *result ); -extern void Cpctrmr2do( char* uplo, char* diag, Int m, Int n, complex *ptrmyblock, Int ia, Int ja, MDESC *ma, complex *ptrmynewblock, Int ib, Int jb, MDESC *mb ); extern void Cpctrmr2d( char* uplo, char* diag, Int m, Int n, complex *ptrmyblock, Int ia, Int ja, MDESC *ma, complex *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); -/* some defines for Cpctrmr2do */ -#define SENDBUFF 0 -#define RECVBUFF 1 -#define SIZEBUFF 2 #if 0 #define DEBUG #endif diff --git a/REDIST/TESTING/pdgemrdrv.c b/REDIST/TESTING/pdgemrdrv.c index 7d804ea0..65eab635 100644 --- a/REDIST/TESTING/pdgemrdrv.c +++ b/REDIST/TESTING/pdgemrdrv.c @@ -124,29 +124,16 @@ extern void Cdgerv2d( Int context, Int m, Int n, double* A, Int lda, Int rsrc, I /* lapack */ void dlacpy_(); /* aux fonctions */ -extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); -extern Int ppcm( Int a, Int b ); extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); extern Int memoryblocksize( MDESC *a ); extern Int changeorigin( Int myp, Int sp, Int p, Int bs, Int i, Int *decal, Int *newsp ); extern void paramcheck( MDESC *a, Int i, Int j, Int m, Int n, Int p, Int q, Int gcontext ); /* tools and others function */ -#define scanD0 dgescanD0 -#define dispmat dgedispmat #define setmemory dgesetmemory #define freememory dgefreememory -#define scan_intervals dgescan_intervals -extern void scanD0(char*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*); -extern void dispmat(double*, Int, Int, Int, Int, Int, Int, Int*); extern void setmemory( double** ptr, Int size ); extern void freememory( char* ptr ); -extern Int scan_intervals( char type, Int ja, Int jb, Int n, MDESC *ma, MDESC *mb, Int q0, Int q1, Int col0, Int col1, IDESC *result ); -extern void Cpdgemr2do( Int m, Int n, double *ptrmyblock, Int ia, Int ja, MDESC *ma, double *ptrmynewblock, Int ib, Int jb, MDESC *mb ); extern void Cpdgemr2d( Int m, Int n, double *ptrmyblock, Int ia, Int ja, MDESC *ma, double *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); -/* some defines for Cpdgemr2do */ -#define SENDBUFF 0 -#define RECVBUFF 1 -#define SIZEBUFF 2 #if 0 #define DEBUG #endif diff --git a/REDIST/TESTING/pdtrmrdrv.c b/REDIST/TESTING/pdtrmrdrv.c index c4048e95..9d979fc4 100644 --- a/REDIST/TESTING/pdtrmrdrv.c +++ b/REDIST/TESTING/pdtrmrdrv.c @@ -124,29 +124,14 @@ extern void Cdgerv2d( Int context, Int m, Int n, double* A, Int lda, Int rsrc, I /* lapack */ void dlacpy_(); /* aux fonctions */ -extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); -extern Int ppcm( Int a, Int b ); extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); extern Int memoryblocksize( MDESC *a ); -extern Int changeorigin( Int myp, Int sp, Int p, Int bs, Int i, Int *decal, Int *newsp ); -extern void paramcheck( MDESC *a, Int i, Int j, Int m, Int n, Int p, Int q, Int gcontext ); /* tools and others function */ -#define scanD0 dtrscanD0 -#define dispmat dtrdispmat #define setmemory dtrsetmemory #define freememory dtrfreememory -#define scan_intervals dtrscan_intervals -extern void scanD0( char* uplo, char* diag, Int action, double* ptrbuff, Int* ptrsizebuff, Int m, Int n, MDESC* ma, Int ia, Int ja, Int p0, Int q0, MDESC* mb, Int ib, Int jb, Int p1, Int q1, IDESC* v_inter, Int vinter_nb, IDESC* h_inter, Int hinter_nb, double* ptrblock ); -extern void dispmat(); extern void setmemory( double** ptr, Int size ); extern void freememory( char* ptr ); -extern Int scan_intervals( char type, Int ja, Int jb, Int n, MDESC *ma, MDESC *mb, Int q0, Int q1, Int col0, Int col1, IDESC *result ); -extern void Cpdtrmr2do( char* uplo, char* diag, Int m, Int n, double *ptrmyblock, Int ia, Int ja, MDESC *ma, double *ptrmynewblock, Int ib, Int jb, MDESC *mb ); extern void Cpdtrmr2d( char* uplo, char* diag, Int m, Int n, double *ptrmyblock, Int ia, Int ja, MDESC *ma, double *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); -/* some defines for Cpdtrmr2do */ -#define SENDBUFF 0 -#define RECVBUFF 1 -#define SIZEBUFF 2 #if 0 #define DEBUG #endif diff --git a/REDIST/TESTING/pigemrdrv.c b/REDIST/TESTING/pigemrdrv.c index 801fd23e..e9ddc38c 100644 --- a/REDIST/TESTING/pigemrdrv.c +++ b/REDIST/TESTING/pigemrdrv.c @@ -121,29 +121,14 @@ extern void Cigamx2d( Int context, char* scope, char* top, Int m, Int n, Int* A, /* lapack */ void ilacpy_(); /* aux fonctions */ -extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); -extern Int ppcm( Int a, Int b ); extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); extern Int memoryblocksize( MDESC *a ); -extern Int changeorigin( Int myp, Int sp, Int p, Int bs, Int i, Int *decal, Int *newsp ); -extern void paramcheck( MDESC *a, Int i, Int j, Int m, Int n, Int p, Int q, Int gcontext ); /* tools and others function */ -#define scanD0 igescanD0 -#define dispmat igedispmat #define setmemory igesetmemory #define freememory igefreememory -#define scan_intervals igescan_intervals -extern void scanD0(Int, Int, Int, Int, Int, Int, Int, Int*, Int*, Int*, Int*, Int*); -extern void dispmat(char*, Int, Int, Int, Int, Int, Int, double*, Int, Int, Int); extern void setmemory( Int** ptr, Int size ); extern void freememory( char* ptr ); -extern Int scan_intervals( char rc, Int i0, Int i1, Int len, MDESC *m0, MDESC *m1, Int p0, Int p1, Int myp, Int otherp, IDESC *inter ); -extern void Cpigemr2do( Int m, Int n, Int *ptrmyblock, Int ia, Int ja, MDESC *ma, Int *ptrmynewblock, Int ib, Int jb, MDESC *mb ); extern void Cpigemr2d( Int m, Int n, Int *ptrmyblock, Int ia, Int ja, MDESC *ma, Int *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); -/* some defines for Cpigemr2do */ -#define SENDBUFF 0 -#define RECVBUFF 1 -#define SIZEBUFF 2 #if 0 #define DEBUG #endif From e478ec8b940a4432bf22b9303b779a8cbc7896ae Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Wed, 21 Jan 2026 10:57:12 +0800 Subject: [PATCH 24/30] Remove unused functions --- REDIST/TESTING/pitrmrdrv.c | 15 --------------- REDIST/TESTING/psgemrdrv.c | 15 --------------- REDIST/TESTING/pstrmrdrv.c | 11 ----------- REDIST/TESTING/pzgemrdrv.c | 15 --------------- REDIST/TESTING/pztrmrdrv.c | 15 --------------- 5 files changed, 71 deletions(-) diff --git a/REDIST/TESTING/pitrmrdrv.c b/REDIST/TESTING/pitrmrdrv.c index 0b10fe11..21a038b8 100644 --- a/REDIST/TESTING/pitrmrdrv.c +++ b/REDIST/TESTING/pitrmrdrv.c @@ -121,29 +121,14 @@ extern void Cigamx2d( Int context, char* scope, char* top, Int m, Int n, Int* A, /* lapack */ void ilacpy_(); /* aux fonctions */ -extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); -extern Int ppcm( Int a, Int b ); extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); extern Int memoryblocksize( MDESC *a ); -extern Int changeorigin( Int myp, Int sp, Int p, Int bs, Int i, Int *decal, Int *newsp ); -extern void paramcheck( MDESC *a, Int i, Int j, Int m, Int n, Int p, Int q, Int gcontext ); /* tools and others function */ -#define scanD0 itrscanD0 -#define dispmat itrdispmat #define setmemory itrsetmemory #define freememory itrfreememory -#define scan_intervals itrscan_intervals -extern void scanD0( char* uplo, char* diag, Int action, Int* ptrbuff, Int* ptrsizebuff, Int m, Int n, MDESC* ma, Int ia, Int ja, Int p0, Int q0, MDESC* mb, Int ib, Int jb, Int p1, Int q1, IDESC* v_inter, Int vinter_nb, IDESC* h_inter, Int hinter_nb, Int* ptrblock ); -extern void dispmat(); extern void setmemory( Int** ptr, Int size ); extern void freememory( char* ptr ); -extern Int scan_intervals( char rc, Int i0, Int i1, Int len, MDESC *m0, MDESC *m1, Int p0, Int p1, Int myp, Int otherp, IDESC *inter ); -extern void Cpitrmr2do( char* uplo, char* diag, Int m, Int n, Int *ptrmyblock, Int ia, Int ja, MDESC *ma, Int *ptrmynewblock, Int ib, Int jb, MDESC *mb ); extern void Cpitrmr2d( char* uplo, char* diag, Int m, Int n, Int *ptrmyblock, Int ia, Int ja, MDESC *ma, Int *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); -/* some defines for Cpitrmr2do */ -#define SENDBUFF 0 -#define RECVBUFF 1 -#define SIZEBUFF 2 #if 0 #define DEBUG #endif diff --git a/REDIST/TESTING/psgemrdrv.c b/REDIST/TESTING/psgemrdrv.c index 315f2782..a5be2704 100644 --- a/REDIST/TESTING/psgemrdrv.c +++ b/REDIST/TESTING/psgemrdrv.c @@ -123,29 +123,14 @@ extern void Csgerv2d( Int context, Int m, Int n, float* A, Int lda, Int rsrc, In /* lapack */ void slacpy_(); /* aux fonctions */ -extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); -extern Int ppcm( Int a, Int b ); extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); extern Int memoryblocksize( MDESC *a ); -extern Int changeorigin( Int myp, Int sp, Int p, Int bs, Int i, Int *decal, Int *newsp ); -extern void paramcheck( MDESC *a, Int i, Int j, Int m, Int n, Int p, Int q, Int gcontext ); /* tools and others function */ -#define scanD0 sgescanD0 -#define dispmat sgedispmat #define setmemory sgesetmemory #define freememory sgefreememory -#define scan_intervals sgescan_intervals -extern void scanD0( char* uplo, char* diag, Int action, float* ptrbuff, Int* ptrsizebuff, Int m, Int n, MDESC* ma, Int ia, Int ja, Int p0, Int q0, MDESC* mb, Int ib, Int jb, Int p1, Int q1, IDESC* v_inter, Int vinter_nb, IDESC* h_inter, Int hinter_nb, float* ptrblock ); -extern void dispmat(); extern void setmemory( float** ptr, Int size ); extern void freememory( char* ptr ); -extern Int scan_intervals( char type, Int ja, Int jb, Int n, MDESC *ma, MDESC *mb, Int q0, Int q1, Int col0, Int col1, IDESC *result ); -extern void Cpsgemr2do( Int m, Int n, float *ptrmyblock, Int ia, Int ja, MDESC *ma, float *ptrmynewblock, Int ib, Int jb, MDESC *mb ); extern void Cpsgemr2d( Int m, Int n, float *ptrmyblock, Int ia, Int ja, MDESC *ma, float *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); -/* some defines for Cpsgemr2do */ -#define SENDBUFF 0 -#define RECVBUFF 1 -#define SIZEBUFF 2 #if 0 #define DEBUG #endif diff --git a/REDIST/TESTING/pstrmrdrv.c b/REDIST/TESTING/pstrmrdrv.c index 71d1ebaf..b38b8432 100644 --- a/REDIST/TESTING/pstrmrdrv.c +++ b/REDIST/TESTING/pstrmrdrv.c @@ -130,22 +130,11 @@ extern Int memoryblocksize( MDESC *a ); extern Int changeorigin( Int myp, Int sp, Int p, Int bs, Int i, Int *decal, Int *newsp ); extern void paramcheck( MDESC *a, Int i, Int j, Int m, Int n, Int p, Int q, Int gcontext ); /* tools and others function */ -#define scanD0 strscanD0 -#define dispmat strdispmat #define setmemory strsetmemory #define freememory strfreememory -#define scan_intervals strscan_intervals -extern void scanD0( char* uplo, char* diag, Int action, float* ptrbuff, Int* ptrsizebuff, Int m, Int n, MDESC* ma, Int ia, Int ja, Int p0, Int q0, MDESC* mb, Int ib, Int jb, Int p1, Int q1, IDESC* v_inter, Int vinter_nb, IDESC* h_inter, Int hinter_nb, float* ptrblock ); -extern void dispmat(); extern void setmemory( float** ptr, Int size ); extern void freememory( char* ptr ); -extern Int scan_intervals( char type, Int ja, Int jb, Int n, MDESC *ma, MDESC *mb, Int q0, Int q1, Int col0, Int col1, IDESC *result ); -extern void Cpstrmr2do( char* uplo, char* diag, Int m, Int n, float *ptrmyblock, Int ia, Int ja, MDESC *ma, float *ptrmynewblock, Int ib, Int jb, MDESC *mb ); extern void Cpstrmr2d( char* uplo, char* diag, Int m, Int n, float *ptrmyblock, Int ia, Int ja, MDESC *ma, float *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); -/* some defines for Cpstrmr2do */ -#define SENDBUFF 0 -#define RECVBUFF 1 -#define SIZEBUFF 2 #if 0 #define DEBUG #endif diff --git a/REDIST/TESTING/pzgemrdrv.c b/REDIST/TESTING/pzgemrdrv.c index a0e4182e..7f3eb538 100644 --- a/REDIST/TESTING/pzgemrdrv.c +++ b/REDIST/TESTING/pzgemrdrv.c @@ -127,29 +127,14 @@ extern void Czgerv2d( Int context, Int m, Int n, dcomplex* A, Int lda, Int rsrc, /* lapack */ void zlacpy_(); /* aux fonctions */ -extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); -extern Int ppcm( Int a, Int b ); extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); extern Int memoryblocksize( MDESC *a ); -extern Int changeorigin( Int myp, Int sp, Int p, Int bs, Int i, Int *decal, Int *newsp ); -extern void paramcheck( MDESC *a, Int i, Int j, Int m, Int n, Int p, Int q, Int gcontext ); /* tools and others function */ -#define scanD0 zgescanD0 -#define dispmat zgedispmat #define setmemory zgesetmemory #define freememory zgefreememory -#define scan_intervals zgescan_intervals -extern void scanD0(char*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*, Int*); -extern void dispmat(double*, Int, Int, Int, Int, Int, Int, Int*); extern void setmemory( dcomplex** ptr, Int size ); extern void freememory( char* ptr ); -extern Int scan_intervals( char type, Int ja, Int jb, Int n, MDESC *ma, MDESC *mb, Int q0, Int q1, Int col0, Int col1, IDESC *result ); -extern void Cpzgemr2do( Int m, Int n, dcomplex *ptrmyblock, Int ia, Int ja, MDESC *ma, dcomplex *ptrmynewblock, Int ib, Int jb, MDESC *mb ); extern void Cpzgemr2d( Int m, Int n, dcomplex *ptrmyblock, Int ia, Int ja, MDESC *ma, dcomplex *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); -/* some defines for Cpzgemr2do */ -#define SENDBUFF 0 -#define RECVBUFF 1 -#define SIZEBUFF 2 #if 0 #define DEBUG #endif diff --git a/REDIST/TESTING/pztrmrdrv.c b/REDIST/TESTING/pztrmrdrv.c index 01fdafd0..e327fc9b 100644 --- a/REDIST/TESTING/pztrmrdrv.c +++ b/REDIST/TESTING/pztrmrdrv.c @@ -127,29 +127,14 @@ extern void Czgerv2d( Int context, Int m, Int n, dcomplex* A, Int lda, Int rsrc, /* lapack */ void zlacpy_(); /* aux fonctions */ -extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); -extern Int ppcm( Int a, Int b ); extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); extern Int memoryblocksize( MDESC *a ); -extern Int changeorigin( Int myp, Int sp, Int p, Int bs, Int i, Int *decal, Int *newsp ); -extern void paramcheck( MDESC *a, Int i, Int j, Int m, Int n, Int p, Int q, Int gcontext ); /* tools and others function */ -#define scanD0 ztrscanD0 -#define dispmat ztrdispmat #define setmemory ztrsetmemory #define freememory ztrfreememory -#define scan_intervals ztrscan_intervals -extern void scanD0( char* uplo, char* diag, Int action, dcomplex* ptrbuff, Int* ptrsizebuff, Int m, Int n, MDESC* ma, Int ia, Int ja, Int p0, Int q0, MDESC* mb, Int ib, Int jb, Int p1, Int q1, IDESC* v_inter, Int vinter_nb, IDESC* h_inter, Int hinter_nb, dcomplex* ptrblock ); -extern void dispmat(); extern void setmemory( dcomplex** ptr, Int size ); extern void freememory( char* ptr ); -extern Int scan_intervals( char type, Int ja, Int jb, Int n, MDESC *ma, MDESC *mb, Int q0, Int q1, Int col0, Int col1, IDESC *result ); -extern void Cpztrmr2do( char* uplo, char* diag, Int m, Int n, dcomplex *ptrmyblock, Int ia, Int ja, MDESC *ma, dcomplex *ptrmynewblock, Int ib, Int jb, MDESC *mb ); extern void Cpztrmr2d( char* uplo, char* diag, Int m, Int n, dcomplex *ptrmyblock, Int ia, Int ja, MDESC *ma, dcomplex *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); -/* some defines for Cpztrmr2do */ -#define SENDBUFF 0 -#define RECVBUFF 1 -#define SIZEBUFF 2 #if 0 #define DEBUG #endif From 65b8aba02e7f807e2a2cb0927224a9330ab39ecf Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Wed, 21 Jan 2026 11:00:17 +0800 Subject: [PATCH 25/30] Remove unused functions --- REDIST/TESTING/pcgemrdrv.c | 2 -- REDIST/TESTING/pstrmrdrv.c | 4 ---- 2 files changed, 6 deletions(-) diff --git a/REDIST/TESTING/pcgemrdrv.c b/REDIST/TESTING/pcgemrdrv.c index c293eabc..31821ada 100644 --- a/REDIST/TESTING/pcgemrdrv.c +++ b/REDIST/TESTING/pcgemrdrv.c @@ -132,10 +132,8 @@ extern Int memoryblocksize( MDESC *a ); /* tools and others function */ #define setmemory cgesetmemory #define freememory cgefreememory -#define scan_intervals cgescan_intervals extern void setmemory( complex** ptr, Int size ); extern void freememory( char* ptr ); -extern Int scan_intervals( char type, Int ja, Int jb, Int n, MDESC *ma, MDESC *mb, Int q0, Int q1, Int col0, Int col1, IDESC *result ); extern void Cpcgemr2d( Int m, Int n, complex *ptrmyblock, Int ia, Int ja, MDESC *ma, complex *ptrmynewblock, Int ib, Int jb, MDESC *mb, Int globcontext ); #if 0 #define DEBUG diff --git a/REDIST/TESTING/pstrmrdrv.c b/REDIST/TESTING/pstrmrdrv.c index b38b8432..683e36ce 100644 --- a/REDIST/TESTING/pstrmrdrv.c +++ b/REDIST/TESTING/pstrmrdrv.c @@ -123,12 +123,8 @@ extern void Csgerv2d( Int context, Int m, Int n, float* A, Int lda, Int rsrc, In /* lapack */ void slacpy_(); /* aux fonctions */ -extern Int localindice( Int ig, Int jg, Int templateheight, Int templatewidth, MDESC *a ); -extern Int ppcm( Int a, Int b ); extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); extern Int memoryblocksize( MDESC *a ); -extern Int changeorigin( Int myp, Int sp, Int p, Int bs, Int i, Int *decal, Int *newsp ); -extern void paramcheck( MDESC *a, Int i, Int j, Int m, Int n, Int p, Int q, Int gcontext ); /* tools and others function */ #define setmemory strsetmemory #define freememory strfreememory From 672805b40adabdf161e327d7b15eb4082fe2ed03 Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Wed, 21 Jan 2026 11:01:22 +0800 Subject: [PATCH 26/30] Remove unused functions --- REDIST/TESTING/pdgemrdrv.c | 2 -- 1 file changed, 2 deletions(-) diff --git a/REDIST/TESTING/pdgemrdrv.c b/REDIST/TESTING/pdgemrdrv.c index 65eab635..b7d573ad 100644 --- a/REDIST/TESTING/pdgemrdrv.c +++ b/REDIST/TESTING/pdgemrdrv.c @@ -126,8 +126,6 @@ void dlacpy_(); /* aux fonctions */ extern Int localsize( Int myprow, Int p, Int nbrow, Int m ); extern Int memoryblocksize( MDESC *a ); -extern Int changeorigin( Int myp, Int sp, Int p, Int bs, Int i, Int *decal, Int *newsp ); -extern void paramcheck( MDESC *a, Int i, Int j, Int m, Int n, Int p, Int q, Int gcontext ); /* tools and others function */ #define setmemory dgesetmemory #define freememory dgefreememory From 48fd3fecfa888367ff1f3d77cbb966da1e9f510c Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Wed, 21 Jan 2026 11:03:25 +0800 Subject: [PATCH 27/30] Remove unused functions --- REDIST/TESTING/pcgemrdrv.c | 9 --------- 1 file changed, 9 deletions(-) diff --git a/REDIST/TESTING/pcgemrdrv.c b/REDIST/TESTING/pcgemrdrv.c index 31821ada..a78125e5 100644 --- a/REDIST/TESTING/pcgemrdrv.c +++ b/REDIST/TESTING/pcgemrdrv.c @@ -105,9 +105,6 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord( Int context, Int pnum, Int* prow, Int* pcol ); -extern Int Cblacs_pnum( Int context, Int prow, Int pcol ); -extern void Csetpvmtids(); extern void Cblacs_get( Int context, Int what, Int* val ); extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); @@ -117,13 +114,7 @@ extern void Cblacs_gridexit( Int context ); extern void Cblacs_setup( Int* mypnum, Int* nprocs ); extern void Cigebs2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda ); extern void Cigebr2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); -extern void Cigesd2d( Int context, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); -extern void Cigerv2d( Int context, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); extern void Cigsum2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); -extern void Cigamn2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); -extern void Cigamx2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); -extern void Ccgesd2d( Int context, Int m, Int n, complex* A, Int lda, Int rdest, Int cdest ); -extern void Ccgerv2d( Int context, Int m, Int n, complex* A, Int lda, Int rsrc, Int csrc ); /* lapack */ void clacpy_(); /* aux fonctions */ From 6c4bc2f219fc1e199fb4390af6475bbc60001090 Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Wed, 21 Jan 2026 11:09:08 +0800 Subject: [PATCH 28/30] WIP --- REDIST/TESTING/pctrmrdrv.c | 9 --------- REDIST/TESTING/pdgemrdrv.c | 9 --------- REDIST/TESTING/pdtrmrdrv.c | 9 --------- 3 files changed, 27 deletions(-) diff --git a/REDIST/TESTING/pctrmrdrv.c b/REDIST/TESTING/pctrmrdrv.c index 31f23f20..467ff209 100644 --- a/REDIST/TESTING/pctrmrdrv.c +++ b/REDIST/TESTING/pctrmrdrv.c @@ -105,9 +105,6 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord( Int context, Int pnum, Int* prow, Int* pcol ); -extern Int Cblacs_pnum( Int context, Int prow, Int pcol ); -extern void Csetpvmtids(); extern void Cblacs_get( Int context, Int what, Int* val ); extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); @@ -117,13 +114,7 @@ extern void Cblacs_gridexit( Int context ); extern void Cblacs_setup( Int* mypnum, Int* nprocs ); extern void Cigebs2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda ); extern void Cigebr2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); -extern void Cigesd2d( Int context, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); -extern void Cigerv2d( Int context, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); extern void Cigsum2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); -extern void Cigamn2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); -extern void Cigamx2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); -extern void Ccgesd2d( Int context, Int m, Int n, complex* A, Int lda, Int rdest, Int cdest ); -extern void Ccgerv2d( Int context, Int m, Int n, complex* A, Int lda, Int rsrc, Int csrc ); /* lapack */ void clacpy_(); /* aux fonctions */ diff --git a/REDIST/TESTING/pdgemrdrv.c b/REDIST/TESTING/pdgemrdrv.c index b7d573ad..702bad40 100644 --- a/REDIST/TESTING/pdgemrdrv.c +++ b/REDIST/TESTING/pdgemrdrv.c @@ -102,9 +102,6 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord( Int context, Int pnum, Int* prow, Int* pcol ); -extern Int Cblacs_pnum( Int context, Int prow, Int pcol ); -extern void Csetpvmtids(); extern void Cblacs_get( Int context, Int what, Int* val ); extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); @@ -114,13 +111,7 @@ extern void Cblacs_gridexit( Int context ); extern void Cblacs_setup( Int* mypnum, Int* nprocs ); extern void Cigebs2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda ); extern void Cigebr2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); -extern void Cigesd2d( Int context, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); -extern void Cigerv2d( Int context, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); extern void Cigsum2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); -extern void Cigamn2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); -extern void Cigamx2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); -extern void Cdgesd2d( Int context, Int m, Int n, double* A, Int lda, Int rdest, Int cdest ); -extern void Cdgerv2d( Int context, Int m, Int n, double* A, Int lda, Int rsrc, Int csrc ); /* lapack */ void dlacpy_(); /* aux fonctions */ diff --git a/REDIST/TESTING/pdtrmrdrv.c b/REDIST/TESTING/pdtrmrdrv.c index 9d979fc4..d25a6e71 100644 --- a/REDIST/TESTING/pdtrmrdrv.c +++ b/REDIST/TESTING/pdtrmrdrv.c @@ -102,9 +102,6 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord( Int context, Int pnum, Int* prow, Int* pcol ); -extern Int Cblacs_pnum( Int context, Int prow, Int pcol ); -extern void Csetpvmtids(); extern void Cblacs_get( Int context, Int what, Int* val ); extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); @@ -114,13 +111,7 @@ extern void Cblacs_gridexit( Int context ); extern void Cblacs_setup( Int* mypnum, Int* nprocs ); extern void Cigebs2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda ); extern void Cigebr2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); -extern void Cigesd2d( Int context, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); -extern void Cigerv2d( Int context, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); extern void Cigsum2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); -extern void Cigamn2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); -extern void Cigamx2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); -extern void Cdgesd2d( Int context, Int m, Int n, double* A, Int lda, Int rdest, Int cdest ); -extern void Cdgerv2d( Int context, Int m, Int n, double* A, Int lda, Int rsrc, Int csrc ); /* lapack */ void dlacpy_(); /* aux fonctions */ From 0be597adb3218a0f514d0fe8a594c3ecb3e458d4 Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Wed, 21 Jan 2026 11:12:11 +0800 Subject: [PATCH 29/30] WIP --- REDIST/TESTING/pigemrdrv.c | 7 ------- REDIST/TESTING/pitrmrdrv.c | 7 ------- REDIST/TESTING/psgemrdrv.c | 9 --------- REDIST/TESTING/pstrmrdrv.c | 9 --------- REDIST/TESTING/pzgemrdrv.c | 9 --------- REDIST/TESTING/pztrmrdrv.c | 9 --------- 6 files changed, 50 deletions(-) diff --git a/REDIST/TESTING/pigemrdrv.c b/REDIST/TESTING/pigemrdrv.c index e9ddc38c..50ed0588 100644 --- a/REDIST/TESTING/pigemrdrv.c +++ b/REDIST/TESTING/pigemrdrv.c @@ -101,9 +101,6 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord( Int context, Int pnum, Int* prow, Int* pcol ); -extern Int Cblacs_pnum( Int context, Int prow, Int pcol ); -extern void Csetpvmtids(); extern void Cblacs_get( Int context, Int what, Int* val ); extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); @@ -113,11 +110,7 @@ extern void Cblacs_gridexit( Int context ); extern void Cblacs_setup( Int* mypnum, Int* nprocs ); extern void Cigebs2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda ); extern void Cigebr2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); -extern void Cigesd2d( Int context, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); -extern void Cigerv2d( Int context, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); extern void Cigsum2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); -extern void Cigamn2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); -extern void Cigamx2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); /* lapack */ void ilacpy_(); /* aux fonctions */ diff --git a/REDIST/TESTING/pitrmrdrv.c b/REDIST/TESTING/pitrmrdrv.c index 21a038b8..43bf6136 100644 --- a/REDIST/TESTING/pitrmrdrv.c +++ b/REDIST/TESTING/pitrmrdrv.c @@ -101,9 +101,6 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord( Int context, Int pnum, Int* prow, Int* pcol ); -extern Int Cblacs_pnum( Int context, Int prow, Int pcol ); -extern void Csetpvmtids(); extern void Cblacs_get( Int context, Int what, Int* val ); extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); @@ -113,11 +110,7 @@ extern void Cblacs_gridexit( Int context ); extern void Cblacs_setup( Int* mypnum, Int* nprocs ); extern void Cigebs2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda ); extern void Cigebr2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); -extern void Cigesd2d( Int context, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); -extern void Cigerv2d( Int context, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); extern void Cigsum2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); -extern void Cigamn2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); -extern void Cigamx2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); /* lapack */ void ilacpy_(); /* aux fonctions */ diff --git a/REDIST/TESTING/psgemrdrv.c b/REDIST/TESTING/psgemrdrv.c index a5be2704..370b297e 100644 --- a/REDIST/TESTING/psgemrdrv.c +++ b/REDIST/TESTING/psgemrdrv.c @@ -101,9 +101,6 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord( Int context, Int pnum, Int* prow, Int* pcol ); -extern Int Cblacs_pnum( Int context, Int prow, Int pcol ); -extern void Csetpvmtids(); extern void Cblacs_get( Int context, Int what, Int* val ); extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); @@ -113,13 +110,7 @@ extern void Cblacs_gridexit( Int context ); extern void Cblacs_setup( Int* mypnum, Int* nprocs ); extern void Cigebs2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda ); extern void Cigebr2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); -extern void Cigesd2d( Int context, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); -extern void Cigerv2d( Int context, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); extern void Cigsum2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); -extern void Cigamn2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); -extern void Cigamx2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); -extern void Csgesd2d( Int context, Int m, Int n, float* A, Int lda, Int rdest, Int cdest ); -extern void Csgerv2d( Int context, Int m, Int n, float* A, Int lda, Int rsrc, Int csrc ); /* lapack */ void slacpy_(); /* aux fonctions */ diff --git a/REDIST/TESTING/pstrmrdrv.c b/REDIST/TESTING/pstrmrdrv.c index 683e36ce..92b66e52 100644 --- a/REDIST/TESTING/pstrmrdrv.c +++ b/REDIST/TESTING/pstrmrdrv.c @@ -101,9 +101,6 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord( Int context, Int pnum, Int* prow, Int* pcol ); -extern Int Cblacs_pnum( Int context, Int prow, Int pcol ); -extern void Csetpvmtids(); extern void Cblacs_get( Int context, Int what, Int* val ); extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); @@ -113,13 +110,7 @@ extern void Cblacs_gridexit( Int context ); extern void Cblacs_setup( Int* mypnum, Int* nprocs ); extern void Cigebs2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda ); extern void Cigebr2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); -extern void Cigesd2d( Int context, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); -extern void Cigerv2d( Int context, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); extern void Cigsum2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); -extern void Cigamn2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); -extern void Cigamx2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); -extern void Csgesd2d( Int context, Int m, Int n, float* A, Int lda, Int rdest, Int cdest ); -extern void Csgerv2d( Int context, Int m, Int n, float* A, Int lda, Int rsrc, Int csrc ); /* lapack */ void slacpy_(); /* aux fonctions */ diff --git a/REDIST/TESTING/pzgemrdrv.c b/REDIST/TESTING/pzgemrdrv.c index 7f3eb538..ba43d995 100644 --- a/REDIST/TESTING/pzgemrdrv.c +++ b/REDIST/TESTING/pzgemrdrv.c @@ -105,9 +105,6 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord( Int context, Int pnum, Int* prow, Int* pcol ); -extern Int Cblacs_pnum( Int context, Int prow, Int pcol ); -extern void Csetpvmtids(); extern void Cblacs_get( Int context, Int what, Int* val ); extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); @@ -117,13 +114,7 @@ extern void Cblacs_gridexit( Int context ); extern void Cblacs_setup( Int* mypnum, Int* nprocs ); extern void Cigebs2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda ); extern void Cigebr2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); -extern void Cigesd2d( Int context, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); -extern void Cigerv2d( Int context, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); extern void Cigsum2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); -extern void Cigamn2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); -extern void Cigamx2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); -extern void Czgesd2d( Int context, Int m, Int n, dcomplex* A, Int lda, Int rdest, Int cdest ); -extern void Czgerv2d( Int context, Int m, Int n, dcomplex* A, Int lda, Int rsrc, Int csrc ); /* lapack */ void zlacpy_(); /* aux fonctions */ diff --git a/REDIST/TESTING/pztrmrdrv.c b/REDIST/TESTING/pztrmrdrv.c index e327fc9b..40a26d98 100644 --- a/REDIST/TESTING/pztrmrdrv.c +++ b/REDIST/TESTING/pztrmrdrv.c @@ -105,9 +105,6 @@ typedef struct { #define realloc myrealloc #endif /* Cblacs */ -extern void Cblacs_pcoord( Int context, Int pnum, Int* prow, Int* pcol ); -extern Int Cblacs_pnum( Int context, Int prow, Int pcol ); -extern void Csetpvmtids(); extern void Cblacs_get( Int context, Int what, Int* val ); extern void Cblacs_pinfo( Int* mypnum, Int* nprocs ); extern void Cblacs_gridinfo( Int context, Int* nprow, Int* npcol, Int* myrow, Int* mycol ); @@ -117,13 +114,7 @@ extern void Cblacs_gridexit( Int context ); extern void Cblacs_setup( Int* mypnum, Int* nprocs ); extern void Cigebs2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda ); extern void Cigebr2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); -extern void Cigesd2d( Int context, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); -extern void Cigerv2d( Int context, Int m, Int n, Int* A, Int lda, Int rsrc, Int csrc ); extern void Cigsum2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int rdest, Int cdest ); -extern void Cigamn2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); -extern void Cigamx2d( Int context, char* scope, char* top, Int m, Int n, Int* A, Int lda, Int* RA, Int* CA, Int rcflag, Int rdest, Int cdest ); -extern void Czgesd2d( Int context, Int m, Int n, dcomplex* A, Int lda, Int rdest, Int cdest ); -extern void Czgerv2d( Int context, Int m, Int n, dcomplex* A, Int lda, Int rsrc, Int csrc ); /* lapack */ void zlacpy_(); /* aux fonctions */ From 1e683fe0b6f6c680af23f2f237c0262bf8608efe Mon Sep 17 00:00:00 2001 From: adam-sim-dev <76020022+adam-sim-dev@users.noreply.github.com> Date: Wed, 21 Jan 2026 11:14:31 +0800 Subject: [PATCH 30/30] Remove the blank line --- TOOLS/SL_gridreshape.c | 1 - 1 file changed, 1 deletion(-) diff --git a/TOOLS/SL_gridreshape.c b/TOOLS/SL_gridreshape.c index cb0c6aba..3b95f977 100644 --- a/TOOLS/SL_gridreshape.c +++ b/TOOLS/SL_gridreshape.c @@ -11,7 +11,6 @@ Int SL_Cgridreshape(Int ctxt, Int pstart, Int row_major_in, Int row_major_out, I void Cblacs_abort( Int ConTxt, Int ErrNo ); void Cblacs_get( Int context, Int what, Int * val ); void Cblacs_gridmap( Int* context, Int* usermap, Int ldumap, Int nprow, Int npcol ); - Int Cblacs_pnum( Int context, Int prow, Int pcol ); Int nctxt, P0, Q0, Np, i, *g;