/[gcl]/gcl/pargcl/examples/example-mpi.lsp
ViewVC logotype

Diff of /gcl/pargcl/examples/example-mpi.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by gene, Fri Oct 28 23:00:29 2005 UTC revision 1.2 by gene, Fri Nov 4 08:34:54 2005 UTC
# Line 49  Line 49 
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)))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26