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