1 /* ******************************************************
 2    *                                                    *
 3    *                                                    *
 4    * Copyright (c) 1972 by Massachusetts Institute of   *
 5    * Technology and Honeywell Information Systems, Inc. *
 6    *                                                    *
 7    *                                                    *
 8    ****************************************************** */
 9 
10 /* modified 07/16/73 by A. Downing to use round builtin function */
11 
12 sin_: procedure (number) returns (float binary (27));
13 
14 /*    compute the sine or cosine of a single-precision floating-point number     */
15 declare number float binary (27),
16           (cos, cosd, sin, sind) builtin;
17 
18           return(sin(number));
19 
20 cos_: entry (number) returns (float binary (27));
21           return(cos(number));
22 
23 sind_: entry (number) returns (float binary (27));
24           return(sind(number));
25 
26 cosd_: entry (number) returns (float binary (27));
27           return(cosd(number));
28           end;