Hello, everyone , what's the matter of this problem!<br><br><br>---------------------------------------<br><br>Fatal error in PMPI_Allgatherv: Internal MPI error!, error stack:                                                         <br>
PMPI_Allgatherv(1089).....: MPI_Allgatherv(sbuf=0x101fd90, scount=1, dt                                                             <br>ype=USER<contig>, rbuf=0x1010600, rcounts=0x100bb30, displs=0x100f5c0,                                        <br>
dtype=0x4c000829, MPI_COMM_WORLD) failed                                                                                        <br>MPIR_Allgatherv_impl(922).:                                           <br>MPIR_Allgatherv(884)......:                                                                  <br>
MPIR_Allgatherv_intra(634):                                                                                                    <br>MPIR_Localcopy(357).......: memcpy arguments alias each other, dst=0x10                                                          <br>
25000 src=0x101fd90 len=42256 <br>------------------------------<br clear="all">And why in the following , the MPI_gatherv is correct while MPI_allgatherv is notl. The else sub statement works well and the former one do not work!<br>
<br>------<br> 29 if ( .true. ) then                                                                                                                         <br>
 30    call MPI_allgatherv( val, sz*2, MPI_REAL8, &                                                                                            <br> 31    res, cnt, strd, MPI_REAL8, MPI_comm_world, ier )                                                                                        <br>
 32 else                                                                                                                                       <br> 33    call MPI_gatherv( val, sz*2, MPI_REAL8, &                                                                                               <br>
 34    res, cnt, strd, MPI_REAL8, 0, MPI_comm_world, ier )                                                                                     <br> 35    call MPI_Bcast( res, x_sz*2, MPI_REAL8,0,MPI_Comm_world, ier )                                                                          <br>
 36 end if   <br><br>-- <br><b style="color:rgb(0,0,102)">孔涛 Tao Kong</b><br><a href="mailto:vision.kt@gmail.com" target="_blank">vision.kt@gmail.com</a><br><span style="color:rgb(51,51,153)">山东大学数学学院 | School of Maths. Shandong Univ. P.R.C.</span><br>
<br>