safeindex()

integer function safeindex	(	integer	indx,
		integer	size1,
		integer	size2
	)

Definition at line 1516 of file blacstest.f.

*
*     .. Scalar Arguments ..
      INTEGER INDX, SIZE1, SIZE2
*     ..
*
*  If you have an array with elements of SIZE1 bytes, of which you
*  have used INDX-1 elements, returns the index necessary to keep it
*  on a SIZE2 boundary (assuming it was SIZE2 aligned in the first place).
*
*     .. Local scalars ..
      INTEGER I
*     ..
*     .. Executable Statements ..
*
*     Take into account that Fortran starts arrays at 1, not 0
*
      i = indx - 1
   10 CONTINUE
      IF( mod(i*size1, size2) .EQ. 0 ) GOTO 20
         i = i + 1
      GOTO 10
   20 CONTINUE
*
      safeindex = i + 1
*
      RETURN

Here is the call graph for this function:

Here is the caller graph for this function: