Changeset 7287 in project


Ignore:
Timestamp:
01/06/08 15:29:41 (12 years ago)
Author:
Ivan Raikov
Message:

Added meta file.

Location:
mpi/trunk
Files:
1 added
1 edited

Legend:

Unmodified
Added
Removed
  • mpi/trunk/tests/mandel.scm

    r7286 r7287  
    6969
    7070;; Plot one line
    71 (define (plot_row ezx j line)
    72   (draw_bitmap_line ezx line 0 j))
     71(define (plot_row ezx row)
     72  (let-values (((j line)  (unpack-row row)))
     73      (draw_bitmap_line ezx line 0 j)))
    7374
    7475;; Server function: distribute work and plot the lines
     
    8889
    8990;; Entry point
     91(MPI:init)
    9092(let* ((n 500)
    9193       (comm-world (MPI:comm-world))
     
    9597      (worker (list 0 0 n n) n n))
    9698  (MPI:barrier comm-world))
     99
Note: See TracChangeset for help on using the changeset viewer.