110455Sdlw /* 2*22849Skre * Copyright (c) 1980 Regents of the University of California. 3*22849Skre * All rights reserved. The Berkeley software License Agreement 4*22849Skre * specifies the terms and conditions for redistribution. 5*22849Skre * 6*22849Skre * @(#)d_cos.c 5.1 06/07/85 710455Sdlw */ 810455Sdlw 910455Sdlw double d_cos(x) 1010455Sdlw double *x; 1110455Sdlw { 1210455Sdlw double cos(); 1310455Sdlw return( cos(*x) ); 1410455Sdlw } 15