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
|
#include "tools.h"
/* ---------------------------------------------------------------------
*
* -- PBLAS routine (version 1.5) --
* University of Tennessee, Knoxville, Oak Ridge National Laboratory,
* and University of California, Berkeley.
* March 17, 1995
*
* ---------------------------------------------------------------------
*/
void pbfreebuf_()
{
/*
* Purpose
* =======
*
* pbfreebuf_ disposes the buffer allocated for the PBLAS routines.
*
* ======================================================================
*
* .. External Functions ..
*/
char * getpbbuf();
/* ..
* .. Executable Statements ..
*/
getpbbuf( " ", -1 ); /* free PBLAS buffer */
}
|
