#include "Bdef.h"

#if (INTFACE == C_CALL)
void Cblacs_barrier(ConTxt, scope)
int  ConTxt;
char  *scope;
#else
void blacs_barrier_(ConTxt, scope)
int  *ConTxt;
char  *scope;
#endif
{
   void igpk4op();
   void igupk4op();
   void igupk_sum();
   void tree_comb();

   MATINFO MatInf;
   BLACSCONTEXT *ctxt;
   int i=0;

   MGetConTxt(Mpval(ConTxt), ctxt);
   MatInf.M = MatInf.N = MatInf.lda = MatInf.ldb = 1;
   MatInf.A = (char *) &i;
/*
 * Perform bone-headed, but safe, barrier.
 */
   tree_comb(ctxt, Mlowcase(*scope), 2, &MatInf, (char *) &MatInf.ldb, -1, 0,
             igpk4op, igupk4op, igupk_sum);
}
