1 /* ******************************************************
 2    *                                                    *
 3    *                                                    *
 4    * Copyright (c) 1972 by Massachusetts Institute of   *
 5    * Technology and Honeywell Information Systems, Inc. *
 6    *                                                    *
 7    *                                                    *
 8    ****************************************************** */
 9 
10 xp22_:    procedure (base, exponent) returns (float binary (27));
11 
12 declare base float binary (27),
13          f float binary (63),
14          exponent fixed binary (71);
15 
16 dcl  round builtin;
17 
18           f = base;
19           return (round(f ** exponent, 28));
20      end xp22_;