110535Sdlw /* 222966Skre * Copyright (c) 1980 Regents of the University of California. 322966Skre * All rights reserved. The Berkeley software License Agreement 422966Skre * specifies the terms and conditions for redistribution. 522966Skre * 6*23854Sjerry * @(#)r_sin.c 5.2 07/08/85 710535Sdlw */ 810535Sdlw 9*23854Sjerry float r_sin(x) 1010535Sdlw float *x; 1110535Sdlw { 1210535Sdlw double sin(); 1310535Sdlw return( sin(*x) ); 1410535Sdlw } 15