402 |
(if (>= source (MPI-World-size)) |
(if (>= source (MPI-World-size)) |
403 |
(error "source ~a is larger than maximum rank of processes" |
(error "source ~a is larger than maximum rank of processes" |
404 |
source)) |
source)) |
405 |
(if (< source 0) |
(if (and (< source 0) (/= source (MPI-Any-source))) |
406 |
(error "source ~a is negative" source)) |
(error "source ~a is negative" source)) |
407 |
(setq datatype (or (cdr (assoc datatype *type-lisp-to-mpi*)) |
(setq datatype (or (cdr (assoc datatype *type-lisp-to-mpi*)) |
408 |
(error "buf is array of bad elt. type: ~a~% ~ |
(error "buf is array of bad elt. type: ~a~% ~ |
427 |
msg is placed in array up to length of msg; if array has |
msg is placed in array up to length of msg; if array has |
428 |
a fill-pointer, the fill-pointer is set to actual msg length.") |
a fill-pointer, the fill-pointer is set to actual msg length.") |
429 |
|
|
430 |
|
;; Can't check source since used in startup before (MPI-World-size) defined |
431 |
(defglue |
(defglue |
432 |
(MPI-Probe (&optional (source (MPI-Any-source)) (tag (MPI-Any-tag)))) |
(MPI-Probe (&optional (source (MPI-Any-source)) (tag (MPI-Any-tag)))) |
433 |
(MPI-Probe-glue source tag) |
(MPI-Probe-glue source tag) |
439 |
side-effects status variable; (apropos \"MPI-Status\") for more info.") |
side-effects status variable; (apropos \"MPI-Status\") for more info.") |
440 |
|
|
441 |
(defglue |
(defglue |
442 |
(MPI-Iprobe (&optional (source (MPI-Any-source)) (tag (MPI-Any-tag)))) |
(MPI-Iprobe (&optional (source (MPI-Any-source)) (tag (MPI-Any-tag))) |
443 |
|
(if (>= source (MPI-World-size)) |
444 |
|
(error "source ~a is larger than maximum rank of processes" source)) |
445 |
|
(if (and (< source 0) (/= source (MPI-Any-source))) |
446 |
|
(error "source ~a is negative" source))) |
447 |
(MPI-Iprobe-glue source tag) |
(MPI-Iprobe-glue source tag) |
448 |
((object "MPI_Iprobe_glue") (int source) (int tag)) |
((object "MPI_Iprobe_glue") (int source) (int tag)) |
449 |
("int flag" |
("int flag" |