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;