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