49 |
|
|
50 |
(defun par-find-one-factor-mpi (x &optional (incr 10000)) |
(defun par-find-one-factor-mpi (x &optional (incr 10000)) |
51 |
"Produces one factor of argument" |
"Produces one factor of argument" |
52 |
(par-funcall #'find-one-factor-mpi x incr)) |
(par-funcall #'par-find-one-factor-mpi-helper x incr)) |
53 |
|
|
54 |
(defun find-one-factor-mpi (num incr) |
(defun par-find-one-factor-mpi-helper (num incr) |
55 |
(if (= 0 (MPI-Comm-rank)) |
(if (= 0 (MPI-Comm-rank)) |
56 |
(master num incr) |
(master num incr) |
57 |
(worker num incr))) |
(worker num incr))) |