<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;"><P style="MARGIN: 0cm 0cm 10pt" class=MsoNormal><SPAN style="mso-ansi-language: EN-US" lang=EN-US><FONT size=3><FONT face=Calibri><SPAN style="LINE-HEIGHT: 115%; FONT-FAMILY: 'Calibri','sans-serif'; FONT-SIZE: 11pt; mso-ansi-language: EN-US; mso-ascii-theme-font: minor-latin; mso-fareast-font-family: Calibri; mso-fareast-theme-font: minor-latin; mso-hansi-theme-font: minor-latin; mso-bidi-font-family: Arial; mso-bidi-theme-font: minor-bidi; mso-fareast-language: EN-US; mso-bidi-language: AR-SA" lang=EN-US>I have installed MPICH2-1.3.2p1 (MPICH2 Windows EM64T/AMD64 ) </SPAN>and I linked Intel MPI library with small project in Visual studio 2010. I use Intel Fortran compiler version 12. In the following example, I want to send an array of data type to the client processes.<SPAN style="mso-spacerun: yes">&nbsp; </SPAN>Specification of my PC is:<?xml:namespace
 prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></FONT></FONT></SPAN></DIV>
<P style="MARGIN: 0cm 0cm 10pt" class=MsoNormal><SPAN style="mso-ansi-language: EN-US" lang=EN-US><FONT size=3><FONT face=Calibri>Windows 7 OS, 64 Bit, 4 GB of RAM, Intel® Core(TM)2Duo CPU 3.34 GHz<o:p></o:p></FONT></FONT></SPAN></DIV>
<P style="MARGIN: 0cm 0cm 10pt" class=MsoNormal><SPAN style="mso-ansi-language: EN-US" lang=EN-US><FONT size=3><FONT face=Calibri>Client processes gets the array up to 522 cells and will receive garbage data for the rest cells.</FONT></FONT></SPAN></DIV><SPAN style="mso-ansi-language: EN-US" lang=EN-US><FONT size=3><FONT face=Calibri><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>
<DIV>program</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> ping</DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>
<DIV>implicit none</DIV></B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>include</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> </FONT></FONT><FONT color=#800000 size=2 face=Consolas><FONT color=#800000 size=2 face=Consolas><FONT color=#800000 size=2 face=Consolas>'mpif.h'</DIV></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>integer</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> :: numtasks, rank, dest, source, tag, ierr</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>integer</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> :: i</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>integer</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> :: NELEM</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>integer</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> :: stat(MPI_STATUS_SIZE)</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>type</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> Particle</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>INTEGER(4)</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> :: IW1 </DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>INTEGER(4)</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> :: IP1 </DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>INTEGER(4)</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> :: IW2 </DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>INTEGER(4)</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> :: IP2 </DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>INTEGER(4)</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> :: IPWF </DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>INTEGER(4)</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> :: IP </DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>INTEGER(4)</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> :: IL10 </DIV>
<DIV></DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>INTEGER(2)</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> :: IMP4 </DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>INTEGER(2)</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> :: IMP5 </DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>INTEGER(2)</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> :: LIB1 </DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>INTEGER(2)</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> :: LIB2 </DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>INTEGER(2)</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> :: LIB3 </DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>INTEGER(2)</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> :: IVOL </DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>INTEGER(2)</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> :: ITARG </DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>INTEGER(2)</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> :: ISEG </DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>INTEGER(2)</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> :: NFAU </DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>INTEGER(2)</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> :: NMAX </DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>INTEGER(2)</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> :: NTOT </DIV>
<DIV></DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>LOGICAL</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> :: nomix </DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>LOGICAL</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> :: TRcorr </DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>INTEGER(4)</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> :: JZ(6)</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>INTEGER(4)</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> :: IJ(6)</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>end</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> </FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>type</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> Particle</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>type</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> (Particle),</FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>DIMENSION</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas>(:),</FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>POINTER</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> :: p, particles</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>integer</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> particletype, oldtypes(0:3), blockcounts(0:3), offsets(0:3), extent</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>integer</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> rowtype,columntype,SIZE,id</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>integer</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> NUMSEG,indextype_INTBB</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>integer</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas>,</FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>allocatable</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas>,</FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>dimension</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas>(:) :: blocklengths,displacements</DIV>
<DIV>tag = 1</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>call</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> MPI_INIT(ierr)</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>call</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> MPI_COMM_RANK(MPI_COMM_WORLD, rank, ierr)</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>call</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> MPI_COMM_SIZE(MPI_COMM_WORLD, numtasks, ierr)</DIV>
<DIV>NELEM=10000</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>ALLOCATE</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas>(particles(0:NELEM))</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>ALLOCATE</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas>(p(0:1010))</DIV></FONT></FONT><FONT color=#008000 size=2 face=Consolas><FONT color=#008000 size=2 face=Consolas><FONT color=#008000 size=2 face=Consolas>
<DIV>! Setup description of the 4 MPI_REAL fields x, y, z, velocity </DIV></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas>
<DIV>offsets(0) = 0</DIV>
<DIV>oldtypes(0) = MPI_INTEGER4</DIV>
<DIV>blockcounts(0) = 7</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>call</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> MPI_TYPE_EXTENT(MPI_INTEGER4, extent, ierr)</DIV>
<DIV>offsets(1) = 7 * extent</DIV>
<DIV>oldtypes(1) = MPI_INTEGER2</DIV>
<DIV>blockcounts(1) = 11</DIV></FONT></FONT><FONT color=#008000 size=2 face=Consolas><FONT color=#008000 size=2 face=Consolas><FONT color=#008000 size=2 face=Consolas>
<DIV>! Setup description of the 2 MPI_INTEGER fields n, type </DIV>
<DIV>! Need to first figure offset by getting size of MPI_REAL</DIV></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>call</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> MPI_TYPE_EXTENT(MPI_INTEGER2, extent, ierr)</DIV>
<DIV>offsets(2) = 11 * extent</DIV>
<DIV>oldtypes(2) = MPI_LOGICAL</DIV>
<DIV>blockcounts(2) = 2</DIV>
<DIV>SIZE=6</DIV></FONT></FONT><FONT color=#008000 size=2 face=Consolas><FONT color=#008000 size=2 face=Consolas><FONT color=#008000 size=2 face=Consolas>
<DIV>!call MPI_TYPE_VECTOR(SIZE, 1, SIZE, MPI_REAL, rowtype, ierr)</DIV>
<DIV>!call MPI_TYPE_COMMIT(rowtype, ierr)</DIV></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>call</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> MPI_TYPE_CONTIGUOUS(SIZE, MPI_INTEGER4, columntype, ierr)</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>call</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> MPI_TYPE_COMMIT(columntype, ierr)</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>call</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> MPI_TYPE_EXTENT(MPI_LOGICAL, extent, ierr)</DIV>
<DIV>offsets(3) = 2 * extent</DIV>
<DIV>oldtypes(3) = columntype</DIV>
<DIV>blockcounts(3) = 2</DIV></FONT></FONT><FONT color=#008000 size=2 face=Consolas><FONT color=#008000 size=2 face=Consolas><FONT color=#008000 size=2 face=Consolas>
<DIV>! Now define structured type and commit it </DIV></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>call</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> MPI_TYPE_STRUCT(4, blockcounts, offsets, oldtypes, particletype, ierr)</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>call</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> MPI_TYPE_COMMIT(particletype, ierr)</DIV>
<DIV></DIV></FONT></FONT><FONT color=#008000 size=2 face=Consolas><FONT color=#008000 size=2 face=Consolas><FONT color=#008000 size=2 face=Consolas>
<DIV>! Initialize the particle array and then send it to each task</DIV></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas>
<DIV>tag = 1</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>if</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> (rank .eq. 0) </FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>then</DIV></B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>do</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> 10 i=0, NELEM-1</DIV>
<DIV>particles(i)%IW1=i+1</DIV>
<DIV>particles(i)%IP1=i+2</DIV>
<DIV>particles(i)%IW2=i+3</DIV>
<DIV>particles(i)%IP2=i+4</DIV>
<DIV>particles(i)%IPWF=i+5</DIV>
<DIV>particles(i)%IP=i+6</DIV>
<DIV>particles(i)%IL10=i+7</DIV>
<DIV>particles(i)%IMP4=i+8</DIV>
<DIV>particles(i)%IMP5=i+9</DIV>
<DIV>particles(i)%LIB1=i+10</DIV>
<DIV>particles(i)%LIB2=i+11</DIV>
<DIV>particles(i)%LIB3=i+12</DIV>
<DIV>particles(i)%IVOL=i+13</DIV>
<DIV>particles(i)%ITARG=i+14</DIV>
<DIV>particles(i)%ISEG=i+15</DIV>
<DIV>particles(i)%NFAU=i+16</DIV>
<DIV>particles(i)%NMAX=i+17</DIV>
<DIV>particles(i)%NTOT=i+18</DIV>
<DIV>particles(i)%nomix=.FALSE.</DIV>
<DIV>particles(i)%TRcorr=.FALSE.</DIV>
<DIV>particles(i)%JZ=i</DIV>
<DIV>particles(i)%IJ=i+1</DIV>
<DIV></FONT></FONT><FONT color=#ff0000 size=2 face=Consolas><FONT color=#ff0000 size=2 face=Consolas><FONT color=#ff0000 size=2 face=Consolas>10</FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> </FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>continue</DIV></B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas>
<DIV>NUMSEG = 4 </DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>ALLOCATE</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas>(blocklengths(NUMSEG), displacements(NUMSEG)) </DIV>
<DIV>blocklengths(1)=798; displacements(1)=0</DIV>
<DIV>blocklengths(2)=84; displacements(2)=7798</DIV>
<DIV>blocklengths(3)=114; displacements(3)=4800</DIV>
<DIV>blocklengths(4)=12; displacements(4)=8952</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>CALL</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> MPI_TYPE_INDEXED(NUMSEG, blocklengths, displacements, particletype,indextype_INTBB, ierr)</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>call</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> MPI_TYPE_COMMIT(indextype_INTBB, ierr)</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>do</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> 20 i=1, numtasks-1</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>call</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> MPI_SEND(particles, 1, indextype_INTBB, i, tag, MPI_COMM_WORLD, ierr)</DIV></FONT></FONT><FONT color=#008000 size=2 face=Consolas><FONT color=#008000 size=2 face=Consolas><FONT color=#008000 size=2 face=Consolas>
<DIV>! call MPI_SEND(particles, 1008, particletype, i, tag, MPI_COMM_WORLD, ierr)</DIV></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas>
<DIV></FONT></FONT><FONT color=#ff0000 size=2 face=Consolas><FONT color=#ff0000 size=2 face=Consolas><FONT color=#ff0000 size=2 face=Consolas>20</FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> </FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>continue</DIV></B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>endif</DIV></B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas>
<DIV>id=521</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>if</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> (rank&gt;0) </FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>then</DIV></B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas>
<DIV>source = 0</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>call</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> MPI_RECV(p, 1008, particletype, source, tag, MPI_COMM_WORLD, stat, ierr)</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>print</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> *, </FONT></FONT><FONT color=#800000 size=2 face=Consolas><FONT color=#800000 size=2 face=Consolas><FONT color=#800000 size=2 face=Consolas>'rank= '</FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas>,rank,</FONT></FONT><FONT color=#800000 size=2 face=Consolas><FONT color=#800000 size=2 face=Consolas><FONT color=#800000 size=2 face=Consolas>' p='</FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas>,p(id)%nomix,p(id)%TRcorr,p(0)%JZ(1),p(id)%JZ(1),p(id)%JZ(6),p(id)%IJ</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>end if</DIV></B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>call</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> MPI_TYPE_FREE(particletype, ierr)</DIV>
<DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>call</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> MPI_FINALIZE(ierr)</DIV></FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>
<DIV>end</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> </FONT></FONT><B><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas><FONT color=#0000ff size=2 face=Consolas>program</B></FONT></FONT></FONT><FONT size=2 face=Consolas><FONT size=2 face=Consolas> ping</DIV></FONT></FONT><o:p></o:p></FONT></FONT></SPAN></td></tr></table><br>