110531Sdlw /* 2*22961Skre * Copyright (c) 1980 Regents of the University of California. 3*22961Skre * All rights reserved. The Berkeley software License Agreement 4*22961Skre * specifies the terms and conditions for redistribution. 5*22961Skre * 6*22961Skre * @(#)r_log.c 5.1 06/07/85 710531Sdlw */ 810531Sdlw 910531Sdlw double r_log(x) 1010531Sdlw float *x; 1110531Sdlw { 1210531Sdlw double log(); 1310531Sdlw return( log(*x) ); 1410531Sdlw } 15