110466Sdlw /* 2*22868Skre * Copyright (c) 1980 Regents of the University of California. 3*22868Skre * All rights reserved. The Berkeley software License Agreement 4*22868Skre * specifies the terms and conditions for redistribution. 5*22868Skre * 6*22868Skre * @(#)d_sign.c 5.1 06/07/85 710466Sdlw */ 810466Sdlw 910466Sdlw double d_sign(a,b) 1010466Sdlw double *a, *b; 1110466Sdlw { 1210466Sdlw double x; 1310466Sdlw x = (*a >= 0 ? *a : - *a); 1410466Sdlw return( *b >= 0 ? x : -x); 1510466Sdlw } 16