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;