Cpztrmr2do() [2/2]

void Cpztrmr2do	(	char *	uplo,
		char *	diag,
		Int	m,
		Int	n,
		dcomplex *	ptrmyblock,
		Int	ia,
		Int	ja,
		MDESC *	ma,
		dcomplex *	ptrmynewblock,
		Int	ib,
		Int	jb,
		MDESC *	mb
	)

Definition at line 283 of file pztrmr.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);
  Cpztrmr2d(uplo, diag, m, n, ptrmyblock, ia, ja, ma,
            ptrmynewblock, ib, jb, mb, gcontext);
  Cblacs_gridexit(gcontext);
}

Here is the call graph for this function: