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