1*10534Sdlw /* 2*10534Sdlw * "@(#)r_sign.c 1.1" 3*10534Sdlw */ 4*10534Sdlw 5*10534Sdlw double r_sign(a,b) 6*10534Sdlw float *a, *b; 7*10534Sdlw { 8*10534Sdlw float x; 9*10534Sdlw x = (*a >= 0 ? *a : - *a); 10*10534Sdlw return( *b >= 0 ? x : -x); 11*10534Sdlw } 12