Compiler Library/XL Reference Manual (32650-90029)

2- 16
Special Values
dexp (+Infinity) = +Infinity
dexp (-Infinity) = 0
DFIX (or DFIX')
DFIX truncates a longreal number to an integer number.
Declaration
FUNCTION DFIX(x:LONGREAL):INTEGER; EXTERNAL;
Attributes
Parameter: A longreal number.
Result: An integer number.
HP FORTRAN 77/XL: Callable as a system intrinsic:
I = DFIX(X)
Error: If traps are enabled and if the truncated
longreal number cannot be represented in the
two words of the integer, the arithmetic trap
INTEGER OVERFLOW occurs.
DFLOAT (or DFLOAT')
DFLOAT converts an integer number to a longreal number.
Declaration
FUNCTION DFLOAT(x:INTEGER):LONGREAL; EXTERNAL;
Attributes
Parameter: An integer number.
Result: A longreal number.
HP FORTRAN 77/XL: Intrinsic function:
I = DFLOAT(J)
Error: None.
DINVERT
DINVERT inverts a square matrix containing longreal numbers; the
resulting inverse is stored over the input matrix.
Declaration
TYPE longreal_matx=ARRAY[1..N, 1..N] OF longreal;
PROCEDURE DINVERT(n:SHORTINT; ANYVAR a:LONGREAL_matx;
VAR d:SHORTINT); EXTERNAL;
Attributes
Parameters: n is an integer for the order of the matrix; a
is a longreal identifier of the matrix for d,
an integer identifier.
Result: DINVERT replaces the input matrix. d is equal