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;