<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=us-ascii">
<META content="MSHTML 6.00.5730.11" name=GENERATOR></HEAD>
<BODY>
<DIV dir=ltr align=left><SPAN class=415362000-24012007><FONT face=Arial 
color=#0000ff size=2>Unless dimensao is 1, the Allreduce won't work because the 
input and output buffers are single element doubles (not 
arrays).</FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=415362000-24012007><FONT face=Arial 
color=#0000ff size=2></FONT></SPAN>&nbsp;</DIV>
<DIV dir=ltr align=left><SPAN class=415362000-24012007><FONT face=Arial 
color=#0000ff size=2>Rajeev</FONT></SPAN></DIV><BR>
<BLOCKQUOTE 
style="PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #0000ff 2px solid; MARGIN-RIGHT: 0px">
  <DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left>
  <HR tabIndex=-1>
  <FONT face=Tahoma size=2><B>From:</B> Luiz Mendes 
  [mailto:luizmendesw@gmail.com] <BR><B>Sent:</B> Tuesday, January 23, 2007 6:10 
  PM<BR><B>To:</B> mpich-discuss<BR><B>Cc:</B> Rajeev Thakur<BR><B>Subject:</B> 
  Re: [MPICH] Re: Problems with allreduce<BR></FONT><BR></DIV>
  <DIV></DIV>Hi all, Rajeev<BR><BR>I correct this, and i made some 
  simplifications, and the problems appears to be caused by the fact of i add 
  double variable declarations.<BR><BR>It is very strange. Some light to 
  this?<BR><BR>Thanks<BR>Luiz<BR><BR>
  <DIV><SPAN class=gmail_quote>2007/1/23, Rajeev Thakur &lt;<A 
  href="mailto:thakur@mcs.anl.gov">thakur@mcs.anl.gov</A>&gt;:</SPAN>
  <BLOCKQUOTE class=gmail_quote 
  style="PADDING-LEFT: 1ex; MARGIN: 0pt 0pt 0pt 0.8ex; BORDER-LEFT: rgb(204,204,204) 1px solid">
    <DIV>
    <DIV dir=ltr align=left><SPAN><FONT face=Arial color=#0000ff size=2>Where 
    have you allocated space for arquivo_nome?</FONT></SPAN></DIV>
    <DIV dir=ltr align=left><SPAN><FONT face=Arial color=#0000ff 
    size=2></FONT></SPAN>&nbsp;</DIV>
    <DIV dir=ltr align=left><SPAN><FONT face=Arial color=#0000ff 
    size=2>Rajeev</FONT></SPAN></DIV><BR>
    <BLOCKQUOTE 
    style="PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: rgb(0,0,255) 2px solid; MARGIN-RIGHT: 0px">
      <DIV lang=en-us dir=ltr align=left>
      <HR>
      <FONT face=Tahoma size=2><B>From:</B> <A 
      onclick="return top.js.OpenExtLink(window,event,this)" 
      href="mailto:owner-mpich-discuss@mcs.anl.gov" 
      target=_blank>owner-mpich-discuss@mcs.anl.gov</A> [mailto:<A 
      onclick="return top.js.OpenExtLink(window,event,this)" 
      href="mailto:owner-mpich-discuss@mcs.anl.gov" 
      target=_blank>owner-mpich-discuss@mcs.anl.gov</A>] <B>On Behalf Of 
      </B>Luiz Mendes<BR><B>Sent:</B> Tuesday, January 23, 2007 5:05 
      PM<BR><B>To:</B> mpich-discuss<BR><B>Subject:</B> [MPICH] Re: Problems 
      with allreduce<BR></FONT><BR></DIV>
      <DIV><SPAN class=e id=q_1105163aee8175a1_1>
      <DIV></DIV>Discard variable "tempo", without this continue getting 
      error.<BR><BR>thanks<BR><BR>
      <DIV><SPAN class=gmail_quote>2007/1/23, Luiz Mendes &lt;<A 
      onclick="return top.js.OpenExtLink(window,event,this)" 
      href="mailto:luizmendesw@gmail.com" 
      target=_blank>luizmendesw@gmail.com</A>&gt;:</SPAN> 
      <BLOCKQUOTE class=gmail_quote 
      style="PADDING-LEFT: 1ex; MARGIN: 0pt 0pt 0pt 0.8ex; BORDER-LEFT: rgb(204,204,204) 1px solid">Hi 
        all, i am with a problem in operation MPI_Allreduce. <BR><BR>The code is 
        the following below: <BR><BR><SPAN style="FONT-STYLE: italic">int 
        main(int argc, char *argv[])</SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">{</SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;int opcao, 
        dimensao,nome_tamanho, processo, num_procs;</SPAN><BR 
        style="FONT-STYLE: italic"><SPAN style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;int coluna, contador_bytes, contador_bytes_parcial, interacao, 
        contador_total_bytes; </SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;char&nbsp; *palavra = 
        NULL, *arquivo_nome;</SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
        char *arquivo_pv;</SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;char 
        procname[MPI_MAX_PROCESSOR_NAME];</SPAN><BR 
        style="FONT-STYLE: italic"><SPAN style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;double inicio, termino, tempo_parcial, soma_tempo_total, 
        valor;</SPAN> <BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;long long 
        offset;</SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;MPI_Datatype 
        linhaMatriz;</SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;MPI_File 
        arquivo;</SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;MPI_Status 
        status;</SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;</SPAN><BR 
        style="FONT-STYLE: italic"><SPAN style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;MPI_Init(&amp;argc, &amp;argv);</SPAN><BR 
        style="FONT-STYLE: italic"><SPAN style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;MPI_Comm_rank(MPI_COMM_WORLD, &amp;processo); </SPAN><BR 
        style="FONT-STYLE: italic"><SPAN style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;MPI_Comm_size(MPI_COMM_WORLD, &amp;num_procs);</SPAN><BR 
        style="FONT-STYLE: italic"><SPAN style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;MPI_Get_processor_name(procname,&amp;nome_tamanho); </SPAN><BR 
        style="FONT-STYLE: italic"><SPAN style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;</SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;while ((opcao = 
        getopt(argc, argv, "A:D:P:h")) != EOF)</SPAN> <BR 
        style="FONT-STYLE: italic"><SPAN style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;{</SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 
        &nbsp;switch(opcao) </SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 
        &nbsp;{</SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 
        &nbsp;&nbsp;&nbsp; &nbsp;case 'A': </SPAN><BR 
        style="FONT-STYLE: italic"><SPAN style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 
        &nbsp;arquivo_pv =optarg; </SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 
        &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 
        &nbsp;sprintf(arquivo_nome,"%s",arquivo_pv);</SPAN><BR 
        style="FONT-STYLE: italic"><SPAN style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;break; 
        </SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 
        &nbsp;&nbsp;&nbsp; &nbsp;case 'D': </SPAN><BR 
        style="FONT-STYLE: italic"><SPAN style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;sscanf 
        (optarg, "%d", &amp;dimensao); </SPAN><BR 
        style="FONT-STYLE: italic"><SPAN style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 
        &nbsp;break;</SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 
        &nbsp;&nbsp;&nbsp; &nbsp;case 'P':</SPAN><BR 
        style="FONT-STYLE: italic"><SPAN style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 
        &nbsp;sprintf(arquivo_nome,"pvfs2:/mnt/pvfs2/%s",arquivo_pv);</SPAN><BR 
        style="FONT-STYLE: italic"><SPAN style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;&nbsp;&nbsp; &nbsp;}&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 
        &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;</SPAN> <BR 
        style="FONT-STYLE: italic"><SPAN style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;}</SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;</SPAN><BR 
        style="FONT-STYLE: italic"><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;MPI_Type_contiguous(dimensao,MPI_DOUBLE,&amp;linhaMatriz);</SPAN><BR 
        style="FONT-STYLE: italic"><SPAN style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;MPI_Type_commit(&amp;linhaMatriz); </SPAN><BR 
        style="FONT-STYLE: italic"><SPAN style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;</SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;MPI_File_open(MPI_COMM_WORLD, arquivo_nome, MPI_MODE_CREATE | 
        MPI_MODE_WRONLY, MPI_INFO_NULL, &amp;arquivo);</SPAN><BR 
        style="FONT-STYLE: italic"><SPAN style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;</SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;for(interacao=0; 
        interacao&lt;(dimensao/num_procs);interacao++)</SPAN><BR 
        style="FONT-STYLE: italic"><SPAN style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;{</SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;double 
        matrizlocal[dimensao];</SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 
        &nbsp;valor=processo*(dimensao/num_procs)*dimensao+interacao*dimensao; 
        </SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 
        &nbsp;offset=valor*sizeof(double);</SPAN><BR 
        style="FONT-STYLE: italic"><SPAN style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;&nbsp;&nbsp; &nbsp;for(coluna=0; coluna&lt;dimensao; coluna++) 
        </SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 
        &nbsp;{</SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 
        &nbsp;&nbsp;&nbsp; &nbsp;matrizlocal[coluna]=valor+coluna;</SPAN><BR 
        style="FONT-STYLE: italic"><SPAN style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;&nbsp;&nbsp; &nbsp;}</SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 
        &nbsp;</SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 
        &nbsp;MPI_File_set_view(arquivo, offset, MPI_DOUBLE, linhaMatriz, 
        "native", MPI_INFO_NULL); </SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 
        &nbsp;inicio=MPI_Wtime();</SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 
        &nbsp;MPI_File_write(arquivo, matrizlocal, 1, linhaMatriz, &amp;status); 
        </SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 
        &nbsp;termino=MPI_Wtime();</SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 
        &nbsp;tempo_parcial=termino-inicio;</SPAN><BR 
        style="FONT-STYLE: italic"><SPAN style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;&nbsp;&nbsp; 
        &nbsp;contador_bytes_parcial+=sizeof(matrizlocal);</SPAN><BR 
        style="FONT-STYLE: italic"><SPAN style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;&nbsp;&nbsp; &nbsp;soma_tempo_total+=tempo_parcial;</SPAN><BR 
        style="FONT-STYLE: italic"><SPAN style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;}</SPAN><BR style="FONT-STYLE: italic"><SPAN 
        style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;MPI_File_close(&amp;arquivo);</SPAN><BR 
        style="FONT-STYLE: italic"><SPAN 
        style="FONT-WEIGHT: bold; FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;MPI_Allreduce(&amp;soma_tempo_total, &amp;tempo, dimensao, 
        MPI_DOUBLE, MPI_MAX,MPI_COMM_WORLD);</SPAN><BR 
        style="FONT-STYLE: italic"><SPAN style="FONT-STYLE: italic">&nbsp;&nbsp; 
        &nbsp;MPI_Finalize();&nbsp;&nbsp;&nbsp; <BR>.......<BR><BR></SPAN><BR>Do 
        you know what could be happening?<BR><BR>Thanks<BR><SPAN><BR>Luiz 
        Mendes<BR></SPAN></BLOCKQUOTE></DIV><BR></SPAN></DIV></BLOCKQUOTE></DIV></BLOCKQUOTE></DIV><BR></BLOCKQUOTE></BODY></HTML>