1 /* ******************************************************
 2    *                                                    *
 3    *                                                    *
 4    * Copyright (c) 1972 by Massachusetts Institute of   *
 5    * Technology and Honeywell Information Systems, Inc. *
 6    *                                                    *
 7    *                                                    *
 8    ****************************************************** */
 9 
10 /* modified by A. Downing to use round builtin function 07/16/73 */
11 
12 xp3_: procedure (base, exponent) returns (float binary (27));
13 
14 /*    compute base ** exponent for single-precision floating-point numbers    */
15 declare base float binary (27),
16          exponent float binary (27);
17 
18           return(base ** exponent);
19           end;