110535Sdlw /* 2*22966Skre * Copyright (c) 1980 Regents of the University of California. 3*22966Skre * All rights reserved. The Berkeley software License Agreement 4*22966Skre * specifies the terms and conditions for redistribution. 5*22966Skre * 6*22966Skre * @(#)r_sin.c 5.1 06/07/85 710535Sdlw */ 810535Sdlw 910535Sdlw double r_sin(x) 1010535Sdlw float *x; 1110535Sdlw { 1210535Sdlw double sin(); 1310535Sdlw return( sin(*x) ); 1410535Sdlw } 15