For help, Linux system openmpi FORTRAN language, compiler
In the subroutine subroutine, the following code
Subroutine mpi_sum_z (f, i_root myid, nsend, iall)
Include a 'mpif. H'
Real recv_b (nsend), f (nsend)! Nsend=256
Because a double free or corruption of errors, and shows that there are errors
Use GDB to debug, print the array content, f is the size of the array, 256 recv_b seems to have infinite, steps
(GDB) print f
E-14 e-14 $1=(2.83542365, 2.84252873, 2.84072133 e-14, e-14, 2.85789696 2.84969666 e-14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,... )
(GDB) print recv_b
$3=()
Want to master give answer, thank you!!!!!!