SIGN(3F)							      SIGN(3F)

NAME    [Toc]    [Back]

     sign, isign, iisign, jisign, dsign, qsign - FORTRAN transfer-of-sign
     intrinsic function

SYNOPSIS    [Toc]    [Back]

     integer i,	j, k
     integer*2 ii1, ii2, ii3
     integer*4 ji1, ji2, ji3
     real r1, r2, r3
     double precision dp1, dp2,	dp3
     real*16 qp1, qp2, qp3

     k = isign(i, j)
     k = sign(i, j)

     ii3 = iisign(ii1, ii2)
     ii3 = sign(ii1, ii2)

     ji3 = jisign(ji1, ji2)
     ji3 = sign(ji1, ji2)

     r3	= sign(r1, r2)

     dp3 = dsign(dp1, dp2)
     dp3 = sign(dp1, dp2)

     qp3 = qsign(qp1, qp2)
     qp3 = sign(qp1, qp2)

DESCRIPTION    [Toc]    [Back]

     isign returns the magnitude of its	first argument with the	sign of	its
     second argument.  It accepts either integer*2 or integer*4	arguments and
     the result	is the same type.  iisign and jisign take integer*2 and
     integer*4 arguments, respectively.	 sign, dsign, and qsign	are isign's
     real, double-precision, and real*16 counterparts, respectively.  If the
     value of the first	argument of isign, sign, dsign,	or qsign is zero, the
     result is zero.  The generic version is sign and will devolve to the
     appropriate type depending	on its arguments.


									PPPPaaaaggggeeee 1111