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
53
54
55
56
57
|
#include "tools.h"
char * getpbbuf( mess, length )
/*
* .. Scalar Arguments ..
*/
int length;
/*
* .. Array Arguments ..
*/
char * mess;
{
/*
* Purpose
* =======
*
* getpbbuf returns a pointer to a working buffer of size length alloca-
* ted for the PBLAS routines.
*
* ======================================================================
*
* .. Local Scalars ..
*/
static char * pblasbuf = NULL;
static int pbbuflen = 0, mone = -1;
/* ..
* .. External Functions ..
*/
void blacs_abort_();
/* ..
* .. Executable Statements ..
*/
if( length >= 0 )
{
if( length > pbbuflen )
{
if( pblasbuf )
free( pblasbuf );
pblasbuf = (char *) malloc((unsigned)length);
if( !pblasbuf )
{
fprintf( stderr,
"PBLAS %s ERROR: Memory allocation failed\n",
mess );
blacs_abort_( &mone, &mone );
}
pbbuflen = length;
}
}
else if( pblasbuf )
{
free( pblasbuf );
pblasbuf = NULL;
pbbuflen = 0;
}
return( pblasbuf );
}
|
