marking_list [0:numProcs-1]= 0for e

marking_list [0:numProcs-1]= 0
for each particle moved off_block
find destination_proc_and_block
if(destination_proc==myPe)
move particle to destination block
else
marking_list [destination_proc]=1
put particle and destination_proc_and_block in send buffer
end if
end for
globalsum(marking_list)
post marking_list(myPe) Asynchronous receives
send contents of send buffer to appropriate processors
wait for message delivery
move received particles to appropriate blocks

ผลลัพธ์ (ไทย) 1:

marking_list [0:numProcs-1] = 0สำหรับแต่ละอนุภาคย้าย off_blockค้นหา destination_proc_and_blockif(destination_proc==myPe)อนุภาคไปปลายทางบล็อกอื่นmarking_list [destination_proc] = 1ใส่อนุภาคและ destination_proc_and_block ในบัฟเฟอร์ส่งสิ้นสุดถ้าสิ้นสุดสำหรับglobalsum(marking_list)marking_list(myPe) Asynchronous ได้รับการลงรายการบัญชีส่งเนื้อหาของบัฟเฟอร์ที่ส่งไปยังตัวประมวลผลที่เหมาะสมรอส่งข้อความอนุภาคที่ได้รับไปบล็อกที่เหมาะสม

ผลลัพธ์ (ไทย) 2:

marking_list [0: numProcs-1] = 0
สำหรับอนุภาคแต่ละย้าย off_block
หา destination_proc_and_block
ถ้า (destination_proc == myPe)
ย้ายอนุภาคเพื่อป้องกันปลายทางอื่นmarking_list [destination_proc] = 1 ใส่อนุภาคและ destination_proc_and_block ในบัฟเฟอร์ส่งสิ้นสุดหากสิ้นสุดสำหรับglobalsum (marking_list ) โพสต์ marking_list (myPe) Asynchronous รับส่งเนื้อหาของบัฟเฟอร์ส่งไปประมวลผลที่เหมาะสมรอการจัดส่งข้อความย้ายที่ได้รับอนุภาคที่เหมาะสมบล็อก

ผลลัพธ์ (ไทย) 3:

marking_list [ 0 : numprocs-1 ] = 0 =
แต่ละอนุภาคย้าย off_block

ถ้าเจอ destination_proc_and_block ( destination_proc = = mype )
ย้ายอนุภาคไปยังปลายทางบล็อก

marking_list อีก [ destination_proc ] = 1
ใส่อนุภาคและ destination_proc_and_block ในบัฟเฟอร์

ส่งจบ ถ้าจบ globalsum ( marking_list )

โพสต์ marking_list ( mype ) แบบอะซิงโครนัสได้รับ
ส่งเนื้อหาของบัฟเฟอร์ (
) ส่งรอย้ายการจัดส่ง
ข้อความที่ได้รับอนุภาคบล็อกที่เหมาะสม