1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#include "Bdef.h"
/*
* Define global variables
*/
int BI_MaxNCtxt=0; /* Number of context pointers allocated */
int BI_MaxNSysCtxt=0; /* Number of system ctxt ptrs allocated */
int BI_Iam, BI_Np=(-1); /* My pnum, and # of procs in system */
BLACBUFF *BI_ReadyB=NULL; /* buffer that is ready for use */
BLACBUFF *BI_ActiveQ=NULL; /* pointer to start of active buffer queue */
BLACBUFF BI_AuxBuff;
BLACSCONTEXT **BI_MyContxts=NULL; /* Array of pointers to my contexts */
BI_MPI_Comm *BI_SysContxts=NULL;
#ifdef UseF77Mpi
int *BI_F77_MPI_CONSTANTS; /* Array of fortran MPI constants */
#else
BI_MPI_Datatype BI_MPI_COMPLEX, BI_MPI_DOUBLE_COMPLEX;
#endif
int *BI_F77_MPI_COMM_WORLD=NULL;
BI_MPI_Status *BI_Stats=NULL;
|
