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;