FORTRAN+MPI_ALLREDUCE语句排错:
call MPI_ALLREDUCE正确格式:
real(8),dimension(1,1)::rho1 ,sum_rho1
call MPI_Allreduce(rho1(1,1),sum_rho1(1,1),2,MPI_double, MPI_SUM, MPI_COMM_WORLD,ierror)
real(8)::nrm2r,sum_nrm2r
call MPI_Allreduce(nrm2r,sum_nrm2r,2,MPI_REAL, MPI_SUM, MPI_COMM_WORLD,ierror)