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_;