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

Diff of /gcl/pargcl/examples/example-slave-listener.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 13  Line 13 
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)))

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