PB_topset_.c File Reference

#include "../pblas.h"
#include "../PBpblas.h"
#include "../PBtools.h"
#include "../PBblacs.h"
#include "../PBblas.h"

Go to the source code of this file.

Functions
void	PB_topset_ (Int *ICTXT, F_CHAR_T OP, F_CHAR_T SCOPE, F_CHAR_T TOP)

Function Documentation

PB_topset_()

void PB_topset_	(	Int *	ICTXT,
		F_CHAR_T	OP,
		F_CHAR_T	SCOPE,
		F_CHAR_T	TOP )

Definition at line 22 of file PB_topset_.c.

{
/*
*  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_
*/
}