110534Sdlw /* 222965Skre * Copyright (c) 1980 Regents of the University of California. 322965Skre * All rights reserved. The Berkeley software License Agreement 422965Skre * specifies the terms and conditions for redistribution. 522965Skre * 6*23854Sjerry * @(#)r_sign.c 5.2 07/08/85 710534Sdlw */ 810534Sdlw 9*23854Sjerry float r_sign(a,b) 1010534Sdlw float *a, *b; 1110534Sdlw { 1210534Sdlw float x; 1310534Sdlw x = (*a >= 0 ? *a : - *a); 1410534Sdlw return( *b >= 0 ? x : -x); 1510534Sdlw } 16