Compiler Library/XL Reference Manual (32650-90029)

2- 18
HP FORTRAN 77/XL: Intrinsic function: Z=DMOD(X,Y).
Error: If either of the arguments is a NaN (or the
first argument is infinity or the second
argument is zero), there are two possible
actions. If the INVALID trap is enabled, the
message "DMOD(X,Y): ANY OF X AND Y=NaN OR
X=INFINITY OR Y=0.0" occurs. Otherwise, the
INVALID flag is set. In either case, a quiet
NaN is returned.
DMPY (or DMPY')
DMPY calculates the product of two integer numbers.
Declaration
FUNCTION DMPY(VAR d1,d2:INTEGER):INTEGER; EXTERNAL;
Attributes
Parameters: Both arguments are integer numbers.
Result: An integer number.
HP FORTRAN 77/XL: Callable as a system intrinsic: I = DMPY(J,K)
Error: If traps are enabled and if the result cannot
be represented by an integer number, the
arithmetic trap INTEGER OVERFLOW occurs.
DNEG
DNEG negates an integer number.
Declaration
FUNCTION DNEG(VAR d:INTEGER):INTEGER; EXTERNAL;
Attributes
Parameter: An integer number.
Result: The integer number with the opposite sign.
HP FORTRAN 77/XL: Callable as a system intrinsic: I = DNEG(J)
Error: None.
DREM (or DREM')
DREM calculates the remainder of one integer number divided by another
integer number. See the DDIV procedure for the quotient.
Declaration
FUNCTION DREM(VAR d1,d2:INTEGER):INTEGER; EXTERNAL;
Attributes
Parameters: Both arguments are integer numbers.
Result: An integer number (the remainder only).
HP FORTRAN 77/XL: Callable as a system intrinsic: I=DREM(J,K)
Error: If traps are enabled and if the parameter d2
equals zero, the arithmetic trap INTEGER DIVIDE