Lines Matching refs:fpprec

40          (let* ((fpprec (+ fpprec 12)) ;; needs testing
60            (bcons (bs-carg1 re-z im-z fpprec)) )))
167       ((or (= 0 (car xx)) (< (cadr xx) (- fpprec))) ;; x is zero within current prec
175             (or (= 0 (car dx)) (< (cadr dx) (- fpprec))) ) ;; x is pi/2 within current prec
182                (let* ((fpprec (+ fpprec 12)) ;; needs testing
185                    (multiple-value-bind (re im) (bs-exp-%i*x x fpprec)   
256            (let ((fpprec (+ fpprec extra)))
268          (let* ((fpprec (+ fpprec 12)) ;; needs testing
278               (setq pos2 (- fpprec (+ pos1 e)))
283                     res (fptimes* res (bs-exp-u/2^2^k u k fpprec))
334                (fpprec (+ fpprec extra))
350          (let* ((fpprec (+ fpprec 12)) ;; needs more testing
361            (setq lgx (bs-log1 x fpprec))