110527Sdlw /* 2*22957Skre * Copyright (c) 1980 Regents of the University of California. 3*22957Skre * All rights reserved. The Berkeley software License Agreement 4*22957Skre * specifies the terms and conditions for redistribution. 5*22957Skre * 6*22957Skre * @(#)r_exp.c 5.1 06/07/85 710527Sdlw */ 810527Sdlw 910527Sdlw double r_exp(x) 1010527Sdlw float *x; 1110527Sdlw { 1210527Sdlw double exp(); 1310527Sdlw return( exp(*x) ); 1410527Sdlw } 15