<br><br><div class="gmail_quote">On Wed, May 12, 2010 at 12:25 PM, sankar s <span dir="ltr">&lt;<a href="mailto:keanesankar@gmail.com">keanesankar@gmail.com</a>&gt;</span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<div>Hi,</div><div>  Thank you for immediate reply.</div><div>Now I used malloc for creating space for pointer profit and also used MPI_Recv instead of MPI_Irecv.Now its not giving any error.</div><div>But instead of passing profit1 (MPI_DOUBLE), its passing only zeros. pls don&#39;t mind for asking some easy questions like this. am very new to this.</div>

<div><br></div><div>/*CODE*/</div><div><div class="im"><div>int main(int argc, char*argv[]){</div><div><span style="white-space:pre">        </span>double *simulateRuns(int, int, int, int);</div><div><span style="white-space:pre">        </span>double simulateOneRun(int,int,int);</div>

<div><span style="white-space:pre">        </span>void stat(double *,int);</div><div><br></div><div>   int nprocs;<span style="white-space:pre">                        </span>          /* number of processes */</div>
</div><div>   int rank,tag=1,i;<span style="white-space:pre">                        </span>    /* the unique identification of this process */</div><div class="im"><div>   long int before,after;</div><div>   double * profit1,* profit2,* profit;</div>

</div><div>   int n=10,m=20000,s=80,S=200;</div><div class="im"><div>   MPI_Status status;</div><div>   before=GetTickCount();</div><div><br></div><div>  MPI_Init (&amp;argc, &amp;argv);</div><div>  MPI_Comm_rank (MPI_COMM_WORLD, &amp;rank);</div>

<div>  MPI_Comm_size (MPI_COMM_WORLD, &amp;nprocs);</div><div>  printf(&quot;rank=%d  nproc=%d\n&quot;,rank,nprocs);</div><div>  if (rank==0){</div><div>   profit1=simulateRuns(n/nprocs,m,s,S);</div><div>   stat(profit1,n/2);</div>

<div>  MPI_Send(profit1,n/nprocs,MPI_DOUBLE,1,tag,MPI_COMM_WORLD);</div><div>  }</div><div>  if(rank==1){</div><div>   profit2=simulateRuns(n/nprocs,m,s,S);</div><div>   stat(profit2,n/2);</div></div><div>   profit = malloc (n/nprocs * sizeof(double));</div>

<div>   MPI_Recv(profit,n/nprocs,MPI_DOUBLE,0,tag,MPI_COMM_WORLD,&amp;status);</div><div>   stat(profit,n/2);</div><div class="im"><div>  }</div><div>   MPI_Finalize ();</div><div>   after=GetTickCount();</div><div>   printf(&quot;time elapsed=%ld\n&quot;,(after-before));</div>

<div>}</div><div>/*OUTPUT*/</div></div></div><div class="im"><div><br></div><div>C:\Users\Sankar\My Documents\visual studio 2008\Projects\Inventorympi\Debug&gt;mpie</div><div>xec -n 2 Inventorympi.exe</div></div><div>rank=1  nproc=2</div>
<div>65.145380</div>
<div>64.170140</div><div>64.402515</div><div>65.238190</div><div>64.651180</div><div>stats on profit</div><div>num.obs       min          max          average        std.dev</div><div>  5      64.170140    65.238190      64.721481      0.231481</div>

<div>0.000000</div><div>0.000000</div><div>0.000000</div><div>0.000000</div><div>0.000000</div><div>stats on profit</div><div>num.obs       min          max          average        std.dev</div><div>  5      0.000000    0.000000      0.000000      0.000000</div>

<div>time elapsed=266</div><div>rank=0  nproc=2</div><div>65.145380</div><div>64.170140</div><div>64.402515</div><div>65.238190</div><div>64.651180</div><div>stats on profit</div><div>num.obs       min          max          average        std.dev</div>

<div>  5      64.170140    65.238190      64.721481      0.231481</div><div>time elapsed=188</div><div><br></div><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

Thank you
</blockquote></div><br>
</blockquote></div><br>