Skip to content

Use MPI_Count for MpiInt only when appropriate #149

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 18 commits into
base: master
Choose a base branch
from
Open

Use MPI_Count for MpiInt only when appropriate #149

Show file tree
Hide file tree
Changes from 7 commits
Commits
Show all changes
18 commits
Select commit Hold shift + click to select a range
ae518aa
starting point to discuss the idea
Oct 20, 2025
9c8e2b0
prioritize BigMPI and add some comments
Oct 20, 2025
f95b1e3
Making sure the BLACBUFF data structure uses the appropriate type for…
Nov 3, 2025
79df540
using wrapper in BI_Asend
Nov 3, 2025
2dbfc83
return type for MPI_Error_class is always integer
Nov 3, 2025
2153a19
missing #endif
Nov 3, 2025
7e18b41
using the (newly defined version of) MpiInt in BI_GetMpiGeType in eve…
Nov 3, 2025
1cd8097
using the (newly defined version of) MpiInt in BI_GetMpiTrType in eve…
Nov 3, 2025
1fbc2bd
using wrapper in MPI_Op_create
Nov 3, 2025
4456518
using wrapper in all reduction sums
Nov 3, 2025
f0c759b
using wrapper in MPI_Type_create_struct (not sure about BigMPI for that)
Nov 3, 2025
d956762
using the (newly defined version of) MpiInt in BI_cvvamx and BI_cvvamx2
Nov 3, 2025
593cc57
using the (newly defined version of) MpiInt in BI_ivvamn and BI_ivvamn2
Nov 3, 2025
97fbdb6
removing Int and MpiInt from places where not appropriate for MPI
Nov 3, 2025
dfa031d
wrappers for MPI_Isend
Nov 4, 2025
88e10a6
removing Int and MpiInt from additional places where not appropriate …
Nov 4, 2025
3f885e8
wrapper for MPI_Type_indexed and MpiInt for BI_GetMpiTrType
Nov 4, 2025
51955af
removing Int and MpiInt from BI_TransUserComm where not appropriate f…
Nov 4, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 3 additions & 3 deletions BLACS/SRC/BI_Arecv.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -3,9 +3,9 @@
void BI_Arecv(BLACSCONTEXT *ctxt, Int src, Int msgid, BLACBUFF *bp)
{
Int i, info;
MpiInt errclass;
int errclass;

info=MPI_Irecv(bp->Buff, bp->N, bp->dtype, src, msgid, ctxt->scp->comm,
info=_MPI_Irecv(bp->Buff, bp->N, bp->dtype, src, msgid, ctxt->scp->comm,
&bp->Aops[bp->nAops]);
while(info != MPI_SUCCESS)
{
Expand All @@ -22,7 +22,7 @@ void BI_Arecv(BLACSCONTEXT *ctxt, Int src, Int msgid, BLACBUFF *bp)
"MPI error %d assumed to mean out of non-blocking resources on call to MPI_Irecv",
info);
#endif
info=MPI_Irecv(bp->Buff, bp->N, bp->dtype, src, msgid, ctxt->scp->comm,
info=_MPI_Irecv(bp->Buff, bp->N, bp->dtype, src, msgid, ctxt->scp->comm,
&bp->Aops[bp->nAops]);
}
bp->nAops++;
Expand Down
6 changes: 3 additions & 3 deletions BLACS/SRC/BI_Asend.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -3,9 +3,9 @@
void BI_Asend(BLACSCONTEXT *ctxt, Int dest, Int msgid, BLACBUFF *bp)
{
Int i, info;
MpiInt errclass;
int errclass;

info=MPI_Isend(bp->Buff, bp->N, bp->dtype, dest, msgid, ctxt->scp->comm,
info=_MPI_Isend(bp->Buff, bp->N, bp->dtype, dest, msgid, ctxt->scp->comm,
&bp->Aops[bp->nAops]);
while(info != MPI_SUCCESS)
{
Expand All @@ -22,7 +22,7 @@ void BI_Asend(BLACSCONTEXT *ctxt, Int dest, Int msgid, BLACBUFF *bp)
"MPI error %d assumed to mean out of non-blocking resources on call to MPI_Isend",
info);
#endif
info=MPI_Isend(bp->Buff, bp->N, bp->dtype, dest, msgid, ctxt->scp->comm,
info=_MPI_Isend(bp->Buff, bp->N, bp->dtype, dest, msgid, ctxt->scp->comm,
&bp->Aops[bp->nAops]);
}
bp->nAops++;
Expand Down
2 changes: 1 addition & 1 deletion BLACS/SRC/BI_GetMpiGeType.c
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
#include "Bdef.h"
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *ctxt, Int m, Int n, Int lda,
MPI_Datatype Dtype, Int *N)
MPI_Datatype Dtype, MpiInt *N)
{
Int info;
MPI_Datatype GeType;
Expand Down
40 changes: 38 additions & 2 deletions BLACS/SRC/Bconfig.h
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -21,9 +21,45 @@
#ifndef Int
#define Int int
#endif
#ifndef MpiInt

/* If somebody is building with BigMPI
* give it priority compared to other
* solutions since otherwise they would
* not have bothered to configure BLACS
* with BigMPI
*/
#ifdef BIGMPI
#define MpiInt MPI_Count
inline int _MPI_Irecv(void *buf, MPI_Count count, MPI_Datatype datatype,
int source, int tag, MPI_Comm comm, MPI_Request *request) {
return MPIX_Irecv_x (buf, count, datatype, source, tag, comm, request);
}
#else // no BIGMPI
/* If there is no BigMPI, but there is
* an MPI implementation v4.x use
* that for large tranfers. Caveat:
* there are some incomplete v4.x
* implementations around which will fail.
* Hopefully they will be fixed
* before this goes to production
*/
#if MPI_VERSION==4
#define MpiInt MPI_Count
inline int _MPI_Irecv(void *buf, MPI_Count count, MPI_Datatype datatype,
int source, int tag, MPI_Comm comm, MPI_Request *request) {
return MPI_Irecv_c (buf, count, datatype, source, tag, comm, request);
}
/* Otherwise default to non-big
* transfers
*/
#else // no MPI v4
#define MpiInt int
#endif
inline int _MPI_Irecv(void *buf, int count, MPI_Datatype datatype,
int source, int tag, MPI_Comm comm, MPI_Request *request) {
return MPI_Irecv (buf, count, datatype, source, tag, comm, request);
}
#endif // MPI version
#endif // BIGMPI

/*
* These macros define the naming strategy needed for a fortran
Expand Down
2 changes: 1 addition & 1 deletion BLACS/SRC/Bdef.h
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -58,7 +58,7 @@ struct bLaCbUfF
Int nAops; /* number of asynchronous operations out of buff */
MPI_Request *Aops; /* list of async. operations out of buff */
MPI_Datatype dtype; /* data type of buffer */
Int N; /* number of elements of data type in buff */
MpiInt N; /* number of elements of data type in buff */
BLACBUFF *prev, *next; /* pointer to the other BLACBUFF in queue */
};

Expand Down
4 changes: 1 addition & 3 deletions BLACS/SRC/cgamn2d_.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -86,10 +86,8 @@ F_VOID_FUNC cgamn2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
BLACBUFF *BI_GetBuff(Int);
Int BI_BuffIsFree(BLACBUFF *, Int);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
MPI_Datatype, MpiInt *);
BLACBUFF *BI_Pack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
void BI_Unpack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
void BI_MringComb(BLACSCONTEXT *, BLACBUFF *, BLACBUFF *, Int, VVFUNPTR,
Int, Int);
Expand Down
4 changes: 1 addition & 3 deletions BLACS/SRC/cgamx2d_.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -86,10 +86,8 @@ F_VOID_FUNC cgamx2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
BLACBUFF *BI_GetBuff(Int);
Int BI_BuffIsFree(BLACBUFF *, Int);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
MPI_Datatype, MpiInt *);
BLACBUFF *BI_Pack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
void BI_Unpack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
void BI_MringComb(BLACSCONTEXT *, BLACBUFF *, BLACBUFF *, Int, VVFUNPTR,
Int, Int);
Expand Down
2 changes: 1 addition & 1 deletion BLACS/SRC/cgebr2d_.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -66,7 +66,7 @@ F_VOID_FUNC cgebr2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
BLACBUFF *BI_GetBuff(Int);
Int BI_BuffIsFree(BLACBUFF *, Int);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
MPI_Datatype, MpiInt *);
void BI_Unpack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
void BI_Ssend(BLACSCONTEXT *, Int, Int, BLACBUFF *);
void BI_Asend(BLACSCONTEXT *, Int, Int, BLACBUFF *);
Expand Down
2 changes: 1 addition & 1 deletion BLACS/SRC/cgebs2d_.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -57,7 +57,7 @@ F_VOID_FUNC cgebs2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
BLACBUFF *BI_GetBuff(Int);
Int BI_BuffIsFree(BLACBUFF *, Int);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
MPI_Datatype, MpiInt *);
BLACBUFF *BI_Pack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
void BI_Ssend(BLACSCONTEXT *, Int, Int, BLACBUFF *);
void BI_Asend(BLACSCONTEXT *, Int, Int, BLACBUFF *);
Expand Down
2 changes: 1 addition & 1 deletion BLACS/SRC/cgerv2d_.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -51,7 +51,7 @@ F_VOID_FUNC cgerv2d_(Int *ConTxt, Int *m, Int *n, float *A, Int *lda,
void BI_ArgCheck(Int, Int, char *, char, char, char, Int, Int, Int, Int,
Int *, Int *);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
MPI_Datatype, MpiInt *);
void BI_Unpack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
void BI_Srecv(BLACSCONTEXT *, Int, Int, BLACBUFF *);
void BI_UpdateBuffs(BLACBUFF *);
Expand Down
2 changes: 1 addition & 1 deletion BLACS/SRC/cgesd2d_.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -47,7 +47,7 @@ F_VOID_FUNC cgesd2d_(Int *ConTxt, Int *m, Int *n, float *A, Int *lda,
void BI_ArgCheck(Int, Int, char *, char, char, char, Int, Int, Int, Int,
Int *, Int *);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
MPI_Datatype, MpiInt *);
BLACBUFF *BI_Pack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
void BI_Ssend(BLACSCONTEXT *, Int, Int, BLACBUFF *);
void BI_Asend(BLACSCONTEXT *, Int, Int, BLACBUFF *);
Expand Down
4 changes: 1 addition & 3 deletions BLACS/SRC/cgsum2d_.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -62,10 +62,8 @@ F_VOID_FUNC cgsum2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
BLACBUFF *BI_GetBuff(Int);
Int BI_BuffIsFree(BLACBUFF *, Int);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
MPI_Datatype, MpiInt *);
BLACBUFF *BI_Pack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
void BI_Unpack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
void BI_MringComb(BLACSCONTEXT *, BLACBUFF *, BLACBUFF *, Int, VVFUNPTR,
Int, Int);
Expand Down
4 changes: 1 addition & 3 deletions BLACS/SRC/dgamn2d_.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -86,10 +86,8 @@ F_VOID_FUNC dgamn2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
BLACBUFF *BI_GetBuff(Int);
Int BI_BuffIsFree(BLACBUFF *, Int);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
MPI_Datatype, MpiInt *);
BLACBUFF *BI_Pack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
void BI_Unpack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
void BI_MringComb(BLACSCONTEXT *, BLACBUFF *, BLACBUFF *, Int, VVFUNPTR,
Int, Int);
Expand Down
4 changes: 1 addition & 3 deletions BLACS/SRC/dgamx2d_.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -86,10 +86,8 @@ F_VOID_FUNC dgamx2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
BLACBUFF *BI_GetBuff(Int);
Int BI_BuffIsFree(BLACBUFF *, Int);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
MPI_Datatype, MpiInt *);
BLACBUFF *BI_Pack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
void BI_Unpack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
void BI_MringComb(BLACSCONTEXT *, BLACBUFF *, BLACBUFF *, Int, VVFUNPTR,
Int, Int);
Expand Down
2 changes: 1 addition & 1 deletion BLACS/SRC/dgebr2d_.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -66,7 +66,7 @@ F_VOID_FUNC dgebr2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
BLACBUFF *BI_GetBuff(Int);
Int BI_BuffIsFree(BLACBUFF *, Int);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
MPI_Datatype, MpiInt *);
void BI_Unpack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
void BI_Ssend(BLACSCONTEXT *, Int, Int, BLACBUFF *);
void BI_Asend(BLACSCONTEXT *, Int, Int, BLACBUFF *);
Expand Down
2 changes: 1 addition & 1 deletion BLACS/SRC/dgebs2d_.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -57,7 +57,7 @@ F_VOID_FUNC dgebs2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
BLACBUFF *BI_GetBuff(Int);
Int BI_BuffIsFree(BLACBUFF *, Int);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
MPI_Datatype, MpiInt *);
BLACBUFF *BI_Pack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
void BI_Ssend(BLACSCONTEXT *, Int, Int, BLACBUFF *);
void BI_Asend(BLACSCONTEXT *, Int, Int, BLACBUFF *);
Expand Down
2 changes: 1 addition & 1 deletion BLACS/SRC/dgerv2d_.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -51,7 +51,7 @@ F_VOID_FUNC dgerv2d_(Int *ConTxt, Int *m, Int *n, double *A, Int *lda,
void BI_ArgCheck(Int, Int, char *, char, char, char, Int, Int, Int, Int,
Int *, Int *);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
MPI_Datatype, MpiInt *);
void BI_Unpack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
void BI_Srecv(BLACSCONTEXT *, Int, Int, BLACBUFF *);
void BI_UpdateBuffs(BLACBUFF *);
Expand Down
2 changes: 1 addition & 1 deletion BLACS/SRC/dgesd2d_.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -48,7 +48,7 @@ F_VOID_FUNC dgesd2d_(Int *ConTxt, Int *m, Int *n, double *A, Int *lda,
void BI_ArgCheck(Int, Int, char *, char, char, char, Int, Int, Int, Int,
Int *, Int *);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
MPI_Datatype, MpiInt *);
BLACBUFF *BI_Pack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
void BI_Ssend(BLACSCONTEXT *, Int, Int, BLACBUFF *);
void BI_Asend(BLACSCONTEXT *, Int, Int, BLACBUFF *);
Expand Down
4 changes: 1 addition & 3 deletions BLACS/SRC/dgsum2d_.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -62,10 +62,8 @@ F_VOID_FUNC dgsum2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
BLACBUFF *BI_GetBuff(Int);
Int BI_BuffIsFree(BLACBUFF *, Int);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
MPI_Datatype, MpiInt *);
BLACBUFF *BI_Pack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
void BI_Unpack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
void BI_MringComb(BLACSCONTEXT *, BLACBUFF *, BLACBUFF *, Int, VVFUNPTR,
Int, Int);
Expand Down
4 changes: 1 addition & 3 deletions BLACS/SRC/igamn2d_.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -84,10 +84,8 @@ F_VOID_FUNC igamn2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
BLACBUFF *BI_GetBuff(Int);
Int BI_BuffIsFree(BLACBUFF *, Int);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
MPI_Datatype, MpiInt *);
BLACBUFF *BI_Pack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
void BI_Unpack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
void BI_MringComb(BLACSCONTEXT *, BLACBUFF *, BLACBUFF *, Int, VVFUNPTR,
Int, Int);
Expand Down
4 changes: 1 addition & 3 deletions BLACS/SRC/igamx2d_.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -84,10 +84,8 @@ F_VOID_FUNC igamx2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
BLACBUFF *BI_GetBuff(Int);
Int BI_BuffIsFree(BLACBUFF *, Int);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
MPI_Datatype, MpiInt *);
BLACBUFF *BI_Pack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
void BI_Unpack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
void BI_MringComb(BLACSCONTEXT *, BLACBUFF *, BLACBUFF *, Int, VVFUNPTR,
Int, Int);
Expand Down
2 changes: 1 addition & 1 deletion BLACS/SRC/igebr2d_.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -66,7 +66,7 @@ F_VOID_FUNC igebr2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
BLACBUFF *BI_GetBuff(Int);
Int BI_BuffIsFree(BLACBUFF *, Int);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
MPI_Datatype, MpiInt *);
void BI_Unpack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
void BI_Ssend(BLACSCONTEXT *, Int, Int, BLACBUFF *);
void BI_Asend(BLACSCONTEXT *, Int, Int, BLACBUFF *);
Expand Down
2 changes: 1 addition & 1 deletion BLACS/SRC/igebs2d_.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -57,7 +57,7 @@ F_VOID_FUNC igebs2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
BLACBUFF *BI_GetBuff(Int);
Int BI_BuffIsFree(BLACBUFF *, Int);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
MPI_Datatype, MpiInt *);
BLACBUFF *BI_Pack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
void BI_Ssend(BLACSCONTEXT *, Int, Int, BLACBUFF *);
void BI_Asend(BLACSCONTEXT *, Int, Int, BLACBUFF *);
Expand Down
2 changes: 1 addition & 1 deletion BLACS/SRC/igerv2d_.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -51,7 +51,7 @@ F_VOID_FUNC igerv2d_(Int *ConTxt, Int *m, Int *n, Int *A, Int *lda,
void BI_ArgCheck(Int, Int, char *, char, char, char, Int, Int, Int, Int,
Int *, Int *);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
MPI_Datatype, MpiInt *);
void BI_Unpack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
void BI_Srecv(BLACSCONTEXT *, Int, Int, BLACBUFF *);
void BI_UpdateBuffs(BLACBUFF *);
Expand Down
2 changes: 1 addition & 1 deletion BLACS/SRC/igesd2d_.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -47,7 +47,7 @@ F_VOID_FUNC igesd2d_(Int *ConTxt, Int *m, Int *n, Int *A, Int *lda,
void BI_ArgCheck(Int, Int, char *, char, char, char, Int, Int, Int, Int,
Int *, Int *);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
MPI_Datatype, MpiInt *);
BLACBUFF *BI_Pack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
void BI_Ssend(BLACSCONTEXT *, Int, Int, BLACBUFF *);
void BI_Asend(BLACSCONTEXT *, Int, Int, BLACBUFF *);
Expand Down
4 changes: 1 addition & 3 deletions BLACS/SRC/igsum2d_.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -62,10 +62,8 @@ F_VOID_FUNC igsum2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
BLACBUFF *BI_GetBuff(Int);
Int BI_BuffIsFree(BLACBUFF *, Int);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
MPI_Datatype, MpiInt *);
BLACBUFF *BI_Pack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
void BI_Unpack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
void BI_MringComb(BLACSCONTEXT *, BLACBUFF *, BLACBUFF *, Int, VVFUNPTR,
Int, Int);
Expand Down
4 changes: 1 addition & 3 deletions BLACS/SRC/sgamn2d_.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -86,10 +86,8 @@ F_VOID_FUNC sgamn2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
BLACBUFF *BI_GetBuff(Int);
Int BI_BuffIsFree(BLACBUFF *, Int);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
MPI_Datatype, MpiInt *);
BLACBUFF *BI_Pack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
void BI_Unpack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
void BI_MringComb(BLACSCONTEXT *, BLACBUFF *, BLACBUFF *, Int, VVFUNPTR,
Int, Int);
Expand Down
4 changes: 1 addition & 3 deletions BLACS/SRC/sgamx2d_.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -86,10 +86,8 @@ F_VOID_FUNC sgamx2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
BLACBUFF *BI_GetBuff(Int);
Int BI_BuffIsFree(BLACBUFF *, Int);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
MPI_Datatype, MpiInt *);
BLACBUFF *BI_Pack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
void BI_Unpack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
void BI_MringComb(BLACSCONTEXT *, BLACBUFF *, BLACBUFF *, Int, VVFUNPTR,
Int, Int);
Expand Down
2 changes: 1 addition & 1 deletion BLACS/SRC/sgebr2d_.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -66,7 +66,7 @@ F_VOID_FUNC sgebr2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
BLACBUFF *BI_GetBuff(Int);
Int BI_BuffIsFree(BLACBUFF *, Int);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
MPI_Datatype, MpiInt *);
void BI_Unpack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
void BI_Ssend(BLACSCONTEXT *, Int, Int, BLACBUFF *);
void BI_Asend(BLACSCONTEXT *, Int, Int, BLACBUFF *);
Expand Down
2 changes: 1 addition & 1 deletion BLACS/SRC/sgebs2d_.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -57,7 +57,7 @@ F_VOID_FUNC sgebs2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
BLACBUFF *BI_GetBuff(Int);
Int BI_BuffIsFree(BLACBUFF *, Int);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
MPI_Datatype, MpiInt *);
BLACBUFF *BI_Pack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
void BI_Ssend(BLACSCONTEXT *, Int, Int, BLACBUFF *);
void BI_Asend(BLACSCONTEXT *, Int, Int, BLACBUFF *);
Expand Down
2 changes: 1 addition & 1 deletion BLACS/SRC/sgerv2d_.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -51,7 +51,7 @@ F_VOID_FUNC sgerv2d_(Int *ConTxt, Int *m, Int *n, float *A, Int *lda,
void BI_ArgCheck(Int, Int, char *, char, char, char, Int, Int, Int, Int,
Int *, Int *);
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *, Int, Int, Int,
MPI_Datatype, Int *);
MPI_Datatype, MpiInt *);
void BI_Unpack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
void BI_Srecv(BLACSCONTEXT *, Int, Int, BLACBUFF *);
void BI_UpdateBuffs(BLACBUFF *);
Expand Down
Loading
Loading