1 /* ******************************************************
 2    *                                                    *
 3    *                                                    *
 4    * Copyright (c) 1972 by Massachusetts Institute of   *
 5    * Technology and Honeywell Information Systems, Inc. *
 6    *                                                    *
 7    *                                                    *
 8    ****************************************************** */
 9 
10 atan2_: procedure (value1, value2) returns (float binary (27));
11 
12 /*      compute the arctangent of two single-precision floating-point numbers   */
13 declare   (value1, value2) float binary (27),
14           (atan, atand) builtin;
15 
16           return(atan(value1, value2));
17 
18 atand2_:  entry(value1, value2) returns(float bin(27));
19           return(atand(value1, value2));
20           end;