Compiler Library/XL Reference Manual (32650-90029)

2- 6
Attributes
Parameter: A complex number.
Result: A complex number.
HP FORTRAN 77/XL: Callable as a system intrinsic: Y=CCOSH(X).
Error: See the SIN, COS, COSH, and SINH error
descriptions.
CEXP (or CEXP')
CEXP calculates ex , where x is a complex number.
Declaration
Complex numbers in HP FORTRAN 77/XL programs are represented as an
ordered pair of real numbers: one for the real part a and one for the
imaginary part b . Thus, complex numbers occupy eight bytes.
TYPE complex=RECORD
realpart:REAL;
imagpart:REAL;
END;
FUNCTION CEXP(VAR x:complex):complex; EXTERNAL;
Accuracy
Depends on the accuracy of SIN, COS, and EXP.
Attributes
Parameter: Any complex number representable in two
representable real numbers: one for the real
part a and one for the imaginary part b; a must
be in the range [-87.3366, 88.7228]. See
Chapter 1 for details on the internal
representation of real numbers.
Result: A complex number.
HP FORTRAN 77/XL: Intrinsic function: Y=CEXP(X).
Error: See the SIN, COS, and EXP error descriptions.
CINVERT
CINVERT inverts a square matrix containing complex elements represented
as an ordered pair of real elements: one for the real part a and one for
the imaginary part b . The resulting inverse is stored over the input
matrix.
Declaration
TYPE complex=RECORD
realpart:REAL;
imagpart:REAL;
END;
complex_matx=ARRAY[1..N, 1..N] OF complex;
PROCEDURE CINVERT (VAR N:SHORTINT; ANYVAR A:complex_matx;
VAR D:SHORTINT); EXTERNAL;
Attributes
Parameters: N is an integer for the order of the matrix; A