Compiler Library/XL Reference Manual (32650-90029)

2- 13
See Chapter 1 for details on the internal
representation of longreal numbers.
HP FORTRAN 77/XL: Intrinsic function: Z=DATAN2(X,Y)
Error: If either of the arguments is a NaN or if both
arguments are zero or infinity, there are two
possible actions. If the INVALID trap is
enabled, the message "DATAN2(X,Y): X=Y=0.0 OR
X=Y=INFINITY OR ANY OF X AND Y=NaN" occurs.
Otherwise, the INVALID flag is set. In either
case, a quiet NaN is returned.
See Appendix A for more details.
DCMP
DCMP compares two integer numbers.
Declaration
FUNCTION DCMP(VAR d1,d2:INTEGER):INTEGER; EXTERNAL;
Attributes
Parameters: Both arguments are integer numbers.
Result:
-1 if D1 < D2
0 if D1 = D2
1 if D1 > D2
HP FORTRAN 77/XL: Callable as a system intrinsic: I = DCMP(J,K).
For example, the arithmetic IF statement
IF(I) 10,20,30
directs the program as follows:
go to statement 10 if X < Y
go to statement 20 if X = Y
go to statement 30 if X > Y
Error: None.
DCOS (or DCOS')
DCOS calculates the cosine of a longreal number in radians.
Declaration
FUNCTION DCOS(VAR x:LONGREAL):LONGREAL; EXTERNAL;
Accuracy
Attributes
Parameter: A longreal number in radians.