ScaLAPACK 2.1  2.1 ScaLAPACK: Scalable Linear Algebra PACKage
PB_topset_.c
Go to the documentation of this file.
1 /* ---------------------------------------------------------------------
2 *
3 * -- PBLAS routine (version 2.0) --
4 * University of Tennessee, Knoxville, Oak Ridge National Laboratory,
5 * and University of California, Berkeley.
6 * April 1, 1998
7 *
8 * ---------------------------------------------------------------------
9 */
10 /*
11 * Include files
12 */
13 #include "../pblas.h"
14 #include "../PBpblas.h"
15 #include "../PBtools.h"
16 #include "../PBblacs.h"
17 #include "../PBblas.h"
18
19 #ifdef __STDC__
20 void PB_topset_( int * ICTXT, F_CHAR_T OP, F_CHAR_T SCOPE, F_CHAR_T TOP )
21 #else
22 void PB_topset_( ICTXT, OP, SCOPE, TOP )
23 /*
24 * .. Scalar Arguments ..
25 */
26  int * ICTXT;
27 /*
28 * .. Array Arguments ..
29 */
30  F_CHAR_T OP, SCOPE, TOP;
31 #endif
32 {
33 /*
34 * Purpose
35 * =======
36 *
37 * PB_topset_ initializes the row-, column- or all- broadcast and combi-
38 * ne topologies.
39 *
40 * Arguments
41 * =========
42 *
43 * ICTXT (local input) INTEGER
44 * On entry, ICTXT specifies the BLACS context handle, indica-
45 * ting the global context of the operation. The context itself
46 * is global, but the value of ICTXT is local.
47 *
48 * OP (global input) pointer to CHAR
49 * On input, OP specifies the BLACS operation defined as fol-
50 * lows:
51 * OP = 'B' or 'b', BLACS broadcast operation,
52 * OP = 'C' or 'c', BLACS combine operation.
53 *
54 * SCOPE (global input) pointer to CHAR
55 * On entry, SCOPE specifies the scope of the BLACS operation as
56 * follows:
57 * SCOPE = 'R' or 'r', rowwise broadcast or combine,
58 * SCOPE = 'C' or 'c', column broadcast or combine,
59 * SCOPE = 'A' or 'a', all broadcast or combine.
60 *
61 * TOP (global input) pointer to CHAR
62 * On entry, TOP is a character string specifying the BLACS to-
63 * pology to be used i.e. to be set for the given operation
64 * specified by OP and SCOPE.
65 *
66 * -- Written on April 1, 1998 by
67 * Antoine Petitet, University of Tennessee, Knoxville 37996, USA.
68 *
69 * ---------------------------------------------------------------------
70 */
71 /* ..
72 * .. Executable Statements ..
73 *
74 */
75  if( * F2C_CHAR( TOP ) != '!' )
76  (void) PB_Ctop( ICTXT, F2C_CHAR( OP ), F2C_CHAR( SCOPE ),
77  F2C_CHAR( TOP ) );
78 /*
79 * End of PB_topset_
80 */
81 }
F_CHAR_T
char * F_CHAR_T
Definition: pblas.h:118
F2C_CHAR
#define F2C_CHAR(a)
Definition: pblas.h:120
PB_Ctop
char * PB_Ctop()
PB_topset_
void PB_topset_(int *ICTXT, F_CHAR_T OP, F_CHAR_T SCOPE, F_CHAR_T TOP)
Definition: PB_topset_.c:22