HP 3000 Manuals

Compiler Library/XL Reference Manual

DSIGN (or DSIGN') 

DSIGN calculates the absolute value of the first longreal number and
gives the number the sign of the second longreal number.

Declaration 

        FUNCTION DSIGN(x,y:LONGREAL):LONGREAL; EXTERNAL;

Attributes 

Parameters:               Both arguments are longreal numbers; if the
                          second number is zero, the sign is assumed to
                          be positive.

Result:                   A longreal number.

HP FORTRAN 77/XL:         Intrinsic function:  Z=DSIGN(X,Y).

Error:                    If either of the arguments is a NaN, there are
                          two possible actions.  If the INVALID trap is
                          enabled, the message "SIGN FUNCTION: ANY
                          ARGUMENT=NaN" occurs.  Otherwise, the INVALID
                          flag is set.  In either case, a quiet NaN is
                          returned.

MPE/iX 5.0 Documentation