1 /* ******************************************************
 2    *                                                    *
 3    *                                                    *
 4    * Copyright (c) 1972 by Massachusetts Institute of   *
 5    * Technology and Honeywell Information Systems, Inc. *
 6    *                                                    *
 7    *                                                    *
 8    ****************************************************** */
 9 
10 dsin_: procedure (number) returns (float binary (63));
11 
12 /*     compute the sine or cosine of a double-precision floating-point number     */
13 declare number float binary (63),
14           (cos, cosd, sin, sind) builtin;
15 
16           return(sin(number));
17 
18 dcos_:    entry(number) returns(float bin(63));
19           return(cos(number));
20 
21 dsind_:   entry(number) returns(float bin(63));
22           return(sind(number));
23 
24 dcosd_:   entry(number) returns(float bin(63));
25           return(cosd(number));
26           end;