110527Sdlw /* 222957Skre * Copyright (c) 1980 Regents of the University of California. 322957Skre * All rights reserved. The Berkeley software License Agreement 422957Skre * specifies the terms and conditions for redistribution. 522957Skre * 6*23854Sjerry * @(#)r_exp.c 5.2 07/08/85 710527Sdlw */ 810527Sdlw 9*23854Sjerry float r_exp(x) 1010527Sdlw float *x; 1110527Sdlw { 1210527Sdlw double exp(); 1310527Sdlw return( exp(*x) ); 1410527Sdlw } 15