1 /* ******************************************************
 2    *                                                    *
 3    *                                                    *
 4    * Copyright (c) 1972 by Massachusetts Institute of   *
 5    * Technology and Honeywell Information Systems, Inc. *
 6    *                                                    *
 7    *                                                    *
 8    ****************************************************** */
 9 
10 cxp2_: proc (base, exponent) returns (complex float bin (27));
11 
12 dcl (base, exponent) complex float bin (27),
13     (a, b) complex float bin (63);
14 
15           a = base;
16           b = exponent;
17           return (a ** b);
18 
19      end cxp2_;