1 /* ******************************************************
 2    *                                                    *
 3    *                                                    *
 4    * Copyright (c) 1972 by Massachusetts Institute of   *
 5    * Technology and Honeywell Information Systems, Inc. *
 6    *                                                    *
 7    *                                                    *
 8    ****************************************************** */
 9 
10 /* calls to round_ removed on 07/16/73 by A. Downing */
11 dexp_: procedure (number) returns (float binary (63));
12 
13 /*     compute the exponential of a double-precision floating-point number    */
14 declare (number) float binary (63),
15           exp builtin;
16 
17           return(exp(number));
18           end;