1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
#include "Bdef.h"
#if (INTFACE == C_CALL)
void Cblacs_exit(Int NotDone)
#else
F_VOID_FUNC blacs_exit_(Int *NotDone)
#endif
{
void Cblacs_gridexit(Int);
void BI_UpdateBuffs(BLACBUFF *);
BLACBUFF *BI_GetBuff(Int);
Int BI_BuffIsFree(BLACBUFF *, Int);
BLACBUFF *bp;
extern BLACBUFF *BI_ReadyB, *BI_ActiveQ, BI_AuxBuff;
extern MPI_Status *BI_Stats;
Int i;
extern Int BI_MaxNCtxt, BI_Np;
extern BLACSCONTEXT **BI_MyContxts;
/*
* Destroy all contexts
*/
for (i=0; i < BI_MaxNCtxt; i++) if (BI_MyContxts[i]) Cblacs_gridexit(i);
free(BI_MyContxts);
if (BI_ReadyB) free(BI_ReadyB);
while (BI_ActiveQ != NULL)
{
bp = BI_ActiveQ;
BI_BuffIsFree(bp, 1); /* wait for async sends to complete */
BI_ActiveQ = bp->next;
free(bp);
}
free (BI_AuxBuff.Aops);
free (BI_Stats);
/*
* Reset parameters to initial values
*/
BI_MaxNCtxt = 0;
BI_MyContxts = NULL;
BI_Np = -1;
if (!Mpval(NotDone))
{
free(BI_COMM_WORLD);
BI_COMM_WORLD = NULL;
MPI_Finalize();
}
BI_ReadyB = NULL;
BI_ActiveQ = NULL;
BI_AuxBuff.Aops = NULL;
BI_Stats = NULL;
}
|
