ScaLAPACK 2.1  2.1
ScaLAPACK: Scalable Linear Algebra PACKage
BI_GetMpiGeType.c
Go to the documentation of this file.
1 #include "Bdef.h"
2 MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *ctxt, int m, int n, int lda,
3  MPI_Datatype Dtype, int *N)
4 {
5  int info;
6  MPI_Datatype GeType;
7 
8 /*
9  * Some versions of mpich and its derivitives cannot handle 0 byte typedefs,
10  * so we set type MPI_BYTE as a flag for a 0 byte message
11  */
12 #ifdef ZeroByteTypeBug
13  if ( (m < 1) || (n < 1) )
14  {
15  *N = 0;
16  return (MPI_BYTE);
17  }
18 #endif
19  *N = 1;
20  info=MPI_Type_vector(n, m, lda, Dtype, &GeType);
21  info=MPI_Type_commit(&GeType);
22 
23  return(GeType);
24 }
bLaCsCoNtExT
Definition: Bdef.h:23
Bdef.h
BI_GetMpiGeType
MPI_Datatype BI_GetMpiGeType(BLACSCONTEXT *ctxt, int m, int n, int lda, MPI_Datatype Dtype, int *N)
Definition: BI_GetMpiGeType.c:2