13 |
|
|
14 |
(defun par-find-one-factor-sl (x &optional (incr 10000)) |
(defun par-find-one-factor-sl (x &optional (incr 10000)) |
15 |
"Produces one factor of argument" |
"Produces one factor of argument" |
16 |
(par-funcall #'find-one-factor-sl x incr)) |
(par-funcall #'par-find-one-factor-sl-helper x incr)) |
17 |
|
|
18 |
(defun find-one-factor-sl (num incr) |
(defun par-find-one-factor-sl-helper (num incr) |
19 |
(if (= 0 (MPI-Comm-rank)) |
(if (= 0 (MPI-Comm-rank)) |
20 |
(master-sl num incr) |
(master-sl num incr) |
21 |
(worker-sl num incr))) |
(worker-sl num incr))) |