1*10455Sdlw /* 2*10455Sdlw * "@(#)d_cos.c 1.1" 3*10455Sdlw */ 4*10455Sdlw 5*10455Sdlw double d_cos(x) 6*10455Sdlw double *x; 7*10455Sdlw { 8*10455Sdlw double cos(); 9*10455Sdlw return( cos(*x) ); 10*10455Sdlw } 11