Cpigemr2do() [2/2]

void Cpigemr2do	(	Int	m,
		Int	n,
		Int *	ptrmyblock,
		Int	ia,
		Int	ja,
		MDESC *	ma,
		Int *	ptrmynewblock,
		Int	ib,
		Int	jb,
		MDESC *	mb
	)

Definition at line 265 of file pigemr.c.

{
  Int   dummy, nprocs;
  Int   gcontext;
  /* first we initialize a global grid which serve as a reference to
   * communicate from grid a to grid b */
  Cblacs_pinfo(&dummy, &nprocs);
  Cblacs_get((Int)0, (Int)0, &gcontext);
  Cblacs_gridinit(&gcontext, "R", (Int)1, nprocs);
  Cpigemr2d(m, n, ptrmyblock, ia, ja, ma,
            ptrmynewblock, ib, jb, mb, gcontext);
  Cblacs_gridexit(gcontext);
}

Here is the call graph for this function: