2968   Int  exp;			   /* working exponent */  in decNumberSquareRoot()  local
3073     exp=f->exponent+f->digits;		     /* adjusted to Hull rules */  in decNumberSquareRoot()
3086     if ((exp & 1)==0) {			     /* even exponent */  in decNumberSquareRoot()
3104       exp++;				     /* e=e+1 */  in decNumberSquareRoot()
3147     a->exponent+=exp/2;			     /* set correct exponent */  in decNumberSquareRoot()
3166     a->exponent-=exp/2;			     /* back to 0.1->1 */  in decNumberSquareRoot()
3185       approxset.emin-=exp/2;			  /* adjust to match a */  in decNumberSquareRoot()
3186       approxset.emax-=exp/2;  in decNumberSquareRoot()
3199 	approxset.emin-=exp/2;			  /* adjust to match a */  in decNumberSquareRoot()
3200 	approxset.emax-=exp/2;  in decNumberSquareRoot()
3208     a->exponent+=exp/2;			     /* set correct exponent */  in decNumberSquareRoot()
3769   Int exp=dn->exponent;	      /* local copy */  in decToString()  local
3801     if (exp!=0 || (*dn->lsu==0 && dn->digits==1)) return;  in decToString()
3809   if (exp==0) {			   /* simple integer [common fastpath] */  in decToString()
3819   pre=dn->digits+exp;		   /* digits before '.' */  in decToString()
3821   if ((exp>0) || (pre<-5)) {	   /* need exponential form */  in decToString()
3822     e=exp+dn->digits-1;		   /* calculate E value */  in decToString()
4815 	  Int exp=lhs->exponent;	     /* save min(exponents) */  in decDivideOp()  local
4816 	  if (rhs->exponent<exp) exp=rhs->exponent;  in decDivideOp()
4821 	  res->exponent=exp;		     /* .. with proper exponent */  in decDivideOp()
4882 	    Int exp, expunits, exprem;	     /* work */  in decDivideOp()  local
4906 	    exp=rhs->exponent-exponent;	     /* RHS padding needed */  in decDivideOp()
4908 	    expunits=exp/DECDPUN;  in decDivideOp()
4909 	    exprem=exp%DECDPUN;  in decDivideOp()
6382 			  const Unit *b, Int blength, Int exp) {  argument
6390   if (exp==0) {			   /* aligned; fastpath */
6405   if (alength>blength+(Int)D2U(exp)) return 1;
6406   if (alength+1<blength+(Int)D2U(exp)) return -1;
6411   need=blength+D2U(exp);		/* maximum real length of B */
6421   expunits=exp/DECDPUN;
6422   exprem=exp%DECDPUN;
6740   Int	d, exp;			   /* work */  local
6757   exp=dn->exponent;
6771       if (exp<=0) {		   /* if digit might be significant */
6772 	if (exp==0) break;	   /* then quit */
6773 	exp++;			   /* next digit might be significant */