Compiler Library/XL Reference Manual (32650-90029)

2- 23
Attributes
Parameter: A representable real number in the range
[-32768.0, 32767.0]. See Chapter 1 for details
on the internal representation of real numbers.
Result: An integer number.
HP FORTRAN 77/XL: Intrinsic function: I=IFIX(X).
Error: If traps are enabled and if the real number is
outside the range stated, the arithmetic trap
INTEGER OVERFLOW occurs.
INT (or INT')
INT truncates a real number to a shortint number.
Declaration
FUNCTION INT(x:REAL):SHORTINT; EXTERNAL;
Attributes
Parameter: A representable real number in the range
[-32768.0, 32767.0]. See Chapter 1 for details
on the internal representation of real numbers.
Result: An integer number.
HP FORTRAN 77/XL: Intrinsic function: I=INT(X).
Error: If traps are enabled and if the real number is
outside the range stated, the arithmetic trap
INTEGER OVERFLOW occurs.
INVERT
INVERT inverts a square matrix containing real numbers; the resulting
inverse is stored over the input matrix.
Declaration
TYPE real_matx=ARRAY[1..N, 1..N] OF real;
PROCEDURE INVERT(n:SHORTINT; ANYVAR a:REAL_matx;
VAR d:SHORTINT); EXTERNAL;
Attributes
Parameters: For n, an integer for the order of the matrix;
for a, a real identifier of the matrix; for d,
an integer identifier.
Result: INVERT replaces the original matrix, and d is
equal to one if the matrix is non-singular or
zero if the matrix is singular and no inverse
exists.
HP FORTRAN 77/XL: Callable as a system intrinsic:
CALL INVERT(n, a, d)
Error: None.
ISIGN (or ISIGN')
ISIGN calculates the absolute value of a shortint number and gives the