Cpcgemr2do() [2/2]

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

Definition at line 268 of file pcgemr.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(0, 0, &gcontext);
  Cblacs_gridinit(&gcontext, "R", (Int)1, nprocs);
  Cpcgemr2d(m, n, ptrmyblock, ia, ja, ma,
            ptrmynewblock, ib, jb, mb, gcontext);
  Cblacs_gridexit(gcontext);
}

Here is the call graph for this function: