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