ROUND(3F)							     ROUND(3F)

NAME    [Toc]    [Back]

     round: anint, dnint, qnint, nint, inint, jnint, idnint, iqnint, iidnnt,
     jidnnt, iiqnnt, jiqnnt, kiqnnt - FORTRAN nearest integer functions

SYNOPSIS    [Toc]    [Back]

     integer i
     integer*2 ii
     integer*4 ji
     integer*8 ki
     real r1, r2
     real*4 r3
     double precision dp1, dp2
     real*16 qp1, qp2
     real*8 dp3
     real*16 qp3

     r2	= anint(r1)

     dp2 = dnint(dp1)
     dp2 = anint(dp1)

     qp2 = qnint(qp1)
     qp2 = anint(qp1)

     i = nint(r2)

     ii	= inint(r3)
     ii	= nint(r3)

     ji	= jnint(r3)
     ji	= nint(r3)

     i = idnint(dp1)
     i = nint(dp1)

     ii	= iidnnt(dp3)
     ji	= jidnnt(dp3)

     i = iqnint(qp1)
     i = nint(qp1)

     ii	= iiqnnt(qp3)
     ji	= jiqnnt(qp3)
     ki	= kiqnnt(qp3)

DESCRIPTION    [Toc]    [Back]

     anint returns the nearest whole real number to its	real argument (i.e.,
     int(a+0.5)	if a > 0, int(a-0.5) otherwise).  dnint	does the same for its
     double-precision argument,	qnint does the same for	its real*16 argument.
     anint is the generic form of anint, dnint,	and qnint, performing the same
     operation and returning the data type of its argument.




									Page 1






ROUND(3F)							     ROUND(3F)



     nint returns the nearest integer to its real argument.  inint returns the
     nearest integer*2 to its real*4 argument.	jnint returns the nearest
     integer*4 to its real*4 argument.	idnint returns the nearest integer to
     its double	precision argument.  iqnint returns the	nearest	integer	to its
     real*16 argument.	nint is	the generic form of inint, jnint, idnint and
     iqnint. idnint is also the	generic	form for iidnnt, which returns the
     nearest integer*2 to its real*8 argument, and jidnnt, which returns the
     nearest integer*4 to its real*8 argument.	iqnint is also the generic
     form for iiqnnt, which returns the	nearest	integer*2 to its real*16
     argument, jiqnnt, which returns the nearest integer*4 to its real*16
     argument, and kiqnnt, which returns the nearest integer*8 to its real*16
     argument.	When nint, idnint, or iqnint is	specified as an	argument in a
     subroutine	call or	function reference, the	compiler supplies either an
     integer*2,	integer*4, or integer*8	function depending on the -i2 command
     line option.


									PPPPaaaaggggeeee 2222