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 by A. downing 07/16/73 */
11 cabs_: proc (number) returns (float bin (27));
12 
13 declare   number complex float bin (27),
14           abs builtin;
15 
16           return(abs(number));
17           end;