1828   decContext workset=*set;		     /* work */  in decNumberNextMinus()  local
1843   workset.round=DEC_ROUND_FLOOR;  in decNumberNextMinus()
1844   decAddOp(res, rhs, &dtiny, &workset, DECNEG, &status);  in decNumberNextMinus()
1864   decContext workset=*set;		     /* work */  in decNumberNextPlus()  local
1880   workset.round=DEC_ROUND_CEILING;  in decNumberNextPlus()
1881   decAddOp(res, rhs, &dtiny, &workset, 0, &status);  in decNumberNextPlus()
1903   decContext workset=*set;		     /* work */  in decNumberNextToward()  local
1927 	  workset.round=DEC_ROUND_CEILING;  in decNumberNextToward()
1936 	  workset.round=DEC_ROUND_FLOOR;  in decNumberNextToward()
1942 	decAddOp(res, lhs, &dtiny, &workset, sub, &status); /* + or - */  in decNumberNextToward()
2961   decContext workset, approxset;   /* work contexts */  in decNumberSquareRoot()  local
3077     decContextDefault(&workset, DEC_INIT_DECIMAL64);  in decNumberSquareRoot()
3083     workset.digits=workp;		     /* p for initial calculation */  in decNumberSquareRoot()
3118     decMultiplyOp(a, a, f, &workset, &ignore);	  /* a=a*f */  in decNumberSquareRoot()
3119     decAddOp(a, a, t, &workset, 0, &ignore);	  /* ..+t */  in decNumberSquareRoot()
3128     workset.digits=3;			     /* initial p */  in decNumberSquareRoot()
3131       workset.digits=workset.digits*2-2;  in decNumberSquareRoot()
3132       if (workset.digits>maxp) workset.digits=maxp;  in decNumberSquareRoot()
3135       decDivideOp(b, f, a, &workset, DIVIDE, &ignore); /* b=f/a */  in decNumberSquareRoot()
3136       decAddOp(b, b, a, &workset, 0, &ignore);	  /* b=b+a */  in decNumberSquareRoot()
3137       decMultiplyOp(a, b, t, &workset, &ignore);  /* a=b*0.5 */  in decNumberSquareRoot()
3173     workset.digits--;				  /* maxp-1 is OK now */  in decNumberSquareRoot()
3175     decAddOp(b, a, t, &workset, DECNEG, &ignore); /* b = a - 0.5 ulp */  in decNumberSquareRoot()
3176     workset.round=DEC_ROUND_UP;  in decNumberSquareRoot()
3177     decMultiplyOp(b, b, b, &workset, &ignore);	  /* b = mulru(b, b) */  in decNumberSquareRoot()
3178     decCompareOp(b, f, b, &workset, COMPARE, &ignore); /* b ? f, reversed */  in decNumberSquareRoot()
3183       decAddOp(a, a, t, &workset, DECNEG, &ignore); /* a = a - 1 ulp */  in decNumberSquareRoot()
3190       decAddOp(b, a, t, &workset, 0, &ignore);	  /* b = a + 0.5 ulp */  in decNumberSquareRoot()
3191       workset.round=DEC_ROUND_DOWN;  in decNumberSquareRoot()
3192       decMultiplyOp(b, b, b, &workset, &ignore);  /* b = mulrd(b, b) */  in decNumberSquareRoot()
3193       decCompareOp(b, b, f, &workset, COMPARE, &ignore);   /* b ? f */  in decNumberSquareRoot()
3197 	decAddOp(a, a, t, &workset, 0, &ignore);  /* a = a + 1 ulp */  in decNumberSquareRoot()
3224       decMultiplyOp(b, b, b, &workset, &mstatus); /* try the multiply */  in decNumberSquareRoot()
3229 	decCompareOp(t, b, rhs, &workset, COMPARE, &mstatus); /* b ? rhs */  in decNumberSquareRoot()
3329   decContext workset;		   /* working context */  in decNumberToIntegralExact()  local
3345     workset=*set;		   /* clone rounding, etc. */  in decNumberToIntegralExact()
3346     workset.digits=rhs->digits;	   /* no length rounding */  in decNumberToIntegralExact()
3347     workset.traps=0;		   /* no traps */  in decNumberToIntegralExact()
3349     decNumberQuantize(res, rhs, &dn, &workset);  in decNumberToIntegralExact()
3350     status|=workset.status;  in decNumberToIntegralExact()
3358   decContext workset=*set;	   /* working context */  in decNumberToIntegralValue()  local
3359   workset.traps=0;		   /* no traps */  in decNumberToIntegralValue()
3360   decNumberToIntegralExact(res, rhs, &workset);  in decNumberToIntegralValue()
3363   set->status|=workset.status&DEC_Invalid_operation;  in decNumberToIntegralValue()
6066 	decContext workset;		     /* work */  local
6067 	workset=*set;			     /* clone rounding, etc. */
6068 	workset.digits=lhs->digits-adjust;   /* set requested length */
6070 	decCopyFit(res, lhs, &workset, &residue, status); /* fit to result */
6071 	decApplyRound(res, &workset, residue, status);	  /* .. and round */
7577   decContext workset;	      /* work */  local
7621   workset=*set;				/* clone rounding, etc. */
7622   workset.digits=dn->digits-adjust;	/* set requested length */
7623   workset.emin-=adjust;			/* and adjust emin to match */
7625   decSetCoeff(dn, &workset, dn->lsu, dn->digits, residue, status);
7626   decApplyRound(dn, &workset, *residue, status);