GNU Info

(g77-295.info)Sign Intrinsic

---

Next: Signal Intrinsic (subroutine) Prev: Short Intrinsic Up: Table of Intrinsic Functions

---

Enter node , (file) or (file)node

Sign Intrinsic
..............

     Sign(A, B)

Sign: `INTEGER' or `REAL' function, the exact type being the result of
cross-promoting the types of all the arguments.

A: `INTEGER' or `REAL'; scalar; INTENT(IN).

B: `INTEGER' or `REAL'; scalar; INTENT(IN).

Intrinsic groups: (standard FORTRAN 77).

Description:

   Returns `ABS(A)*S', where S is +1 if `B.GE.0', -1 otherwise.

   Note: Abs Intrinsic, for the function that returns the magnitude
of a value.