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