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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
/* ---------------------------------------------------------------------
*
* -- PBLAS routine (version 2.0) --
* University of Tennessee, Knoxville, Oak Ridge National Laboratory,
* and University of California, Berkeley.
* April 1, 1998
*
* ---------------------------------------------------------------------
*/
/*
* Include files
*/
#include "../pblas.h"
#include "../PBpblas.h"
#include "../PBtools.h"
#include "../PBblacs.h"
#include "../PBblas.h"
#ifdef __STDC__
void PB_topset_( int * ICTXT, F_CHAR_T OP, F_CHAR_T SCOPE, F_CHAR_T TOP )
#else
void PB_topset_( ICTXT, OP, SCOPE, TOP )
/*
* .. Scalar Arguments ..
*/
int * ICTXT;
/*
* .. Array Arguments ..
*/
F_CHAR_T OP, SCOPE, TOP;
#endif
{
/*
* Purpose
* =======
*
* PB_topset_ initializes the row-, column- or all- broadcast and combi-
* ne topologies.
*
* Arguments
* =========
*
* ICTXT (local input) INTEGER
* On entry, ICTXT specifies the BLACS context handle, indica-
* ting the global context of the operation. The context itself
* is global, but the value of ICTXT is local.
*
* OP (global input) pointer to CHAR
* On input, OP specifies the BLACS operation defined as fol-
* lows:
* OP = 'B' or 'b', BLACS broadcast operation,
* OP = 'C' or 'c', BLACS combine operation.
*
* SCOPE (global input) pointer to CHAR
* On entry, SCOPE specifies the scope of the BLACS operation as
* follows:
* SCOPE = 'R' or 'r', rowwise broadcast or combine,
* SCOPE = 'C' or 'c', column broadcast or combine,
* SCOPE = 'A' or 'a', all broadcast or combine.
*
* TOP (global input) pointer to CHAR
* On entry, TOP is a character string specifying the BLACS to-
* pology to be used i.e. to be set for the given operation
* specified by OP and SCOPE.
*
* -- Written on April 1, 1998 by
* Antoine Petitet, University of Tennessee, Knoxville 37996, USA.
*
* ---------------------------------------------------------------------
*/
/* ..
* .. Executable Statements ..
*
*/
if( * F2C_CHAR( TOP ) != '!' )
(void) PB_Ctop( ICTXT, F2C_CHAR( OP ), F2C_CHAR( SCOPE ),
F2C_CHAR( TOP ) );
/*
* End of PB_topset_
*/
}
|
