pb_fceil()

integer function pb_fceil	(	real	num,
		real	denom
	)

Definition at line 2695 of file pblastst.f.

*
*  -- PBLAS test routine (version 2.0) --
*     University of Tennessee, Knoxville, Oak Ridge National Laboratory,
*     and University of California, Berkeley.
*     April 1, 1998
*
*     .. Scalar Arguments ..
      REAL               DENOM, NUM
*     ..
*
*  Purpose
*  =======
*
*  PB_FCEIL  returns  the  ceiling  of the division of two integers. The
*  integer operands are passed as real to avoid integer overflow.
*
*  Arguments
*  =========
*
*  NUM     (local input) REAL
*          On entry, NUM  specifies  the numerator of the fraction to be
*          evaluated.
*
*  DENOM   (local input) REAL
*          On entry, DENOM specifies  the denominator of the fraction to
*          be evaluated.
*
*  -- Written on April 1, 1998 by
*     Antoine Petitet, University  of  Tennessee, Knoxville 37996, USA.
*
*  =====================================================================
*
*     .. Intrinsic Functions ..
      INTRINSIC          nint
*     ..
*     .. Executable Statements ..
*
      pb_fceil = nint( ( ( num + denom - 1.0e+0 ) / denom ) - 0.5e+0 )
*
      RETURN
*
*     End of PB_FCEIL
*

Here is the call graph for this function:

Here is the caller graph for this function: