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