110467Sdlw /* 2*22870Skre * Copyright (c) 1980 Regents of the University of California. 3*22870Skre * All rights reserved. The Berkeley software License Agreement 4*22870Skre * specifies the terms and conditions for redistribution. 5*22870Skre * 6*22870Skre * @(#)d_sin.c 5.1 06/07/85 710467Sdlw */ 810467Sdlw 910467Sdlw double d_sin(x) 1010467Sdlw double *x; 1110467Sdlw { 1210467Sdlw double sin(); 1310467Sdlw return( sin(*x) ); 1410467Sdlw } 15