ScaLAPACK 2.1  2.1 ScaLAPACK: Scalable Linear Algebra PACKage
PB_topget_.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_topget_( int * ICTXT, F_CHAR_T OP, F_CHAR_T SCOPE, F_CHAR_T TOP )
21 #else
22 void PB_topget_( 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_topget_ returns the row, column or all broadcast and combine topo-
38 * logies.
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 output) pointer to CHAR
62 * On exit, TOP is a character string specifying the BLACS to-
63 * pology current in use for the given operation specified by OP
64 * and SCOPE.
65 *
66 * -- Written on April 1, 1998 by
67 * Antoine Petitet, University of Tennessee, Knoxville 37996, USA.
68 *
69 * ---------------------------------------------------------------------
70 */
71 /*
72 * .. Local Scalars ..
73 */
74  char * topc;
75 /* ..
76 * .. Executable Statements ..
77 *
78 */
79  topc = F2C_CHAR( TOP );
80  *topc = *PB_Ctop( ICTXT, F2C_CHAR( OP ), F2C_CHAR( SCOPE ), TOP_GET );
81  TOP = C2F_CHAR( topc );
82 /*
83 * End of PB_topget_
84 */
85 }
F_CHAR_T
char * F_CHAR_T
Definition: pblas.h:118
F2C_CHAR
#define F2C_CHAR(a)
Definition: pblas.h:120
TOP_GET
#define TOP_GET
Definition: PBblacs.h:50
PB_Ctop
char * PB_Ctop()
PB_topget_
void PB_topget_(int *ICTXT, F_CHAR_T OP, F_CHAR_T SCOPE, F_CHAR_T TOP)
Definition: PB_topget_.c:22
C2F_CHAR
#define C2F_CHAR(a)
Definition: pblas.h:121