suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added rmpi-make-remote-config

Browse Source
This commit is contained in:
Kevin Tew 2013-01-16 06:13:52 -07:00
parent ed01f70872
commit c553ce9fa3
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/racket/place/distributed/rmpi.rkt
View File

@ -26,6 +26,7 @@
rmpi-partition
rmpi-build-default-config
rmpi-make-localhost-config
rmpi-make-remote-config
rmpi-launch
rmpi-finish
(struct-out rmpi-comm))
@ -353,6 +354,12 @@
(list "localhost" (+ start-port i) (string->symbol (format "~a_~a" (symbol->string name) (number->string i)))
i)))
(define (rmpi-make-remote-config hostlist cnt start-port name)
(for/list ([i cnt]
[host hostlist])
(list host (+ start-port i) (string->symbol (format "~a_~a" (symbol->string name) (number->string i)))
i)))
(define (rmpi-alltoall comm outvec)
(match-define (rmpi-comm id cnt chs) comm)
(define-values (v! vr mkv vcopy)