1 /* ******************************************************
 2    *                                                    *
 3    *                                                    *
 4    * Copyright (c) 1972 by Massachusetts Institute of   *
 5    * Technology and Honeywell Information Systems, Inc. *
 6    *                                                    *
 7    *                                                    *
 8    ****************************************************** */
 9 
10 dxp2_: procedure (base, exponent) returns (float binary (63));
11 
12 /*     compute base ** exponent for double-precision floating-point numbers     */
13 declare (base, exponent) float binary (63);
14 
15           return(base ** exponent);
16           end;