localsize() [2/2]

Int localsize	(	Int	myprow,
		Int	p,
		Int	nbrow,
		Int	m
	)

Definition at line 145 of file pgemraux.c.

{
  Int   templateheight, blockheight;
  templateheight = p * nbrow;
  if (m % templateheight != 0) {        /* not an exact boundary */
    if ((m % templateheight) > (nbrow * myprow)) {      /* processor
                                                         * (myprow,mypcol) has
                                                         * some elements in that
                                                         * incomplete template */
      if ((m % templateheight) >= (nbrow * (myprow + 1))) {     /* processor
                                                                 * (myprow,mypcol)'s
                                                                 * part is complete */
        blockheight = (m / templateheight) * nbrow + nbrow;
      } else {  /* processor (myprow,mypcol)'s part is not complete */
        blockheight = (m / templateheight) * nbrow + (m % nbrow);
      };        /* if ((m%templateheight) > (nbrow*(myprow+1))) */
    } else {    /* processor (myprow,mypcol) has no element in that
                 * incomplete template */
      blockheight = (m / templateheight) * nbrow;
    };  /* if ((m%templateheight) > (nbrow*myprow)) */
  } else {      /* exact boundary */
    blockheight = m / p;        /* (m/templateheight) * nbrow */
  };    /* if (m%templateheight !=0) */
  return blockheight;
}