110531Sdlw /* 222961Skre * Copyright (c) 1980 Regents of the University of California. 322961Skre * All rights reserved. The Berkeley software License Agreement 422961Skre * specifies the terms and conditions for redistribution. 522961Skre * 6*23854Sjerry * @(#)r_log.c 5.2 07/08/85 710531Sdlw */ 810531Sdlw 9*23854Sjerry float r_log(x) 1010531Sdlw float *x; 1110531Sdlw { 1210531Sdlw double log(); 1310531Sdlw return( log(*x) ); 1410531Sdlw } 15