SL_gridreshape.c File Reference

#include <stdlib.h>
#include <stdio.h>

Go to the source code of this file.

Macros
#define	Int   int

Functions
Int	SL_Cgridreshape (Int ctxt, Int pstart, Int row_major_in, Int row_major_out, Int P, Int Q)
Int	sl_gridreshape_ (Int *ctxt, Int *pstart, Int *row_major_in, Int *row_major_out, Int *P, Int *Q)
Int	SL_GRIDRESHAPE (Int *ctxt, Int *pstart, Int *row_major_in, Int *row_major_out, Int *P, Int *Q)
Int	sl_gridreshape__ (Int *ctxt, Int *pstart, Int *row_major_in, Int *row_major_out, Int *P, Int *Q)
Int	sl_gridreshape (Int *ctxt, Int *pstart, Int *row_major_in, Int *row_major_out, Int *P, Int *Q)

Macro Definition Documentation

Int

#define Int   int

Definition at line 5 of file SL_gridreshape.c.

Function Documentation

SL_Cgridreshape()

Int SL_Cgridreshape	(	Int	ctxt,
		Int	pstart,
		Int	row_major_in,
		Int	row_major_out,
		Int	P,
		Int	Q )

Definition at line 8 of file SL_gridreshape.c.

{
   Int Cblacs_pnum();
   Int nctxt, P0, Q0, Np, i, *g;
 
   Cblacs_gridinfo(ctxt, &P0, &Q0, &i, &Np);
   Np = P * Q;
   if (Np+pstart > P0*Q0)
   {
      fprintf(stderr, "Illegal reshape command in %s\n",__FILE__);
      Cblacs_abort(ctxt, -22);
   }
   g = (Int *) malloc(Np * sizeof(Int));
   if (!g)
   {
      fprintf(stderr, "Cannot allocate memory in %s\n",__FILE__);
      Cblacs_abort(ctxt, -23);
   }
   if (row_major_in)  /* Read in in row-major order */
   {
      if (row_major_out)
     for (i=0; i != Np; i++)
            g[(i%Q)*P+i/Q] = Cblacs_pnum(ctxt, (pstart+i)/Q0, (pstart+i)%Q0);
      else
     for (i=0; i != Np; i++)
            g[i] = Cblacs_pnum(ctxt, (pstart+i)/Q0, (pstart+i)%Q0);
   }
   else /* read in in column-major order */
   {
      if (row_major_out)
     for (i=0; i != Np; i++)
            g[(i%Q)*P+i/Q] = Cblacs_pnum(ctxt, (pstart+i)%P0, (pstart+i)/P0);
      else
     for (i=0; i != Np; i++)
            g[i] = Cblacs_pnum(ctxt, (pstart+i)%P0, (pstart+i)/P0);
   }
   Cblacs_get(ctxt, 10, &nctxt);
   Cblacs_gridmap(&nctxt, g, P, P, Q);
   free(g);
 
   return(nctxt);
}

SL_GRIDRESHAPE()

Int SL_GRIDRESHAPE	(	Int *	ctxt,
		Int *	pstart,
		Int *	row_major_in,
		Int *	row_major_out,
		Int *	P,
		Int *	Q )

Definition at line 57 of file SL_gridreshape.c.

{
   return( SL_Cgridreshape(*ctxt, *pstart, *row_major_in, *row_major_out,
                           *P, *Q) );
}

sl_gridreshape()

Int sl_gridreshape	(	Int *	ctxt,
		Int *	pstart,
		Int *	row_major_in,
		Int *	row_major_out,
		Int *	P,
		Int *	Q )

Definition at line 69 of file SL_gridreshape.c.

{
   return( SL_Cgridreshape(*ctxt, *pstart, *row_major_in, *row_major_out,
                           *P, *Q) );
}

sl_gridreshape_()

Int sl_gridreshape_	(	Int *	ctxt,
		Int *	pstart,
		Int *	row_major_in,
		Int *	row_major_out,
		Int *	P,
		Int *	Q )

Definition at line 51 of file SL_gridreshape.c.

{
   return( SL_Cgridreshape(*ctxt, *pstart, *row_major_in, *row_major_out,
                           *P, *Q) );
}

sl_gridreshape__()

Int sl_gridreshape__	(	Int *	ctxt,
		Int *	pstart,
		Int *	row_major_in,
		Int *	row_major_out,
		Int *	P,
		Int *	Q )

Definition at line 63 of file SL_gridreshape.c.

{
   return( SL_Cgridreshape(*ctxt, *pstart, *row_major_in, *row_major_out,
                           *P, *Q) );
}