double sign(double a,double b );		/* floating point sign transfer */